Gán 2 macro lên cùng 1 Button. Help! (1 người xem)

[quoccuong1201]

Mình vừa tìm hiểu về macro để ứng dụng làm 1 bảng tính.
Nội dung: Mình muốn hide và unhide một số dòng, khi dòng đó có giá trị bằng = 0. Khi tính toán thì mình muốn unhide tất cả các dòng, và khi tính toán xong, dòng nào có giá trị =0 (tại 1 cột cố định) thì sẽ hide đi.
Vấn đề là mình đã "mò" được 2 cái macro đó rồi, và đã tạo ra 2 Button riêng biệt cho mỗi chức năng Hide/Unhide. Mình muốn nhờ các bạn trong diễn đàn giúp mình làm sao liên kết 2 macro đó lại và chỉ cần sử dụng 1 Button thôi! Có nghĩa khi ta nhấn 1 cái thì sẽ thực thi chế độ Hide, và nhấn tiếp 1 cái nữa thì sẽ thực thi Unhide, cứ tiếp tục như vậy.
Cảm ơn các bạn rất nhiều.
Mình có gởi file đính kèm.

 

[Ba Tê]

Mình vừa tìm hiểu về macro để ứng dụng làm 1 bảng tính.
Nội dung: Mình muốn hide và unhide một số dòng, khi dòng đó có giá trị bằng = 0. Khi tính toán thì mình muốn unhide tất cả các dòng, và khi tính toán xong, dòng nào có giá trị =0 (tại 1 cột cố định) thì sẽ hide đi.
Vấn đề là mình đã "mò" được 2 cái macro đó rồi, và đã tạo ra 2 Button riêng biệt cho mỗi chức năng Hide/Unhide. Mình muốn nhờ các bạn trong diễn đàn giúp mình làm sao liên kết 2 macro đó lại và chỉ cần sử dụng 1 Button thôi! Có nghĩa khi ta nhấn 1 cái thì sẽ thực thi chế độ Hide, và nhấn tiếp 1 cái nữa thì sẽ thực thi Unhide, cứ tiếp tục như vậy.
Cảm ơn các bạn rất nhiều.
Mình có gởi file đính kèm.

Chỉ làm cái nút thôi nghe, còn Code là của bạn, nhanh chậm không biết.
@ Tiêu đề bỏ chữ HELP! đi, không phải viết tiếng Anh là người khác sẽ giúp.

Lưu ý khi gửi bài:
- Bài viết không dấu Tiếng Việt sẽ bị xóa
- Đặt tựa đề theo sát nội dung câu hỏi/ trả lời. Các bài viết có tựa đề chung chung như
Help me, cứu cứu, cứu em, gấp gấp,... sẽ bị xoá
- Giải thích/ mô tả câu hỏi càng chi tiết càng tốt
- Nên gửi thêm tập tin Excel kèm chú thích về câu hỏi nếu có
Xem thêm Nội Quy Diễn Đàn
​

​

​

 

[Quang_Hải]

Mình vừa tìm hiểu về macro để ứng dụng làm 1 bảng tính.
Nội dung: Mình muốn hide và unhide một số dòng, khi dòng đó có giá trị bằng = 0. Khi tính toán thì mình muốn unhide tất cả các dòng, và khi tính toán xong, dòng nào có giá trị =0 (tại 1 cột cố định) thì sẽ hide đi.
Vấn đề là mình đã "mò" được 2 cái macro đó rồi, và đã tạo ra 2 Button riêng biệt cho mỗi chức năng Hide/Unhide. Mình muốn nhờ các bạn trong diễn đàn giúp mình làm sao liên kết 2 macro đó lại và chỉ cần sử dụng 1 Button thôi! Có nghĩa khi ta nhấn 1 cái thì sẽ thực thi chế độ Hide, và nhấn tiếp 1 cái nữa thì sẽ thực thi Unhide, cứ tiếp tục như vậy.
Cảm ơn các bạn rất nhiều.
Mình có gởi file đính kèm.

Cũng đang rảnh nên mượn cái nút của anh BATÊ để gán code vào thế này. Xài code này thì không cần 2 cái marcos hide và unhide nữa

Private Sub Cmd1_Click()
Application.ScreenUpdating = False
Dim dl
Set dl = Range([c3], [c65536].End(3))
   If Cmd1.Caption = "HIDE" Then
      dl.AutoFilter 1, ">0", , , 0
      Cmd1.Caption = "UNHIDE"
   Else
    dl.AutoFilter
    Cmd1.Caption = "HIDE"
   End If
