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

Liên hệ QC

huongtinh1929

Premier Сasual Dating Real-life Girls
Tham gia
6/10/11
Bài viết
61
Được thích
4
Giới tính
Nam
Nghề nghiệp
Health
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.
 

File đính kèm

  • doi tên.xlsm
    18.2 KB · Đọc: 7
Bạn xem file đính kèm.
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
 

File đính kèm

  • doi tên.xlsm
    19.4 KB · Đọc: 15
Lần chỉnh sửa cuối:
Upvote 0
Web KT
Back
Top Bottom