Hỏi về ẩn cột (1 người xem)

[matran25251325]

Yêu cầu em có ghi rõ trong file mong các anh ghé xem và giúp

 

[ndu96081631]

Yêu cầu em có ghi rõ trong file mong các anh ghé xem và giúp

Bạn có 3 vùng dữ liệu. Bạn muốn khi sử dụng vùng 1 thì vùng 2 và 3 ẩn đi
Nói khác hơn: Ẩn cột tùy ý
Vậy bạn dùng 3 cái checkbox đi:
- CheckBox1 đ/k ẩn hiện vùng 1
- CheckBox2 đ/k ẩn hiện vùng 2
- CheckBox3 đ/k ẩn hiện vùng 3

 

[matran25251325]

Dạ đúng là em muốn ẩn tùy ý. Thầy có thể hướng dẫn em cách tạo được không ạ?

 

[Ngoai Thanh]

Yêu cầu em có ghi rõ trong file mong các anh ghé xem và giúp

Thấy bài của thày NDU rồi, nhưng bạn ấy yêu cầu có lúc chọn cả 2 vùng, vậy chơi "củ chuối" vậy, thích ẩn cột nào thì bôi đen bấm "an", muốn hiện thì bôi đen bấm "Hien lai" .

 

[ndu96081631]

Xem file sẽ hiểu
Code của tôi chỉ có nhiêu đây:
Code:

Sub Main()
  Dim rng As Range, chk As CheckBox
  Set chk = Sheet1.CheckBoxes(Application.Caller)
  Set rng = Sheet1.Range(chk.ShapeRange.[B][COLOR=#ff0000]AlternativeText[/COLOR][/B])
  rng.EntireColumn.Hidden = (chk.Value = 1)
End Sub

Đương nhiên trên sheet đã vẽ sẵn 3 CheckBox (thuộc Forms Control)
Trong code có đoạn màu đỏ liên quan đến AlternativeText. Vậy bạn hãy Click phải vào từng CheckBox, chọn Format Control, chuyển sang tab Alt Text xem trong đó viết cái gì ---> Đấy chính là thiết lập ban đầu để biết CheckBox nào điều khiển vùng nào

 

[matran25251325]

Dạ em hiểu rồi thầy. Thầy có thể cho em hỏi thêm khi ẩn vùng dữ liệu nào đó thì giá trị vùng đó sẽ không được cộng, do đó sẽ bổ sung code như thế nào ạ. Ví dụ cột W = J + P + V; và nếu ẩn vùng K thì giá trị cột P sẽ = 0 hoặc không được cộng

 

[Ngoai Thanh]

[/CODE]
Đương nhiên trên sheet đã vẽ sẵn 3 CheckBox (thuộc Forms Control)
Trong code có đoạn màu đỏ liên quan đến AlternativeText. Vậy bạn hãy Click phải vào từng CheckBox, chọn Format Control, chuyển sang tab Alt Text xem trong đó viết cái gì ---> Đấy chính là thiết lập ban đầu để biết CheckBox nào điều khiển vùng nào[/QUOTE]
Cám ơn thày NDU !giải pháp tuyệt vời .

 

[ndu96081631]

Dạ em hiểu rồi thầy. Thầy có thể cho em hỏi thêm khi ẩn vùng dữ liệu nào đó thì giá trị vùng đó sẽ không được cộng, do đó sẽ bổ sung code như thế nào ạ. Ví dụ cột W = J + P + V; và nếu ẩn vùng K thì giá trị cột P sẽ = 0 hoặc không được cộng

Lý ra có thể dùng SUBTOTAL để tính tổng các cell không ẩn. Đáng tiếc, SUBTOTAL chỉ hoạt động với cell ẩn dòng chứ không hoạt động khi ẩn cột
Vậy nên bạn chỉ còn cách dùng For Next thôi ---> Duyệt qua các cell, cell nào có EntireColumn.Hidden = FALSE thì cộng vào
Vậy thôi

 

[matran25251325]

Lý ra có thể dùng SUBTOTAL để tính tổng các cell không ẩn. Đáng tiếc, SUBTOTAL chỉ hoạt động với cell ẩn dòng chứ không hoạt động khi ẩn cột
Vậy nên bạn chỉ còn cách dùng For Next thôi ---> Duyệt qua các cell, cell nào có EntireColumn.Hidden = FALSE thì cộng vào
Vậy thôi

Phần này thầy nói em chưa hiểu lắm

 

[ndu96081631]

Phần này thầy nói em chưa hiểu lắm

Tóm lại cứ For... Next rồi tính (cell nào không ẩn thì tính).
Tôi nghĩ bạn làm được

 

[matran25251325]

Dạ cảm ơn thầy. Oke rồi thầy