Xin hướng dẫn làm Ẩn-Hiện 1 vùng(name box) trong excel bằng 1 nút nhấn(thay vì quét)! (3 người xem)

[halley189]

Mình đang làm 1 file tổng hợp báo cáo lỗi! Đang gặp phải vấn đề này nhờ các bạn giúp mình!

Như file đính kèm mình gởi thì có 12 tháng. tháng 1 thì mình đặt là name box THANG1(A3:K5), tháng 2 đặt là THANG2(A6:K8) vv...


Giờ mình muốn tạo 1 nút nhấn để ẩn/hiện nguyên cả các dòng trong Tháng 1, Tháng 2 vv.. Tháng 12 thì làm như thế nào? bạn nào có ví dụ tương tự thì gởi cho mình chút.

cái của mình là không chỉ là ẩn dòng mà cao hơn nữa là ẩn dòng thuộc namebox vì vùng namebox có thể mở rộng chứ ko phải cố định là từ dòng nào tới dòng nào. Mình cảm ơn!

 

[halley189]

Private Sub CheckBox1_Click()
If CheckBox1 = False Then
Columns("a").Hidden = True
Columns("f").Hidden = True
Columns("g").Hidden = True
Columns("i").Hidden = True
Else
Columns("a").Hidden = False
Columns("f").Hidden = False
Columns("g").Hidden = False
Columns("i").Hidden = False
End If
End Sub

Mình tìm được đoạn code này rồi các bác ạ. Mình có thể chuyển sang ẩn dòng được nhưng giờ số dòng của mình không cố định thì mình phải làm sao(số dòng nằm trong namebox) . Các bác giúp mình với....

 

[halley189]

Lấy file. Tick vào listbox tháng nào muốn ẩn. Bỏ tick thì show. Thế thôi...

--------------
P/s: lưu ý rằng trong name THANG1 -> THANG12 của bạn coi đặt lại vùng dữ liệu cho đúng...hình như tháng 1 bạn đặt sai thì phải...

Đúng rồi bác ợ. Cảm ơn bác nhiều. Mình trước giờ chả đụng tới cái VBA này nên gặp bài toán này chịu. Tks!

 

[halley189]

Hix! Các bác giúp mình vấn đề này với. Cái listbox của mình ấy kìa, giờ mình muốn hiện ra toàn bộ(giống hình bên phải) thì làm thế nào? Khi mình vào phần Design Mode để kéo nó to ra hoặc vào phần Format Control (tick vào Lock aspect ratio) lẫn Properties chỉnh kích thước ngang dọc của nó để cho nó hiện toàn bộ nhưng sau khi thoát file và vào lại thì nó lại bé tí tẹo như cái hình bên trái. Có cách gì mình fix cứng kích thước của cái listbox đó không? Mình mò đủ cách nhưng vẫn không được. Các bác giúp mình với!
Mình muốn bỏ phần scroll đi, hiện full cho dễ nhìn!

Cảm ơn các bác!

 

[halley189]

Set thuộc tính này thành False: Properties\IntegralHeight: False

Ôi! Được rồi bác ợ. cảm ơn bác nhiều!

//Hy vọng bác ko trách vì mình hỏi nhiều quá, bởi mình ko biết tí gì về VBA cả :3 :3. Thanks!!