Application.ScreenUpdating = True
End Sub

 

[quoccuong1201]

Hic!Quan trọng là mình không biết cách làm cái nút đó Ba Tê và quanghai1969 ah!
Cái file đính kèm mình gởi là ví dụ thôi, nhưng mình dự định sẽ làm trong một file khác.
Mình chỉ vừa tìm hiểu về macro thôi, không rành lắm. Mong các bạn chỉ cặn kẽ dùm (để làm cái nút đó trong file khác nữa chứ! )
Cảm ơn 2 bạn nhiều.

 

[Ba Tê]

Hic!Quan trọng là mình không biết cách làm cái nút đó Ba Tê và quanghai1969 ah!
Cái file đính kèm mình gởi là ví dụ thôi, nhưng mình dự định sẽ làm trong một file khác.
Mình chỉ vừa tìm hiểu về macro thôi, không rành lắm. Mong các bạn chỉ cặn kẽ dùm (để làm cái nút đó trong file khác nữa chứ! )
Cảm ơn 2 bạn nhiều.

Bạn nói bạn không biết cách làm cái nút?
Sao vậy ta?
Vậy 2 cái nút trong File của bạn là ai làm, 2 cái code hide và unhide ai viết?

 

[quoccuong1201]

Đúng là 2 cái nút Hide và Unhide là mình làm được, thì chọn từ Forms/Button, rồi assign macro...,chọn macro.
Ý mình là mình ko làm được cái nút như Ba Tê làm dùm mình đó. Ba Tê có thể chỉ dùm mình làm như Ba Tê đã làm không? là gán nút đó cho cả 2 cái macro. Tại mình thấy là Ba Tê làm cái nút đó từ Control Toolbox/Command Button.

 

[Ba Tê]

Đúng là 2 cái nút Hide và Unhide là mình làm được, thì chọn từ Forms/Button, rồi assign macro...,chọn macro.
Ý mình là mình ko làm được cái nút như Ba Tê làm dùm mình đó. Ba Tê có thể chỉ dùm mình làm như Ba Tê đã làm không? là gán nút đó cho cả 2 cái macro. Tại mình thấy là Ba Tê làm cái nút đó từ Control Toolbox/Command Button.

Bạn đã biết nó làm từ Control Toolbox thì bạn cứ làm.
Mở thanh Control Toolbox - Click Design Mode.
Tạo 1 Command Button - Click chuột phải - Click View Code nó sẽ chuyển sang cửa sổ VBA và anh Bill tạo sẵn 2 dòng này:

Private Sub CommandButton1_Click()

End Sub

Copy nội dung code của quanghai vào sao cho nó thành như thế này:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim dl
Set dl = Range([c3], [c65536].End(3))
   If CommandButton1.Caption = "HIDE" Then
      dl.AutoFilter 1, ">0", , , 0
      CommandButton1.Caption = "UNHIDE"
   Else
    dl.AutoFilter
    CommandButton1.Caption = "HIDE"
   End If
Application.ScreenUpdating = True
End Sub

Hoặc dùng code của bạn thành thế này:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "HIDE" Then
    hide
    CommandButton1.Caption = "UNHIDE"
Else
    unhide
    CommandButton1.Caption = "HIDE"
End If
End Sub

Trở lại bảng tính, Click Exit Design Mode, tắt thanh Control Toolbox.
Click vài cái là nó tự chuyển tên CommandButton1 thành HIDE hoặc UNHIDE theo lệnh của code.

 

[quoccuong1201]

Yeh! Làm được rồi. Cũng "mò" bi nhiêu đó mà cũng không ra. Lẽ ra là sau khi làm xong, quay trở lại bảng tính, tắt thanh Control Toolbox và nhấn vào nút thì mình làm sai bước này. Làm xong là tắt luôn cửa sổ bên VBA, rồi mới quay lại bảng tính, nhấn hoài mà không thấy chạy nhảy gì hết.
Cảm ơn Ba Tê đã nhiệt tình chỉ dẫn nha, không quên cảm ơn quanghai1969.
Chúc Ba Tê ngủ ngon. Giờ chắc mình cũng ngủ ngon lắm đây! Thanks so much!