引用引用应用程序的变量

Question

我正在尝试将单元格的值放入左列（A 列）的 Msgbox 中。这个值需要被选择，取决于 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)) 不起作用，但基本上这就是我想要实现的：找到最低值，然后向左查看一列，并在单元格中显示该值。

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

引用引用应用程序的变量

Refer to variable that refers to Application

excel

vba

offset