Điều khiển nút CommandButton1 (1 người xem)

[conghoangxd037]

Hiện tại em có 1 userform trong đó em có một nút CommandButton1 và em viết code sau:

Private Sub cmd1_Click()
MsgBox "ok"
End Sub

Sau đó em tạo 1 module và em muốn làm sau khi em chạy module này thì nút CommandButton1 sẽ được kích hoạt. Nhưng em không biết có cách nào để khi em kích hoạt module này thì nút CommandButton1 sẽ được nhấn trong userform.Mong anh chị chỉ giúp em với.

 

[ndu96081631]

Hiện tại em có 1 userform trong đó em có một nút CommandButton1 và em viết code sau:

Private Sub cmd1_Click()
MsgBox "ok"
End Sub

Sau đó em tạo 1 module và em muốn làm sau khi em chạy module này thì nút CommandButton1 sẽ được kích hoạt. Nhưng em không biết có cách nào để khi em kích hoạt module này thì nút CommandButton1 sẽ được nhấn trong userform.Mong anh chị chỉ giúp em với.

Cách đơn giản nhất: Bạn tách dòng code màu đỏ ở trên ra thành 1 Sub riêng trên Module đi ---> Giờ thì muốn Run thế nào cũng được

 

[conghoangxd037]

Như vậy cũng được, nhưng giờ em thắc mắc là có cách nào để run các commandbutton1 kia mà trên sub của module không Bác? Xin bác chỉ giáo cái

 

[ndu96081631]

Như vậy cũng được, nhưng giờ em thắc mắc là có cách nào để run các commandbutton1 kia mà trên sub của module không Bác? Xin bác chỉ giáo cái

Đương nhiên được
- Đầu tiên bạn sửa Private Sub cmd1_Click() thành Public Sub cmd1_Click()
- Code trong Module

Sub Main()
  UserForm1.cmd1_Click
End Sub

Nhưng có điều.. chả ai làm vậy bao giờ

 

[conghoangxd037]

thank anh, hen gì em quên phần Private với Public nên không làm được.Cảm ơn anh nhiều. Tại em có mấy đoạn code phải dùng như vậy để thực thi vì đã tạo form sẵn hết rồi nên giờ copy ra sub lại phiền phức.