Xin giúp đỡ về File quản lý điểm

[amly1980]

Xin chào các thầy cao thủ viết code
xin các thầy giúp cho làm sao ẩn được một cột thông qua bằng nút lệnh điều khiển

 

[hoamattroicoi]

Xin chào các thầy cao thủ viết code
xin các thầy giúp cho làm sao ẩn được một cột thông qua bằng nút lệnh điều khiển

Nếu muốn ẩn cột như bạn yêu cầu thì bạn chạy đoạn code này :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Sheet1.[C:C].Columns.EntireColumn.Hidden = True
ElseIf CheckBox1.Value = False Then
    Sheet1.[C:C].Columns.EntireColumn.Hidden = False
End If
End Sub

 

[Ba Tê]

Nếu muốn ẩn cột như bạn yêu cầu thì bạn chạy đoạn code này :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Sheet1.[C:C].Columns.EntireColumn.Hidden = True
ElseIf CheckBox1.Value = False Then
    Sheet1.[C:C].Columns.EntireColumn.Hidden = False
End If
End Sub

Thử "túm gọn"như thế này coi nó chạy không?

Private Sub CheckBox1_Click()
If CheckBox1 Then
    Sheet1.[C:C].EntireColumn.Hidden = True
Else
    Sheet1.[C:C].EntireColumn.Hidden = False
End If
End Sub