Code tự Click Button trong sheet

[NQ_AT]

Chào anh chị,

Hiện tại em có viết 1 code sau

Private Sub Worksheet_Activate()
 ActiveSheet.Buttons("Button 1").Delete

End Sub

Đối với code này nó chạy ok rồi,
nhưng em không biết làm thế nào để chuyển sang Click, em muốn khi chuyển sang sheet này thì Button này cũng tự Click luôn, vì Button này sẽ chạy code em cần.

Nhờ chị xem giúp em nha, cảm ơn anh chị rất nhiều

 

[NQ_AT]

Nhìn cách bạn mô tả có về dỡ hơi nhỉ?
1. Activate sheet
2. Tự click button (trong button lại có code cần chạy)
3. Xóa button

Chi mệt vậy trời,.....???? Vậy tại sao không đưa cái đống code trong button đó ra ngoài cái Private Sub Worksheet_Activate() ....Cần chi cái button nữa!!!

Mục đích là khi nào không cần thì em chỉ cần delete cái button thì nó sẽ không chạy code nữa, còn đưa ra ngoài Private Sub Worksheet_Activate() thì nó luôn chạy. hjhjhj

 

[NQ_AT]

Đã làm code cho button thì luôn để nó hiện, Cần chạy code thì click
Còn muốn nó ẩn thì làm bước code ẩn cái button này đi, chứ ai lại xóa. Xóa rồi mất công khi cần lại phải insert lại cho mệt ah?
Viết code vào module, sub acb() gì đó.......xong bạn ấn định cho nó cái phím tắt ........chỉ mình bạn biết, khi bạn muốn chạy thì gọi ra chạy thôi. Button chi cho rắc rối

Em biết, nhưng mục đích của em rõ ràng là vậy, File gốc thì sẽ có, e dùng code chuyển thành file 2 lúc đó Button này sẽ đc xóa đi luôn vì nó ko được phép chạy code này ở file 2.
Nhờ anh giúp code phần này nha. Em chỉ cần code tự click cái button này là được.

 

[giangleloi]

Em biết, nhưng mục đích của em rõ ràng là vậy, File gốc thì sẽ có, e dùng code chuyển thành file 2 lúc đó Button này sẽ đc xóa đi luôn vì nó ko được phép chạy code này ở file 2.
Nhờ anh giúp code phần này nha. Em chỉ cần code tự click cái button này là được.

Nếu đoán không lầm thì bạn sẽ save as thành 1 file mới và với file mới đó bạn muốn xóa hết code và cmdbutton?

 

[NQ_AT]

Nếu đoán không lầm thì bạn sẽ save as thành 1 file mới và với file mới đó bạn muốn xóa hết code và cmdbutton?

đúng rồi đó anh, em save as thành xlsx là nó mất hết code rồi, nhưng đó là với trường hợp phải tắt file xong mở lại.

Còn với trường hợp mới save as mà chưa tắt file thì code vẫn chạy bình thường, do đó em mới dùng đến code này.

 

[giangleloi]

đúng rồi đó anh, em save as thành xlsx là nó mất hết code rồi, nhưng đó là với trường hợp phải tắt file xong mở lại.

Còn với trường hợp mới save as mà chưa tắt file thì code vẫn chạy bình thường, do đó em mới dùng đến code này.

Không có file thì bạn thử đại đi nha:

Sub NQ_AT()
    Sheet1.CommandButton1 = True 'Dùng để click
    Sheet1.Shapes("CommandButton1").Delete 'Dùng để xóa
End Sub

 

[NQ_AT]

Không có file thì bạn thử đại đi nha:

Sub NQ_AT()
    Sheet1.CommandButton1 = True 'Dùng để click
    Sheet1.Shapes("CommandButton1").Delete 'Dùng để xóa
End Sub

như thế là giải quyết xong, rất cảm ơn anh

 

[MQ64191]

Như mình muốn click Button 1 sẽ hiện ra Thư mục 1 và Button 2 hiện ra Thư mục 2 (các thư mục này đều nằm trên 1 máy tính) có được không và viết đoạn code cho Button ra sao? Mong được giúp đỡ!

 

[Tuhai2606]

Chào mọi người. mọi người ai rành giúp mình với ạ. mình có 1 bảng Userform như bên dưới. làm sao để khi mình click Xác Nhận 1 trong hình thì 4 Xác nhận kia cũng lick theo luôn không ạ

 

[BuiQuangThuan]

Chào mọi người. mọi người ai rành giúp mình với ạ. mình có 1 bảng Userform như bên dưới. làm sao để khi mình click Xác Nhận 1 trong hình thì 4 Xác nhận kia cũng lick theo luôn không ạView attachment 289846

Thử call 4 cái xác nhận trên coi

 

[SA_DQ]

Thử call 4 cái xác nhận trên coi

Ngoài ra nên khuyên bạn ý đăng bài mới thì hay hơn!

 

[Tuhai2606]

Thử call 4 cái xác nhận trên coi

hi bạn. mình lập lệnh call thì nó lại nhập thiếu dữ liệu như trong hình. Ban có thể giúp mình hoàn chỉ
Code mình làm
Private Sub ConfirmAll_Click()
Call txtConfirmNV1_Click
Call txtConfirmNV2_Click
Call txtConfirmNV3_Click
Call txtConfirmNV4_Click
End Sub
nh code được không ạ

Bài đã được tự động gộp: 9/5/23

Ngoài ra nên khuyên bạn ý đăng bài mới thì hay hơn!

sory bạn. lần sau mình sẽ tạo bài mới

 

[SA_DQ]

Nếu bạn cần xin lỗi thì nên xin lỗi diễn đàn ý; Bạn có lỗi phải gì với mình đâu cơ chứ!

 

[Maika8008]

hi bạn. mình lập lệnh call thì nó lại nhập thiếu dữ liệu như trong hình. Ban có thể giúp mình hoàn chỉ
Code mình làm
Private Sub ConfirmAll_Click()
Call txtConfirmNV1_Click
Call txtConfirmNV2_Click
Call txtConfirmNV3_Click
Call txtConfirmNV4_Click
End Sub
View attachment 289900nh code được không ạ

Nhạy bén chút chứ: If cái này có chữ Then chạy thứ kia