mencari nilai terbesar dan terkecil pada kolom A dengan input data txt file

  1. 2 tahun lalu

    Kepada yth para master VBA
    saya punya data inputan berupa file txt yang saya lampirkan. data ini saya input kedalam excel dengan menggunakan aplikasi VBA.

    kemudian saya ingin mencari nilai maksimum (terbesar) dan nilai minimum (terkecil) dari semua data yang ada pada pada kolom A dengan persyaratan bahwa kolom A tersebut ada angkanya..
    namun, dengan kode dibawah ini, nilai maksimum dan minimum nya tidak muncul. bagaimana ya mengatasi masalah ini?

    terima kasih

    aaf

    berikut kode VBA nya:

    Private Sub CommandButton1_Click()

    Dim vMin, vMax
    Dim mg As Range
    Dim NOR, lastrow, currentrow As Long

    filetoopen = Application.GetOpenFilename("Text File (*.txt),*.txt", , "Select", , False)

    If VarType(filetoopen) = vbBoolean Then
    Exit Sub
    End If
    Workbooks.OpenText filetoopen, Origin _
    :=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
    , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
    False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
    , Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
    Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1)), _
    TrailingMinusNumbers:=True

    'get number of rows (row with value inside)-------------
    With ActiveSheet
    NOR = .Cells(Rows.Count, "A").End(xlUp).Row
    End With

    'GET SMALLEST & LARGEST VALUE FROM COLUMN A==========
    With ActiveSheet
    lastrow = NOR

    For currentrow = 2 To lastrow
    Set mg = ThisWorkbook.Sheets(1).Rows(currentrow)

    'if row no data then no read------------------------
    If WorksheetFunction.CountA(mg) = 0 Then
    Else
    vMin = Application.WorksheetFunction.Min(Columns("A"))
    vMax = Application.WorksheetFunction.Max(Columns("A"))
    End If
    Next currentrow
    End With

    MsgBox "Minimum = " & vMin & ", " & "Maximum = " & vMax, vbInformation
    MsgBox "last row A is = " & NOR

    End Sub

  2. tghfox

    4 Okt 2016 Terverifikasi Bekasi Barat + 436 Poin

    silahkan dicoba ini
    ada sedikit tambahan :

    1. agar file txt tidak rusak
    2. agar regional setting tidak mempengaruhi macro (terkait titik dan koma angka decimal)
  3. makasih banyak ya mas atas bantuannya...
    sangat mencerahkan...
    saya coba mempelajarinya dulu...

    sukses selalu
    salam..

 

atau Mendaftar untuk ikut berdiskusi!