Tự động, ẩn hiện dòng cột theo giá trị ô bằng VBA (2 người xem)

[huudung123456]

Hiện tại mình đang làm nghiệm thu công trình. Tại file đính kèm ở dưới, Sheet VL. mình muốn tại ô T6 nếu giá trị là 1 thì các dòng 23-29 sẽ ẩn đi, các dòng 30-43 giữ nguyên như hình.



Nếu T6 có giá trị là 2 thì các dòng 30-43 sẽ ẩn đi và hiện lại các dòng 23-29.



Nếu giá trị khác thì hiện cả 2 để chỉnh sửa.

Mình đã tìm kiếm trong diễn đàn và các lệnh VBA tương tự qua Google nhưng vẫn chưa được. Nhờ mọi người giúp cho. Xin cảm ơn

 

[nlbx]

bạn thử:
rows("23:43").hidden=false
If [t6]=1 then
rows("23:29").hidden=true
else if [t6]=2 then
rows("30:43").hidden=true
endif

 

[huudung123456]

bạn thử:
rows("23:43").hidden=false
If [t6]=1 then
rows("23:29").hidden=true
else if [t6]=2 then
rows("30:43").hidden=true
endif

Mình gà VBA lắm, bạn cho mình Code cụ thể được không? Copy chèn vào khúc nào vậy?

 

[nlbx]

elseif liền lại

 

[huudung123456]

Dòng Code của bạn mới chỉ làm được 1 nửa yêu cầu thôi. Tức nó hide dòng khi nhập 1 và 2. Tuy nhiên hiện lại tất cả khi nhập các số bất kỳ khác hay bỏ trống Else chưa có.

 

[nlbx]

trước khi vào if là nó hiện cả mà (lệnh trên if) nên nếu ngoài 1 2 thì nó chẳng làm j cả

 

[huudung123456]

Mình nhẩm. Cảm ơn bạn đã nhiệt tình giúp đỡ

 

[nlbx]

Bạn search "hide row with vba" là có mà. https://stackoverflow.com/questions/6576423/macro-for-hide-rows-in-excel-2010. Sao không tìm được nhỉ.

 

[huudung123456]

Bạn search "hide row with vba" là có mà. https://stackoverflow.com/questions/6576423/macro-for-hide-rows-in-excel-2010. Sao không tìm được nhỉ.

Giờ mình muốn thêm ẩn nữa thì sao bạn. Ví dụ, nhấn 3 ẩn tiếp một số dòng nữa chẳng hạn

 

[nlbx]

Elseif tiếp thôi. Trước khi ẩn hàng nào thì hidden=false hàng đó trước lệnh if.

 

[huudung123456]

Cảm ơn bạn. Mình đã làm được