1

同じ列の最大値/最小値を表示する 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 に表示されます。両方を 1 つの MsgBox に表示したいと思います。ありがとうございました。

4

2 に答える 2

1 
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
于 2014-03-26T22:13:15.500 に答える