Обратитесь к переменной, которая относится к Приложению

Question

Я пытаюсь поместить значение ячейки в Msgbox, который находится в левом столбце (столбец A). Это значение должно быть выбрано, хотя в зависимости от того, какое значение в столбце B является самым низким и его следует использовать повторно, с разной длиной строк (иногда это 200 строк иногда 230 и т. Д.)

До сих пор я писал:

Sub Flow() 
'Check lowest value 

Dim lowestValue As String 


lowestValue = Application.WorksheetFunction.Min(Sheets("ImportData").Range("B3:B290")) 

MsgBox "Lowest Flow" & vbNewLine & _ 
(lowestValue) & vbNewLine & _ 
"at " & (lowestValue.Offset(0, -1)) 

End Sub 

Очевидно lowestValue.Offset(0, -1)) не работает, но в основном это то, что я хотел бы достичь: найти lowestValue, а затем посмотреть на одну колонку влево, а также отображать это значение в ячейке.

Answer 1

Вот один из способов:

Sub Flow() 
'Check lowest value 
    Dim rData     As Range 
    Dim lowestMatch 
    Set rData = Sheets("ImportData").Range("B3:B290") 
    lowestMatch = Application.Match(Application.Min(rData), rData, 0) 
    If Not IsError(lowestMatch) Then 
     MsgBox "Lowest Flow" & vbNewLine & _ 
       rData.Cells(lowestMatch).Value & vbNewLine & _ 
       "at " & rData.Cells(lowestMatch).Offset(0, -1).Value 
    End If 
End Sub