Code ẩn/hiện vùng hoặc dòng

[QuangMinhtb]

Xin nhờ anh, chị giúp đỡ:
1/ Ở sheet1:
Tích vào hộp thì ẩn vùng tô nền vàng (D4:G12)
Bỏ tích đi thì hiện vùng tô nền vàng tương đương với hiện cột (D đến G) và dòng (4 đến dòng 12) đã bị ẩn.
2/ Ở sheet 2:
Tích vào hộp thì dòng 2,3,4 (dòng tô nền xanh) ẩn
Bỏ tích đi thì hiện dòng 2,3,4
Em xin cảm ơn!

 

[phulien1902]

Xin nhờ anh, chị giúp đỡ:
1/ Ở sheet1:
Tích vào hộp thì ẩn vùng tô nền vàng (D4:G12)
Bỏ tích đi thì hiện vùng tô nền vàng tương đương với hiện cột (D đến G) và dòng (4 đến dòng 12) đã bị ẩn.
2/ Ở sheet 2:
Tích vào hộp thì dòng 2,3,4 (dòng tô nền xanh) ẩn
Bỏ tích đi thì hiện dòng 2,3,4
Em xin cảm ơn!
View attachment 228125View attachment 228126

Bạn thử với Sheet1

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then Sheet1.Columns("D:G").EntireColumn.Hidden = True
    If CheckBox1.Value = False Then Sheet1.Columns("D:G").EntireColumn.Hidden = False
End Sub

+ Với Sheet2:

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then Sheet2.Rows("2:4").EntireRow.Hidden = True
    If CheckBox2.Value = False Then Sheet2.Rows("2:4").EntireRow.Hidden = False
End Sub

 

[QuangMinhtb]

Bạn thử với Sheet1

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then Sheet1.Columns("D:G").EntireColumn.Hidden = True
    If CheckBox1.Value = False Then Sheet1.Columns("D:G").EntireColumn.Hidden = False
End Sub

+ Với Sheet2:

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then Sheet2.Rows("2:4").EntireRow.Hidden = True
    If CheckBox2.Value = False Then Sheet2.Rows("2:4").EntireRow.Hidden = False
End Sub

Em xin cám ơn!
Em có tham khảo code ẩn/hiện cột
copy trực tiếp vào sheet đó và điền cột cẩn ẩn hiện (không cần thêm tên sheet)
Có thể không điền tên sheet mà áp dụng để ẩn vùng và hàng được không ạ?
nếu chỉnh code mà để ẩn hiện được vùng hàng được chọn anh sửa giúp em>

Sub AnHien_Cot()
Dim Tmp As Range
    Set Tmp = Range("S:S,V:V").EntireColumn
    Tmp.Hidden = Not Tmp.Hidden
End Sub

 

[phulien1902]

Em xin cám ơn!
Em có tham khảo code ẩn/hiện cột
copy trực tiếp vào sheet đó và điền cột cẩn ẩn hiện (không cần thêm tên sheet)
Có thể không điền tên sheet mà áp dụng để ẩn vùng và hàng được không ạ?
nếu chỉnh code mà để ẩn hiện được vùng hàng được chọn anh sửa giúp em>

Sub AnHien_Cot()
Dim Tmp As Range
    Set Tmp = Range("S:S,V:V").EntireColumn
    Tmp.Hidden = Not Tmp.Hidden
End Sub

Bạn thử:

Sub AnHien_Cot()
Dim Tmp As Range
    Set Tmp = Selection.EntireColumn
    Tmp.Hidden = Not Tmp.Hidden
End Sub

 

[QuangMinhtb]

Bạn thử:

Sub AnHien_Cot()
Dim Tmp As Range
    Set Tmp = Selection.EntireColumn
    Tmp.Hidden = Not Tmp.Hidden
End Sub

Cám ơn anh đã giúp em.
Hơi chếch với ý em hỏi một chút hi:
Anh đã giúp em ẩn/hiện hàng và vùng mong muốn, hai code anh giúp em đó đều copy code đó vào sheet có hàng và vùng cần ẩn hiện
Và đoạn code anh giúp em đều có tên sheet, em nhờ anh có thể sửa giúp em bỏ tên sheet đó đi (giống như code ẩn cột mà em đã đưa lên) trong đoạn code, chỉ cần điền tên hàng hoặc vùng cẩn ẩn/hiện và copy code đó vào sheet là chạy được mà không cần điền tên sheet vào code đó.

 

[phulien1902]

Cám ơn anh đã giúp em.
Hơi chếch với ý em hỏi một chút hi:
Anh đã giúp em ẩn/hiện hàng và vùng mong muốn, hai code anh giúp em đó đều copy code đó vào sheet có hàng và vùng cần ẩn hiện
Và đoạn code anh giúp em đều có tên sheet, em nhờ anh có thể sửa giúp em bỏ tên sheet đó đi (giống như code ẩn cột mà em đã đưa lên) trong đoạn code, chỉ cần điền tên hàng hoặc vùng cẩn ẩn/hiện và copy code đó vào sheet là chạy được mà không cần điền tên sheet vào code đó.

Bạn thay:
Sheet1, Sheet2,....
bằng:

ActiveSheet

 

[QuangMinhtb]

Bạn thay:
Sheet1, Sheet2,....
bằng:

ActiveSheet

Cám ơn anh.
Chúc anh sức khỏe!