đổi tên CommandButton khi kích vào

[huongtinh1929]

Các bác chỉ dùm em làm sao để CommandButton đổi tên khi kích vào ạ:
VD: khi em chưa ấn vào thì CommandButton có tên là hiện
Khi em kích vào thi sẽ hiện Useform lên và CommandButton đổi tên thành ẩn
khi em kích vào CommandButton lần nữa thì sẽ đóng useForm vừa hiện lên ạ
Em cảm ơn các bác nhiều.

 

[leonguyenz]

Bạn xem file đính kèm.

Private Sub Comd1_Click()
    If UserForm2.Visible Then
        Me.Comd1.Caption = "Hien"
        Unload UserForm2
    Else
        Me.Comd1.Caption = "An"
        UserForm2.Show
    End If
End Sub

Private Sub UserForm_Initialize()
    Me.Comd1.Caption = "Hien"
End Sub

 

[todohida207]

Bạn xem file đính kèm.

Private Sub Comd1_Click()
    If UserForm2.Visible Then
        Me.Comd1.Caption = "Hien"
        Unload UserForm2
    Else
        Me.Comd1.Caption = "An"
        UserForm2.Show
    End If
End Sub

Private Sub UserForm_Initialize()
    Me.Comd1.Caption = "Hien"
End Sub

Đâu cần đoạn dưới nhỉ!

 

[befaint]

đoạn dưới

Là lúc làm giấy khai sinh đó mình.