精华内容
下载资源
问答
  • 动动鼠标,制作比数据有效性更炫酷的下拉菜单然后更进一步的问题是,如何制作显示多列同时可以选择多项下拉菜单?比如下图酱紫,显示三列下拉菜单,可以选择任意多个项目合并到一个单元格……打个响指……打开书抄...
    哈罗,我是星光,话说咱们很久以前分享过一个教程,如何制作显示多列内容的下拉菜单?动动鼠标,制作比数据有效性更炫酷的下拉菜单然后更进一步的问题是,如何制作显示多列同时可以选择多项的下拉菜单?比如下图酱紫,显示三列下拉菜单,可以选择任意多个项目合并到一个单元格……d4c8a0f71739b48091c658299fe8ae5a.gif
    打个响指……打开书抄段代码,待会回来。
    .首先,咱们得有个数据表,用来填充选项菜单的数据。嗯,我们把这份工作表命名为“参数表”,数据如下图所示。A列是商品代码,B列是商品,C列是负责人。3eeaa4f0827b5f60289696edd092a9ea.png
    然后,我们在需要制作选项菜单的工作表放一个列表框控件。
    具体步骤是在【开发工具】选项卡下单击【插入】按钮,在弹出来的选项菜单中选择ActiveX控件列表框,画在当前工作表。位置随便,大小不论,丑美无关……毕竟这些你说了都不算,待会代码会设置。adcc8d1b6a250ebd112b12a0d107c423.png
    需要说明的是,如果这是你放置的第1个列表框控件,它会被系统默认名称为ListBox1。这个名字很重要,代码里都是按这个名字控制它的
    最后退出设计模式,也就是点击【开发工具】选项卡下的【设计模式】按钮。8c564e82e2d7c70f17e068ed3a3206b8.png
    好了,把以下代码复制粘贴到目标工作表的VBE编辑窗口即可。比如我们这里是粘贴到名称为“入库单”工作表。
    0469ee7321f7a8b4ccb8156054a30090.png
    代码如下:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Column <> 2 Or Target.Row < 4 Then ListBox1.Visible = False: Exit Sub
        '如果选中的单元格不是第2列,或者小于4行,也就是不在目标范围内,则退出程序
        If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then ListBox1.Visible = False: Exit Sub
        '如果选中的单元格大于1个,则退出程序
        With Sheets("参数表")
            r = .Range("a1:c" & .Cells(Rows.Count, "a").End(xlUp).Row).Value
        End With
        With ListBox1
            '调整位置到单元格处
            .Top = Target.Top 'listbox的顶端位置
            .Left = Target.Left + Target.Width 'listbox的左端位置
            .Width = 250 '宽度
            .Height = 150 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 3 '三列
            .ColumnWidths = "50;120;50" '设置第一列宽度50第二列宽度120……
            .List = r '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
    End Sub
    Private Sub ListBox1_Change()
        Dim i As Long, strMy As String
        With ListBox1
            If .Selected(0) = True Then .Selected(0) = False
            '如果用户选取的是标题行那么撤销选取
            For i = 1 To .ListCount - 1
            '遍历listbox的记录,如果被选中则按换行符合并
                If .Selected(i) = True Then
                    strMy = strMy & vbCrLf & .List(i, 1)
                    '取list的第二列
                    '无论列还是行的索引都是从0开始的,因此第二列为1
                End If
            Next
        End With
        ActiveCell.Value = Mid(strMy, 3)
        '数据写入单元格
    End Sub

    小贴士:
    代码有两个部分,一部分是工作表的Worksheet_SelectionChange事件。当用户选择单元格时,设置列表框的位置、大小和数据。本例中列表框只出现在B列,且行数大于3的情况下。这个可以根据实际情况,自己进行修改。另一部分是列表框的ListBox1_Change事件,当用户选择列表框的数据时,将数据写入单元格。其实相关代码都有注释,这里就不再啰嗦了示例文件下载:https://pan.baidu.com/s/1sKf9dl64E8ocKYWxY7Edng
    提取码:ebgb

    更多资源和教程

    • 零基础学SQL in Excel 25篇合集

    • VBA爱好者请进,VBA代码宝概述


    ©EH看见星光

    1434391bae344b4c54375583b2cb9c49.png

    《VBA经典代码应用大全》当当、天猫、京东均有销售~
    展开全文
  • 动动鼠标,制作比数据有效性更炫酷的下拉菜单然后更进一步的问题是,如何制作显示多列同时可以选择多项下拉菜单?比如下图酱紫,显示三列下拉菜单,可以选择任意多个项目合并到一个单元格……打个响指……发个广告...

    HI,大家好,我是星光。

    很久以前我们分享过一个教程,如何制作显示多列内容的下拉菜单?

    动动鼠标,制作比数据有效性更炫酷的下拉菜单

    然后更进一步的问题是,如何制作显示多列同时可以选择多项的下拉菜单?

    比如下图酱紫,显示三列下拉菜单,可以选择任意多个项目合并到一个单元格……

    a8287c0136be79b4d8f748eb83681548.gif

    打个响指……发个广告,待会回来。

    .

    假装

    广告

    .

    首先,咱们得有个数据表,用来填充选项菜单的数据。嗯,我们把这份工作表命名为“参数表”,数据如下图所示。A列是商品代码,B列是商品,C列是负责人。

    abc35fcc6c247f1869ae6ea368caf4be.png

    然后,我们在需要制作选项菜单的工作表放一个列表框控件。

    具体步骤是在【开发工具】选项卡下单击【插入】按钮,在弹出来的选项菜单中选择ActiveX控件列表框,画在当前工作表。位置随便,大小不论,丑美无关……毕竟这些你说了都不算,待会代码会设置。

    5ec9532e9efb8caa4aba2cf591685970.png

    需要说明的是,如果这是你放置的第1个列表框控件,它会被系统默认名称为ListBox1。这个名字很重要,代码里都是按这个名字控制它的。

    最后退出设计模式,也就是点击【开发工具】选项卡下的【设计模式】按钮。

    cf75d4fc283927e06e6a49fd80ba9cb5.png

    好了,把以下代码复制粘贴到目标工作表的VBE编辑窗口即可。比如我们这里是粘贴到名称为“入库单”工作表。

    8b50dd71d3424f25a0bf9a51b472a1fb.png

    代码如下:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Column <> 2 Or Target.Row < 4 Then ListBox1.Visible = False: Exit Sub
        '如果选中的单元格不是第2列,或者小于4行,也就是不在目标范围内,则退出程序
        If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then ListBox1.Visible = False: Exit Sub
        '如果选中的单元格大于1个,则退出程序
        With Sheets("参数表")
            r = .Range("a1:c" & .Cells(Rows.Count, "a").End(xlUp).Row).Value
        End With
        With ListBox1
            '调整位置到单元格处
            .Top = Target.Top 'listbox的顶端位置
            .Left = Target.Left + Target.Width 'listbox的左端位置
            .Width = 250 '宽度
            .Height = 150 '高度
            .Visible = True '可见
            '.ColumnHeads = True '显示标题行
            .ColumnCount = 3 '三列
            .ColumnWidths = "50;120;50" '设置第一列宽度50第二列宽度120……
            .List = r '数据来源
            .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
            .ListStyle = fmListStyleOption '选项按钮设置为方形
        End With
    End Sub
    Private Sub ListBox1_Change()
        Dim i As Long, strMy As String
        With ListBox1
            If .Selected(0) = True Then .Selected(0) = False
            '如果用户选取的是标题行那么撤销选取
            For i = 1 To .ListCount - 1
            '遍历listbox的记录,如果被选中则按换行符合并
                If .Selected(i) = True Then
                    strMy = strMy & vbCrLf & .List(i, 1)
                    '取list的第二列
                    '无论列还是行的索引都是从0开始的,因此第二列为1
                End If
            Next
        End With
        ActiveCell.Value = Mid(strMy, 3)
        '数据写入单元格
    End Sub

    小贴士:

    代码有两个部分,一部分是工作表的Worksheet_SelectionChange事件。当用户选择单元格时,设置列表框的位置、大小和数据。本例中列表框只出现在B列,且行数大于3的情况下。这个可以根据实际情况,自己进行修改。

    另一部分是列表框的ListBox1_Change事件,当用户选择列表框的数据时,将数据写入单元格。

    其实相关代码都有注释,这里就不再啰嗦了。

    示例文件下载:https://pan.baidu.com/s/1sKf9dl64E8ocKYWxY7Edng  提取码:ebgb

    晚安。

    展开全文
  • 在表格的中录入人员信息时,针对...Excel制作多级下拉菜单,选择录入更高效但是,很同学可能不知道,其实在Word也可以制作下拉列表。今天 ,和大家分享在Word中如何制作下拉列表。演示效果演示效果通过上图我们可...

    在表格的中录入人员信息时,针对“性别”、“婚姻状态”、“学历”等信息,我们可以通过“下拉选项卡”来提高录入效率及降低出错概率。

    前面我们和大家分享在Excel中制作下拉菜单的方法,可点击下方链接查看:

    输入太慢、总是打错字?Excel制作多级下拉菜单,选择录入更高效

    但是,很多同学可能不知道,其实在Word也可以制作下拉列表。

    今天 ,和大家分享在Word中如何制作下拉列表。

    演示效果

    7e2ccbb890e72a8b74a911d1f70b6235.gif

    演示效果

    通过上图我们可以看到通过下拉选项卡可以高效的录入固定项,那么,这种下拉列表选项卡应该如何制作呢?

    操作方法

    一、添加“开发工具”选项卡

    因为制作需要使用到“下拉列表控件”,需要先添加“开发工具”选项卡。

    在选项卡功能区按右键,选择“自定义功能区”,打开Word选项对话框,在自定义功能区选项卡右侧,勾选“开发工具”。

    c47b020443f27cd3870a0e3e22bb7f95.gif

    添加“开发工具”选项卡

    二、插入“下拉列表内容控件”

    光标定位于单元格中,点击“开发工具”选项卡——控件——下拉列表内容控件。

    5debd6e9fad93654b9c21d0fad064213.gif

    插入“下拉列表内容控件”

    三、设置控件属性

    选择“下拉列表内容控件”,点击“开发工具”选项卡——控件——控件属性,打开内容控件属性对话框 ,点击下方“添加”按钮,添加下拉列表属性内容。

    5b53d9248b5625774120a9d0fdf9ab65.gif

    添加下拉列表选项内容

    设置好属性后,将下拉列表控件复制到下一单元格中,其他的单元格直接按【F4】重复操作即可。

    62b72ba864c02264f61b500b6c550418.gif

    将设置好的下拉列表复制到其他单元格

    到此,下拉列表制作完成,我们可以通过点击下拉列表,从中选择快速录入固定项。

    下拉列表可以重复选择,但如果在控制属性设置中勾选了“内容被编辑后删除内容控件”,那么选择一次后下拉列表控件将被删除,不能再次选择。

    57a9c807b299c3775a2a44c1a4486fcb.gif

    勾选“内容被编辑后删除内容控件”只能使用一次

    好了,今天有关Word制作下拉列表的内容就分享到这里,您学会了吗?如果您有更好的技巧,欢迎下方留言评论和我们分享,喜欢【稻客说】请为我们点赞。关注我们,掌握更多办公技巧。

    展开全文
  • Excel 如何 设置 下拉列表 下拉框

    千次阅读 2011-06-07 16:10:00
    5.在"来源"里输入下拉选择项,用英文逗号隔开,点击"确定". 整列单元格设置:1.如果没有列名的话,选中整列,其他的操作跟上面一样;2.如果有列名的话,先把整列都设置成下拉框列,然后只选中列的第一行

    单个或多个单元格设置:

    1.选中单元格 点击菜单栏的"数据"-"有效性";

    2.选择"设置"选项卡(默认也就是选中这个选项卡);

    3.在"允许"下拉框中选择"序列";

    4.勾上"忽略空值","提供下拉箭头";

    5.在"来源"里输入下拉选择项,用英文逗号隔开,点击"确定".

     

    整列单元格设置:

    1.如果没有列名的话,选中整列,其他的操作跟上面一样;

    2.如果有列名的话,先把整列都设置成下拉框列,然后只选中列的第一行,点击菜单栏的"数据"-"有效性"-"设置"-"允许"下拉框中选择"任何值",也就是只把第一行再改回来.

    展开全文
  • 相信很朋友都想通过Excel数据有效性实现多级联动下拉列表的制作,多级联动下拉列表就是第一列选择了某,第二列则只会提供相对应的选项供我们选择,这个在网页中可以经常看到。  现在EXCEL也可以实现这样的效果...
  • FineUI模拟树下拉列表

    2014-05-06 10:40:00
    时候,我们希望在下拉列表中显示简单树状的层次结构,在菜单设置、机构设置等场景下这个需求尤为突出。也是基于项目需求的考虑,FineUI增加了模拟树的下拉列表的功能,显示效果如下所示: 注意,这里不仅...
  • 当这些查询下拉列表放在一个接口里返回,我使用request+params动态获取下拉数据就会造成次请求 <h3>💻 示例代码 <pre><code> const getWorkOrderEnums = async (p: any) => { ...
  • PART1 前言Dropdown(下拉菜单)是界面设计中的常用控件,它可以用下拉列表展示多个内容标签,用户能从预定的列表中选择一项或多项。在研究相关控件时,会发现这个控件有很多不同的名称:下拉菜单、下拉...
  • 用户在使用win7电脑浏览网站... 取消禁用加载操作方法: 1、打开浏览器,在命令栏点击工具下拉列表: 2、在命令栏工具下拉列表里面选择internet选项,如图所示标注: 3、在internet选项窗口选择程序页签,...
  •  问题描述: 我想实现下拉列表联动的功能,例如有三个下拉列表A、B、C,当选择下拉列表A中的数据后,下拉列表B中的数据发生相应的变化,选择下拉列表的B时下拉列表C的数据发生相应的变化。当然是采用...
  • 文章目录1、下拉列表2、日期选择器3、时间选择器4、单项选择5、多项选择6、TextView、EditView、Button、ImageView7、ProgressBar(进度条)8、AlertDialog 1、下拉列表 如何创建下拉列表如何下拉列表适配数据源,...
  • 新手问题,每次droppeddown =true时,都会清空text,并自动选择了第一,使用textupdate事件,并且text为空或者焦点移动时,因为下拉列表会清空,如果不在开始时进行droppeddown = false,会报index不能为0的错,...
  • QQ作为国内目前用户量最大的社交软件,它在很大程度上影响着我们的日常生活与社交方式。而QQ相册就是非常受欢迎的...我们下载好固乔电商图片助手后,在上方导航栏点击工具,然后选择下拉列表中的“扣扣空间下图”。 .
  • 多媒体教室

    2013-06-14 08:10:31
    1、打开控制面板的网络设置,将 TCP/IP 协议添加到网络组件中(如下图),再选择与网卡绑定的 TCP/IP 协议。 2、在 TCP/IP 属性页中设置正确的 IP 地址,注意不要使 IP 地址重复,设置完成后重新启动计算机。 注:...
  •  一、多项选择(CheckBox)多项选择与单项选择实现类似,都是需要监听每个控件。 二、下拉列表(Spinner)实例分析:该实例主要实现一个下拉列表血型的选择。 【关注点】1. 可选内容如何与下
  • 如何重装系统 方法1: 首先,确定你的光驱是第一启动顺序并支持从光驱启动。 要从光盘安装,要把BIOS进行设置,使系统能够从光盘启动。其方法如下: (1)启动计算机,当屏幕上显示 Press Del to Enter BIOS Setup...
  • VS2008自定义快捷键

    千次阅读 2012-12-01 12:34:05
    以增加注释为例: (1)选择【工具】>>【自定义】>>【键盘】,在弹出的导引窗体中,选择【新快捷键用于】的下拉...其实主要的命令都在中心位置的下拉列表中,貌似命令行很哎,怎么办呢?我选择搜索功能,即紧邻下拉列
  • react ntive snippet的妙用

    2016-11-07 15:52:51
    我们知道很开发工具新建文件时,在新建的文件里面会默认的代码,这些代码无疑会提升开发效率,今天我谈谈如何在Visual studio code里面添加模板代码。...2.在新的下拉列表选择“纯文本”在新出现的文...
  • Visual C++编程技巧精选500例.pdf

    热门讨论 2012-09-01 15:01:50
    041 如何获取文件对话框选择个文件? 042 如何在程序启动时弹出文件打开对话框? 第4章 标题栏与菜单栏 043 如何获取标题栏高度? 044 如何设置标题栏文字? 045 如何获取标题栏文字颜色? 046 如何设置标题栏文字...
  • 如何在“文件”对话框中选择多个文件  21.如何从“文件”对话框中获取文件标题名  22.如何从“文件”对话框中获取文件扩展名  23.如何在“文件”对话框中预览位图文件  24.如何创建一个文件“保存”...
  • 20.如何在“文件”对话框中选择多个文件 21.如何从“文件”对话框中获取文件标题名 22.如何从“文件”对话框中获取文件扩展名 23.如何在“文件”对话框中预览位图文件 24.如何创建一个文件“保存”对话框 25.如何在...
  • 第一部分 界面设计

    2013-10-22 23:10:34
    实例100 如何在文件打开对话框中选择多个文件 实例101 如何定制文件打开和关闭对话框 实例102 如何修改文件打开对话框的按钮标题 实例103 如何使用查找与替换对话框 实例104 如何获取和设置当前目录 实例105 ...
  • C#开发经验技巧宝典

    2008-10-14 20:07:26
    0355 如何实现ListBox控件的多项选择功能 196 0356 如何在ListBox控件中查找指定的项 196 0357 实现ListBox控件与ListBox控件交换数据 197 9.7 ListView控件应用技巧 198 0358 如何实现ListView控件实现...
  • 在给CComboBox的属性框中加入多项如何换行 如何在下拉框里显示上几次程序运行的输入信息 如何改变对话框DoModal的返回值 怎样弹出选择目录的对话框 第4章 一般窗口及界面设计 如何设定窗口的背景色 如何生成任意...
  • 实例100 如何在文件打开对话框中选择多个文件 实例101 如何定制文件打开和关闭对话框 实例102 如何修改文件打开对话框的按钮标题 实例103 如何使用查找与替换对话框 实例104 如何获取和设置当前目录 实例105 ...
  • 实例100 如何在文件打开对话框中选择多个文件 实例101 如何定制文件打开和关闭对话框 实例102 如何修改文件打开对话框的按钮标题 实例103 如何使用查找与替换对话框 实例104 如何获取和设置当前目录 实例105 ...
  • CHotkeyControl-源码

    2021-05-13 00:41:58
    它由一个ListBox组成-当前绑定显示为选定,用户可以下拉列表选择各种绑定选项,例如Rebind,Toggle Wild Mode / Passthrough等。 计划功能 能够识别AHK可以为其声明热键的任何输入。 键盘,鼠标和操纵杆或其...
  • wxPython学习手册

    热门讨论 2014-04-19 08:01:58
    13.3.1 如何响应用户在列表中的选择? 410 13.3.2 如何响应用户在一个列的首部中的选择? 411 13.4 编辑并排序列表控件 417 13.4.1 如何编辑标签? 417 13.4.2 如何列表排序? 418 13 / 565 在创建的时候告诉列表...

空空如也

空空如也

1 2 3 4 5 ... 12
收藏数 229
精华内容 91
关键字:

下拉列表如何多项选择