excel不能插入activex控件_用excel做下拉多选菜单

先看视频：

下拉多选菜单https://www.zhihu.com/video/1070640311239249920

在日常工作中，有时候我们需要在单元格中输入多个固定内容的某几个项，手动输入很麻烦，我今天就带大家用excel的vba制作多选输入菜单。

以excel 2010为例

1、开启宏设置

新建excel，打开，依次点击：文件→选项→信任中心→信任中心设置→ActiveX设置，按下图选择，点击确认。

2、添加开发工具

依次点击：文件→选项→自定义功能区，右侧选择“所有选项卡”，下面勾选“开发工具”，点确认。

3、重命名sheet1为主表，sheet2位复选，在复选表中添加要在下拉菜单中呈现的数据。

注意：本示例中，复选表中的数据是从E列开始的，主表中能显示下拉菜单的列，也是从E列开始的。

4、插入listbox控件，设置属性

点击excel菜单“开发工具”，点击插入，选择“列表框”，在excel中画一个列表框控件，鼠标右键此控件，选择属性，在打开的属性对话框里将ListStyle设置为1-fmListStyleOption，将Multiselest设置为1-fmMultiSelectMulti，并确保“（名称）”属性为ListBox1

https://www.zhihu.com/video/1070647988464115712

5、点击主表，再点击Excel菜单“开发工具”，选择“查看代码”，复制下面的代码

Private Sub ListBox1_Change()
Dim TXT As String
Dim i As Integer, k As Integer
TXT = ""
k = 0
For i = 0 To ListBox1.ListCount - 1If ListBox1.Selected(i) = True Thenk = k + 1If TXT = "" ThenTXT = k & "." & ListBox1.List(i)ElseTXT = TXT & vbCrLf & k & "." & ListBox1.List(i)End If'TXT = IIf(TXT = "", ListBox1.List(i), TXT & "," & ListBox1.List(i))End If
Next
ActiveCell.Value = TXT
End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DSoucre As String
Dim EndRow As Long
Dim ColName As String
If Selection.Count <> 1 Then ListBox1.Visible = False: Exit Sub
If Not (Target.Row > 3 And Target.Column > 4) ThenListBox1.Visible = FalseExit Sub
End If
'MsgBox Split(Target.Address, "$")(1)
ColName = Split(Target.Address, "$")(1)
EndRow = Sheets("复选").Columns(ColName & ":" & ColName).Find("*", , , , xlByRows, xlPrevious).Row
If EndRow <= 2 ThenMsgBox "无数据"Exit Sub
End If
DSoucre = "复选!" & ColName & "2:" & ColName & EndRow
With ListBox1.ListFillRange = DSoucre.ListStyle = fmListStyleOption.MultiSelect = fmMultiSelectMulti.Top = Target.Top + Target.Height.Left = Target.Left.Width = Target.WidthListBox1.Visible = True
End With
End Sub

https://www.zhihu.com/video/1070651553697824768

以上...

下节课继续，但是我不知道要写什么......

评论里可以提要求，我会选一个，下节课出教程

ps: 如果有特别需求需要定制，可以私信我

excel不能插入activex控件_用excel做下拉多选菜单相关推荐

excel不能插入activex控件_办公小技巧：制作更炫酷的Excel下拉菜单
在Excel中制作下拉菜单,大都是利用数据有效性,再有就是表单控件中的组合框.数据有效性或表单控件组合框制作下拉菜单,快捷.便利.实用.功能很全面,但也有力所不及的地方,比如设置下拉菜单的字体.颜色. ...
Office2010,PPT,EXCEL如何插入日历控件
1 在Office2010中插入其他控件,然后找到日历控件 2 十字架随便在Excel中绘制一下,得到一个日历控件,注意此时还是在设计模式下,在设计模式下日历控件不是正常状态,你还是可以双击这个控件进 ...
excel数据输入窗体控件_工作表数据输入或Excel用户窗体
excel数据输入窗体控件 If you're building an Excel workbook, in which users with basic Excel skills will ente ...
easyui 动态设置单元格控件_比Excel还简单，实现动态报表原来只需要十分钟！
做过报表的人,尤其是经常有报表需求的人,想必都会有这样一个困惑: 为什么同样是做报表,其他人的报表就能够得到领导的肯定,而自己的报表就会被老板丢掉一边? 这个问题其实很好回答,你想一想,如果你是老板, ...
python 操作 windows 控件_在中文windows下使用pywinauto进行窗口操作（一）
这两天开始接触pywinauto,听说百度的自动化QA也用这个模块,于是来了兴趣,但网上的教程很少,而且基本上都是拿官方的notepad来说,首先中文菜单的支持是问题,其次各种操作也没有写清楚,阅读官 ...
bootstrap-table之通用方法（时间控件，导出，动态下拉框，表单验证，选中与获取信息）
1.bootstrap-table 单击单行选中 $('#gzrwTable').on('click-row.bs.table', function(e, row, $element) { $('.s ...
ajax 下拉刷新上拉加载更多,局部刷新iscroll控件的具体使用（下拉刷新，上拉加载更多）...
标签下,这是调用iscroll的必要条件,否则会出现不能刷新或者不能滑动页面的情况.此外还有商量刷新及下拉刷新的标签,在iscroll中有这两个标签的样式,若不想用默认的样式,也可通过覆盖的方式添加其 ...
Android自定义组合控件---教你如何自定义下拉刷新和左滑删除
绪论最近项目里面用到了下拉刷新和左滑删除,网上找了找并没有可以用的,有比较好的左滑删除,但是并没有和下拉刷新上拉加载结合到一起,要不就是一些比较水的结合,并不能在项目里面使用,小编一着急自己组合了一 ...
海康威视控件覆盖dom元素问题下拉菜单被覆盖
描述:引入的海康控件挡住了dom元素原因:海康控件不属于dom元素,所以无法通过设置 z-index来改变解决的办法: 可以在菜单显示的时候,将海康控件裁掉一部分裁掉 if (window.oWe ...

excel不能插入activex控件_用excel做下拉多选菜单

excel不能插入activex控件_用excel做下拉多选菜单相关推荐

最新文章

热门文章