[已解决]那位好心人帮我看看VB那里不对

mqvh

功能 使用复选框  打钩的时间 隐藏A列  不打钩的时间显示A列

Private Sub CheckBox1_Click()

If CheckBox1.Visible = True Then

   Columns("I:I").Select
    Selection.EntireColumn.Hidden = False
Else
Columns("I:I").Select
    Selection.EntireColumn.Hidden = True
   
    End If
   
End Sub

最佳答案

月排行榜 / 总排行榜

mn860429

2011-4-4 00:08

1. Private Sub CheckBox1_Click()
   
2.     If CheckBox1.Value Then
   
3.         Columns(1).Hidden = True
   
4.     Else
   
5.         Columns(1).Hidden = fasle
   
6.     End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

mn860429

1. Private Sub CheckBox1_Click()
   
2.     If CheckBox1.Value Then
   
3.         Columns(1).Hidden = True
   
4.     Else
   
5.         Columns(1).Hidden = fasle
   
6.     End If
   
7. End Sub
   

复制代码