zoukankan      html  css  js  c++  java
  • 代码控件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
    对话框和取消
    ---------------------------------

  • 相关阅读:
    关于ie7下display:inline-block;不支持的解决方案。
    Unicode转义序列
    DOMContentLoaded与load的区别
    有关列分组,定义css样式无效的问题
    多行文字溢出[...]的实现(text-overflow: ellipsis)
    goahead cgi 及出现的问题解决
    Android面试题整理(1)
    回溯法 之 马周游(马跳日)问题
    软件工程总结
    [置顶] 每日震精图
  • 原文地址:https://www.cnblogs.com/xinyuyuanm/p/3098822.html
Copyright © 2011-2022 走看看