如何实现单击窗体上CommandButton1使其它控件的某个属性值在True和False之间来回切换?

楼主 0Mouse	Q：如何实现单击窗体上CommandButton1使其它控件的某个属性值在True和False之间来回切换? 示例：如何实现单击UserForm1上的CommandButton1控件可以使CheckBox1控件在“可见”与“隐藏”两种状态之间来回切换呢？效果动画： A：通过设置CheckBox1控件的Visible属性值在True（-1）和False（0）之间来回切换即可，代码如下： '控件的某一属性值在True（-1）和False（0）之间来回切换1： Private Sub CommandButton1_Click() If CheckBox1.Visible = True Then CheckBox1.Visible = False Else CheckBox1.Visible = True End If End Sub '控件的某一属性值在True（-1）和False（0）之间来回切换2： Private Sub CommandButton1_Click() CheckBox1.Visible = IIf(CheckBox1.Visible, False, True) End Sub '控件的某一属性值在True（-1）和False（0）之间来回切换3： Private Sub CommandButton1_Click() CheckBox1.Visible = CheckBox1.Visible + 1 End Sub '控件的某一属性值在True（-1）和False（0）之间来回切换4： Private Sub CommandButton1_Click() CheckBox1.Visible = Not CheckBox1.Visible End Sub 附件：单击窗体上的CommandButton1使其它控件的某个属性值在True和False之间来回切换.rar
2楼 xyf2210	学习
3楼 ccj11110708	请问下能否在1个userform里面用checkbox控制某个工作表的隐藏和显示？或者button也行但是要能看出表是隐藏还是显示？谢谢了
4楼 0Mouse	下载附件试试看！按钮的写法类似。 Private Sub CheckBox1_Click() Sheet1.Visible = Not Sheet1.Visible CheckBox1.Caption = IIf(Sheet1.Visible = 0, "目前隐藏，单击显示。", "目前可见，单击隐藏。") End Sub Private Sub UserForm_Initialize() CheckBox1.Caption = IIf(Sheet1.Visible = 0, "目前隐藏，单击显示。", "目前可见，单击隐藏。") End Sub 附件： xqoa.rar
5楼 ccj11110708	谢谢学习了
6楼 ccj11110708	你好版主我按照你的自己搞了个我需要的但是还有一点不大明白你的打开时候Caption就有显示的我的打开Caption就是checkbox1 没有显示这是为什么？
7楼 0Mouse
8楼 ccj11110708	这个我还是注意的这样应该没有问题就是没有初始化的值
9楼 ccj11110708	额好了我把Private Sub userform3_Initialize() 改为Private Sub userform_Initialize() 就行了因为我的是在userform3里做的所以我加了个3 这个不是申明 userform3的初始值吗？为什么userform才行？
10楼 ccj11110708	稍等等我把所有的都做完了。。
11楼 ccj11110708	你好版主這是我做的新手所以做的比較粗糙我想在我做的表格中增加一個功能资产评估申报表0.0.1.rar 多工作簿的汇总比如都有按这个格式的A、B、C三张表我要在空白的这个格式中汇总各张明细表的内容估计用不了SQL 因为SQL会有合并单元格的问题打开的空白格式表D 选中一个文件夹（里面有 A、B、C三张表），将对应的sheet8内容复制到D的sheet8中（有的汇总表是不需要复制的），要复制的都在第7行开始，寻找最后一行可否用这个代码Cells.Find("*", SearchDirection:=xlPrevious).Row 希望版主做一个选择文件夹的可以合并sheet8的宏剩下的繁琐的确定哪几个sheet要合并的就我来弄吧谢谢表格所有的密码都是ztpg
12楼 0Mouse	判断某列最后一个非空单元格的行号一般用 Cells(Rows.Count, 1).End(xlUp).Row