[已解决]【高手帮忙】隐藏列和checkbox记忆

worm1

要求：
1.按照我的勾选选择性隐藏列
2.checkbox自动记忆打钩状态
test.rar (11.55 KB, 下载次数: 8)

2011-1-13 14:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-1-13 15:27

Private Sub CheckBox1_Click()
    Range("J:K,X:Y,AL:AM,AZ:BA").EntireColumn.Hidden = Not (CheckBox1.Value)
End Sub
Private Sub CheckBox2_Click()
    Range("L:M,Z:AA,AN:AO,BB:BC").EntireColumn.Hidden = Not (CheckBox2.Value)
End Sub
Private Sub CheckBox3_Click()
    Range("P:Q,AD:AE,AR:AS,BF:BG").EntireColumn.Hidden = Not (CheckBox3.Value)
End Sub
Private Sub CheckBox4_Click()
    Range("T:U,AH:AI,AV:AW,BJ:BK").EntireColumn.Hidden = Not (CheckBox4.Value)
End Sub

Private Sub UserForm_Activate()
CheckBox1.Value = Not (Range("J:J").EntireColumn.Hidden)
CheckBox2.Value = Not (Range("L:L").EntireColumn.Hidden)
CheckBox3.Value = Not (Range("P:P").EntireColumn.Hidden)
CheckBox4.Value = Not (Range("T:T").EntireColumn.Hidden)
End Sub

多谢楼下提醒，， 附件的代码未加 NOT（）

跳转到最佳答案楼层

Zipall

问题1

Private Sub CheckBox1_Click()
    If CheckBox1 Then Range("J:K,X:Y,AL:AM,AZ:BA").EntireColumn.Hidden = True Else Range("J:K,X:Y,AL:AM,AZ:BA").EntireColumn.Hidden = False
End Sub

PS：CheckBox1的默认属性是Value而不是enable，Value的类型本身就是逻辑值，所以不需要再用计算式判断。

问题2
将checkbox的值存储在单元格中，在窗体初始化Private Sub UserForm_Initialize()时读取相应单元格中的值。
另外如果不是必须，可以用
setup.Hide 代替 unload setup

mxg825

Private Sub CheckBox1_Click()
    Range("J:K,X:Y,AL:AM,AZ:BA").EntireColumn.Hidden = Not (CheckBox1.Value)
End Sub
Private Sub CheckBox2_Click()
    Range("L:M,Z:AA,AN:AO,BB:BC").EntireColumn.Hidden = Not (CheckBox2.Value)
End Sub
Private Sub CheckBox3_Click()
    Range("P:Q,AD:AE,AR:AS,BF:BG").EntireColumn.Hidden = Not (CheckBox3.Value)
End Sub
Private Sub CheckBox4_Click()
    Range("T:U,AH:AI,AV:AW,BJ:BK").EntireColumn.Hidden = Not (CheckBox4.Value)
End Sub

Private Sub UserForm_Activate()
CheckBox1.Value = Not (Range("J:J").EntireColumn.Hidden)
CheckBox2.Value = Not (Range("L:L").EntireColumn.Hidden)
CheckBox3.Value = Not (Range("P:P").EntireColumn.Hidden)
CheckBox4.Value = Not (Range("T:T").EntireColumn.Hidden)
End Sub

多谢楼下提醒，， 附件的代码未加 NOT（）

worm1

mxg825 发表于 2011-1-13 15:27
Private Sub CheckBox1_Click()
    Range("J:K,X:Y,AL:AM,AZ:BA").EntireColumn.Hidden = CheckBox1.Valu ...

虽然3楼的回复很好，但是好像和要求有点出入，应该改为：
Range("J:K,X:Y,AL:AM,AZ:BA").EntireColumn.Hidden = Not (CheckBox1.Value)     ‘请为需要显示的年份打钩