Dùng một commandbutton cho hai sub

[Vo Duy Minh]

Chào các bạn
Rất mong tiếp tục nhận được sự giúp đỡ của các bạn cho vấn đề dưới đây.

Như trong file đính kém, tôi có hai commandbutton, Hide và Unhide cho hai Sub tương ứng.
Tôi muốn có thể viết lại Sub để hai commandbutton này chỉ còn lại một, khi bấm Hide để ẩn dòng xong thì nó đổi tên thành Unhide và ngược lại.

Trước đây tôi có thấy có một file bạn nào làm rất hay, nhưng lâu quá tôi tìm lại không được nên phải nhờ sự giúp đỡ của các bạn

P/S: Code cho Hide trong file đính kèm là trước đây tôi được hai bạn "phuocam" và "batman1" giúp đỡ thay cho code vòng lặp.
Code này ẩn hàng tuyệt vời luôn, tôi có làm với một file lên đến hơn 40.000 rows (bốn mươi ngàn) mà mỗi row thi hơn chục hàm, thế nhưng nó chạy chỉ trong vòng vài ba giây.
Trước đó thì với code ẩn dùng vòng lặp thì chỉ 3000 rows là tôi chờ mệt mõi luôn (có lần gần 30 phút tôi chịu hết nỗi phải tắt Excel luôn)
Nhân đây, xin một lần nữa cám ơn hai bạn "phuocam" và "batman1".

 

[HUONGHCKT]

Chào các bạn
Rất mong tiếp tục nhận được sự giúp đỡ của các bạn cho vấn đề dưới đây.

Như trong file đính kém, tôi có hai commandbutton, Hide và Unhide cho hai Sub tương ứng.
Tôi muốn có thể viết lại Sub để hai commandbutton này chỉ còn lại một, khi bấm Hide để ẩn dòng xong thì nó đổi tên thành Unhide và ngược lại.

Trước đây tôi có thấy có một file bạn nào làm rất hay, nhưng lâu quá tôi tìm lại không được nên phải nhờ sự giúp đỡ của các bạn

P/S: Code cho Hide trong file đính kèm là trước đây tôi được hai bạn "phuocam" và "batman1" giúp đỡ thay cho code vòng lặp.
Code này ẩn hàng tuyệt vời luôn, tôi có làm với một file lên đến hơn 40.000 rows (bốn mươi ngàn) mà mỗi row thi hơn chục hàm, thế nhưng nó chạy chỉ trong vòng vài ba giây.
Trước đó thì với code ẩn dùng vòng lặp thì chỉ 3000 rows là tôi chờ mệt mõi luôn (có lần gần 30 phút tôi chịu hết nỗi phải tắt Excel luôn)
Nhân đây, xin một lần nữa cám ơn hai bạn "phuocam" và "batman1".

Bạn thử xem. Code củ chuối

 

[Phuocam]

Bạn thử xem.

Bạn có thể rút gọn :

Private Sub Cmd1_Click()
 If Cmd1.Caption = "Hide" Then
    Call Hide
    Cmd1.Caption = "Unhide"
Else
    Call Unhide
    Cmd1.Caption = "Hide"
End If
End Sub

 

[Vo Duy Minh]

Cám ơn bạn HUONGHCKT rất nhiều
Đúng như tôi mong muôn.

P/S: Có lẽ tính "củ chuối" của code là tôi lăn tăn thêm vào các dòng Application.
Còn tốc độ xử lý của code thì tôi hoàn toàn hài lòng.

Bài đã được tự động gộp: 28/8/21

Cám ơn bạn phuocam
Tôi có chỉnh lại theo cách rút gọn của bạn.
Rất cám ơn bạn đã quan tâm hỗ trợ.
Như hơn hai năm nay tôi luôn nhận được sự hỗ trợ của bạn,
Những hỗ trợ của bạn thực sự đã giúp tôi rất nhiều.
Chúc bạn nhiều sức khoẻ và ổn định trong đại dịch này.