Kepada yth para master VBA saya punya data inputan berupa file txt. data ini saya input ke dalam 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 data pada kolom A: 0.25 0.22 0.18 0.14 0.13 0.16 0.2 0.22 0.17 0.22 0.2 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
Kepada yth para master VBA saya punya data inputan berupa file txt. data ini saya input ke dalam 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 data pada kolom A: 0.25 0.22 0.18 0.14 0.13 0.16 0.2 0.22 0.17 0.22 0.2 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