本篇文章是一篇关于代码控件的帖子
打开excel应用程序
右键sheet1->查看代码
右键空白处->插入->用户窗体
弹出下图
向面板上放4个复选框也就是checkbox,两个button就是按钮,就是工具箱中的下图两个红线圈出来的
直接拖拽到userform1上即可,拖完如下
给添加的这些控件改名字:选中checkbox1过两秒之后再点击checkbox1,删除原来的名字“checkbox1” 输入“A”
剩下的几个一样改完名字之后如下图
接下来就开始写代码了
双击肯定按钮弹出如下图
我们要实现的目标就是实现多选,点击肯定后被勾选的内容表现到单元格中
那么用代码来实现就是点击肯定之后,
用代码来检查四个checkbox,将被勾选的选项内容连起来,我们用容器j来装勾选的内容,发现是被勾选的就加到j中
一共有四个复选框,它先检查第一个,如果为空的话说明没被勾选那么j就还是j,如果不为空的话将复选中的名字A或B或C或D存到j中,四个都检查完之后最后放到单元格内,关闭控件
具要写的代码
新增代码如下图
(点击取消的目标就是不想选了,关闭对话框
这里当点击取消时先弹出提示“肯定取消?”
点击“是”,就完全关闭控件,点击“否”,控件保留)
开始写代码了:再双击“取消”按钮,先表现如下代码
增长代码后如下
(接下来还有代码要写
就是选中国哪些单元格它才弹出多选对话框呢,而且只有单元格为空时我们才触发控件,单元格中有值就不触发了这是放在单元格上的条件
假如我们想在sheet1表中的第一列实现这个功能
也就是如果我们选中sheet1中的第一列中的某个单元格,如果这个单元格为空那么就触发多选控件,供我们选择)
开始写代码了:右键sheet1表,选择查看代码
表现空白代码区
点击通用下拉框,选择worksheet
主动变成如下
增长代码后变成
这时我们回到sheet1中,任选第一列的任意单元格就是弹出多选控件如下图:
勾选ABC后点击“肯定”,ABC被选到单元格中
功败垂成
最后我们在保存文件时一定要保存成如下格式的
文章结束给大家分享下程序员的一些笑话语录:
PC软件体积大,是因为一个PC软件功能往往较多,能够满足你一个方面的需求,而一个iphone软件往往没几行代码,干一件很小的事情,自然需要的软件就多。就像吃西瓜和吃瓜子的来比数目,单位不同啊。
---------------------------------
原创文章 By
对话框和取消
---------------------------------