Ẩn hiện cột dựa theo tham số và ô check box (1 người xem)

[bucminh99]

Xin chào mọi người.
Mình mong muốn làm cái VB điều khiểu việc unhide, hide cột dựa vào tham số,tùy chọn để quyết định những ô thường hay ẩn 1 cách dễ dàng ( hnay có thể cần dùng nhiều ẩn B C D, mai có khi lại cần hiện cả, rồi ẩn C E F)
Giải pháp ý tưởng là:

Column A ColumnB Column C
3 Hide1 Hide 2

1.tạo 2 ô check box Hide1, check box Hide2
2. Khi giá trị box được tích, sẽ ẩn những column mà bên dưới nó ( row 3 hoặc row x tùy chọn phụ thuộc vào bảng tính)
3. Khi giá trị box KHÔNG tích, thì sẽ hiện những column đó
4. Các column D E F..v..v. mặc nhiên tự hiện, nếu ko có tham số điều khiển ở dưới.
(tóm lại, cái chekc box ý nghĩa là cứ tích thì ẩn, bỏ đi thì hiện, còn các ô khác ko liên quan)

Cám ơn ơn mọi người

 

[bucminh99]

^^ File mẫu.........................

 

[quanluu]

Xin chào mọi người.
Mình mong muốn làm cái VB điều khiểu việc unhide, hide cột dựa vào tham số,tùy chọn để quyết định những ô thường hay ẩn 1 cách dễ dàng ( hnay có thể cần dùng nhiều ẩn B C D, mai có khi lại cần hiện cả, rồi ẩn C E F)
Giải pháp ý tưởng là:

Column A ColumnB Column C
3 Hide1 Hide 2

1.tạo 2 ô check box Hide1, check box Hide2
2. Khi giá trị box được tích, sẽ ẩn những column mà bên dưới nó ( row 3 hoặc row x tùy chọn phụ thuộc vào bảng tính)
3. Khi giá trị box KHÔNG tích, thì sẽ hiện những column đó
4. Các column D E F..v..v. mặc nhiên tự hiện, nếu ko có tham số điều khiển ở dưới.
(tóm lại, cái chekc box ý nghĩa là cứ tích thì ẩn, bỏ đi thì hiện, còn các ô khác ko liên quan)

Cám ơn ơn mọi người

Bạn không tính tới trường hợp khi hide cột, thì cái check box cũng bị ảnh hưởng ah? bạn thử đi rùi đửa ra option khác.

 

[bucminh99]

Bạn không tính tới trường hợp khi hide cột, thì cái check box cũng bị ảnh hưởng ah? bạn thử đi rùi đửa ra option khác.

Cái này đơn giản mà.
1. Các option để hàng dọc ở Cột A, bảng tính bắt đầu ở Cột B trở đi.
2. Các option để ở cột không bao giờ bị ẩn: vidu cột STT, cột tên hạng mục chính
File mẫu mình làm ví dụ vậy. Còn khi có button, checkbox mang marco rồi, thì cắt ra vị trí khác, chắc ko vấn đề.

 

[quanluu]

Cái này đơn giản mà.
1. Các option để hàng dọc ở Cột A, bảng tính bắt đầu ở Cột B trở đi.
2. Các option để ở cột không bao giờ bị ẩn: vidu cột STT, cột tên hạng mục chính
File mẫu mình làm ví dụ vậy. Còn khi có button, checkbox mang marco rồi, thì cắt ra vị trí khác, chắc ko vấn đề.

Tại bạn nói check box ở cột nào thì ẩn cột đó mà. Bạn sắp xếp lại và gửi lại file xem thế nào.

 

[bucminh99]

Minhf xin gửi lại file nhé

 

[phulien1902]

Minhf xin gửi lại file nhé

Thử với:

Private Sub CheckBox1_Click()
    Columns("C:D").Hidden =  CheckBox1.Value
End Sub

Private Sub CheckBox2_Click()
    Columns("I:I").Hidden =  CheckBox2.Value
End Sub

 

[bucminh99]

Mình đã thử, nhưng chỉ chạy được với Hide 1, Hide2 cố định như file ban đầu.
Nhưng khi mình thử thêm Hide 1 ở các ô khác, mở rộng phạm vi tác dụng của marco thì ko đc.
Bạn giúp mình nhé., cái này rất có ý nghĩa với công việc của mình

 

[bucminh99]

Mình hoàn toàn ko biết gì marco nhưng xem cũng đoán được đại ý nó như này

Private Sub CheckBox1_Click() ( sự kiện click nút checkbox)
Columns("C").Hidden = CheckBox1.Value
(Sự ẩn hiện của cột column từ C đến D phụ thuộc vào giá trị checkbox1, mình muốn đổi lại như này
"Từ cột B- K, sự ẩn hiện của cột có điều kiện có giá trị Hide1 ở dưới phụ thuộc vào giá trị checkbox1)
End Sub

Private Sub CheckBox2_Click()
Columns("I:I").Hidden = CheckBox2.Value
End Sub

Như vậy ko đúng ý mình làm, mình muốn câu lệnh nó như này, "

 

[phulien1902]

Mình hoàn toàn ko biết gì marco nhưng xem cũng đoán được đại ý nó như này

Private Sub CheckBox1_Click() ( sự kiện click nút checkbox)
Columns("C").Hidden = CheckBox1.Value
(Sự ẩn hiện của cột column từ C đến D phụ thuộc vào giá trị checkbox1, mình muốn đổi lại như này
"Từ cột B- K, sự ẩn hiện của cột có điều kiện có giá trị Hide1 ở dưới phụ thuộc vào giá trị checkbox1)
End Sub

Private Sub CheckBox2_Click()
Columns("I:I").Hidden = CheckBox2.Value
End Sub

Như vậy ko đúng ý mình làm, mình muốn câu lệnh nó như này, "

Bạn thử:

Private Sub CheckBox1_Click()
    Columns("C:D,F:F,H:H").Hidden = CheckBox1.Value
End Sub
Private Sub CheckBox2_Click()
    Columns("I:I,M:M").Hidden = CheckBox2.Value
End Sub