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
