先设置CommandButton1.Caption属性为 “是”
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "是" Then
Cells(1, 1) = "TRUE"
CommandButton1.Caption = "否"
Else
Cells(1, 1) = "FALSE"
CommandButton1.Caption = "是"
End If
End Sub