Dùng Check box để ẩn hoặc hiện cột (1 người xem)

[hoanglocphat]

Các bạn giúp mình như sau
khi mình đánh dấu vào Check box 1 thì nó ẩn các cột A, F, G , J
khi mình bỏ đánh dấu Check box 1 thì nó hiện các cột đã ẩn
Cảm ơn nhiều!

 

[nhapmon]

bạn thử đoạn code này

tạo một click box bằng active X, gắn dòng lệnh này vào sheet chưa click box đó

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

 

[nmhung49]

Bạn cũng có thể dùng code này
[GPECODE=vb]
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
[A:A,F:F,G:G,J:J].EntireColumn.Hidden = True
Else
[A:A,F:F,G:G,J:J].EntireColumn.Hidden = False
End If
End Sub
[/GPECODE]

 

[halley189]

Ah! Tìm được thớt này rồi.

Private Sub CheckBox1_Click()If CheckBox1 = True Then
[A:A,F:F,G:G,J:J].EntireColumn.Hidden = True
Else
[A:A,F:F,G:G,J:J].EntireColumn.Hidden = False
End If
End Sub

Dựa vào code ở trên thì bạn nào có thể giúp mình 2 để bài sau dc không?

1. Thay vì ẩn cột thì thành ẩn dòng.
2. Ẩn các dòng trong 1 namebox(dòng không cố định, tùy thuộc vào số lượng dòng trong namebox).

Mình đang cần gấp cái này. Bạn nào giúp mình với! Mình cảm ơn!

 

[giaiphap]

Ah!
1. Thay vì ẩn cột thì thành ẩn dòng.

Bạn thay dòng này [A:A,F:F,G:G,J:J].EntireColumn.Hidden thành [A:A,F:F,G:G,J:J].EntireRow.Hidden

 

[nghiaphuc]

Bạn thay dòng này [A:A,F:F,G:G,J:J].EntireColumn.Hidden thành [A:A,F:F,G:G,J:J].EntireRow.Hidden

Gì vậy đồng chí...vậy nó ẩn hết tất cả Rows thì làm sao???

Chỉ cần [A:A] thì nó cũng...ẩn rồi...

Gì vậy các đồng chí, người ta hỏi thế này cơ mà:

Dựa vào code ở trên thì bạn nào có thể giúp mình 2 để bài sau dc không?

1. Thay vì ẩn cột thì thành ẩn dòng.

Có lẽ nó có dạng thế này: [1:1,4:10,15:20].EntireRow.Hidden=True
Còn yêu cầu thứ 2 thì chưa rõ ràng cho lắm nên chịu thua.

 

[giaiphap]

Gì vậy đồng chí...vậy nó ẩn hết tất cả Rows thì làm sao???

Chỉ cần [A:A] thì nó cũng...ẩn rồi...

À quên, dòng thì là số đằng này lại là chữ cái.....

 

[halley189]

Gì vậy các đồng chí, người ta hỏi thế này cơ mà:

Có lẽ nó có dạng thế này: [1:1,4:10,15:20].EntireRow.Hidden=True
Còn yêu cầu thứ 2 thì chưa rõ ràng cho lắm nên chịu thua.

Thì là thế này bác ợ.

Trong file mình gởi có 1 vùng mình tô màu vàng và đặt tên cho vùng đó(namebox) là halley(A16). Mình cũng đã làm 1 cái check box ẩn các dòng từ 1 đến 6 rồi. Tuy nhiên khi mình insert thêm 1 dòng nữa vào giữa(để thêm 1 giá trị) thì cái vùng namebox của mình nó thành (A17) nhưng checkbox thì vẫn ẩn đến dòng thứ 6 thôi. Có cách gì để nó ẩn các dòng trong vùng namebox đó không .