vba - 如何 MsgBox 在一列中的两个值？

Question

我有 TheMax 和 TheMin 子程序来显示同一列的最大值/最小值。如何在同一个 MsgBox 中显示两个值？原始脚本：

Sub ShowMax()
   Dim TheMax As Double
   TheMax = WorksheetFunction.Max (Range("A:A"))
   MsgBox TheMax
End Sub

Sub ShowMin()
   Dim TheMin As Double
   TheMin = WorksheetFunction.Min (Range("A:A"))
   MsgBox TheMin
End Sub

如您所见，现在每个值都显示在单独的 MsgBox 中。我想在一个 MsgBox 中显示两者。谢谢你。

Answer 1

只需组合您的两个函数并连接返回的值。

代码：

Sub ShowMinMax()
   Dim TheMin As Double, TheMax As Double
   TheMin = WorksheetFunction.Min(Range("A:A"))
   TheMax = WorksheetFunction.Max(Range("A:A"))
   MsgBox "Min: " & TheMin & " Max: " & TheMax
End Sub

结果：

Answer 2

Function ShowMax()
   Dim TheMax As Double
   ShowMax = WorksheetFunction.Max (Range("A:A"))
End Function

Function ShowMin()
   Dim TheMin As Double
   ShowMin = WorksheetFunction.Min (Range("A:A"))
End Function

Sub CallMsgBox()
   msgbox ShowMax() & " " & ShowMin
End Sub