代码控件EXCEL2010如何做多选对话框

本篇文章是一篇关于代码控件的帖子

    打开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
对话框和取消
---------------------------------

原文地址:https://www.cnblogs.com/xinyuyuanm/p/3098822.html