咁寫都會簡潔啲...複製內容到剪貼板
代碼:
Sub check()
Dim b1 As Boolean, b2 As Boolean, b3 As Boolean
b1 = True: b2 = False: b3 = False
Select Case b1 + b2 + b3
Case -3
MsgBox "TTT"
Case 0
MsgBox "FFF"
Case -2
MsgBox "TTF/TFT/FTT"
Case -1
MsgBox "TFF/FFT/FTF"
End Select
End Sub