Hỏi về nút " CommandButton" click thì hiện chữ ON click lần nữa hiện chữ OFF (2 người xem)

[lhthai]

Chào các Anh
Nhấn nút CommandButton click thì hiện chữ ON font chữ màu đỏ click lần nữa hiện chữ OFF font chữ màu xanh

 

[quocphuoc88]

if CommandButton.caption="ON" then
CommandButton.caption = "OFF"
else
CommandButton.Caption = "ON"
End if

 

[lhthai]

if CommandButton.caption="ON" then
CommandButton.caption = "OFF"
else
CommandButton.Caption = "ON"
End if

Còn màu chữ được không bạn

 

[quocphuoc88]

Mình xài Office 2010 thì cái màu nó ra như thế. Không biết trên Office khác nó có khác không thì mình chịu !

Private Sub CommandButton1_Click()
    With Sheet1.CommandButton1
        If .Caption = "ON" Then
            .Caption = "OFF"
            .ForeColor = &HFF00&
        Else
            .Caption = "ON"
            .ForeColor = &HFF&
        End If
    End With
End Sub

 

[lhthai]

Mình xài Office 2010 thì cái màu nó ra như thế. Không biết trên Office khác nó có khác không thì mình chịu !

Private Sub CommandButton1_Click()
    With Sheet1.CommandButton1
        If .Caption = "ON" Then
            .Caption = "OFF"
            .ForeColor = &HFF00&
        Else
            .Caption = "ON"
            .ForeColor = &HFF&
        End If
    End With
End Sub

Cám ơn rất nhiều nha