excel - excel - 使MsgBox有條件地顯示多個變數

127 2

假設我有三個複選框,它們是: 查找最大值,查找最小值,查找平均值,

如何創建一個MsgBox來顯示我之前選擇的選項?

时间: 原作者:

132 0

試試下面這些代碼:


Sub ShowResults()



 Dim sMessage As String



 ' btnMax btnMin btnAvg - use your controls names


 If btnMax.Value = True Then


 sMessage = sMessage &"Max is:" & CStr(yourMAXvalue) & vbNewLine


 End If



 If btnMin.Value = True Then


 sMessage = sMessage &"Min is:" & CStr(yourMINvalue) & vbNewLine


 End If



 If btnAvg.Value = True Then


 sMessage = sMessage &"Avg is:" & CStr(yourAvgvalue) & vbNewLine


 End If



 If Len(sMessage) > 0 Then MsgBox sMessage


End Sub



原作者:
...