通过VBA在Excel中添加复选输入框，实现数据验证不能做到的多选

第一步：在相应表格中添加一个ActiveX控件：ListBox1

第二步：增加一个表格“发病情况”，在相应数据区（A2:A10）增加复选项目数据

发病情况

干咳

乏力

发热

咽痛

鼻塞

腹泻

味觉异常

嗅觉消失

其他

第三步：在对应表格的代码中加入。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 1 And Target.Column = 19 Then '为第19列添加列表
With ListBox1
.MultiSelect = 1
.ListStyle = 1
.List = Sheets("发病情况").Range("A2:A10").Value '载入列表选项，即“发病情况”表的“A2:A10”
.Top = Target.Top + 1 '设置显示位置
.Left = Target.Left + Target.Width + 1
.Height = 150
.Width = 90
.Visible = True
End With
Else
ListBox1.Clear
ListBox1.Visible = False
End If
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListIndex = -1 Then Exit Sub
Dim i&, s$
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then s = s & "," & .List(i) '合并复选项
Next
.TopLeftCell.Offset(, -1).Value = Mid(s, 2) '在相应位置插入合并数据
.Visible = False
End With
End Sub

第四步：可通过单击第19列多选，双击插入数据。

通过VBA在Excel中添加复选输入框，实现数据验证不能做到的多选相关推荐

Excel 中添加复选框。
2007中 1.在工具栏中,先添加[开发工具] (日文系统为「開発」 ). 添加方法点击右上角,圆形,的开始按钮 --->下面的Excel选项 (日文系统为「 Excelのオプション」 ...
c语言mac地址加冒号,如何通过在Excel中添加冒号来格式化单元格中的mac地址？
如何通过在Excel中添加冒号来格式化单元格中的mac地址? 假设您收到一个包含数字列表的工作表,现在您需要通过添加冒号将所有这些数字格式设置为mac地址,如下面的屏幕截图所示. 您能做什么来实现呢? ...
怎样在计算机上插入机构图,Win7系统如何在excel中添加word文档结构图？
今天小编给大家分享 Ghost Win7系统在excel中添加word文档结构图的方法,有时候在编辑excel表格时,为了数据能够更加直观展示,会在excel中添加word文档结构图,这样显示的内容 ...
wps启用编辑按钮在哪里_如何在wps工具栏中添加按钮如何在Excel中添加删除命令按钮...
延伸:如何在Excel中添加删除命令按钮描述:在Excel 2003中,很多常用的命令按钮都放置在工具栏中,用户可以很方便地进行操作.添加命令主要是通过拖动的方式完成的,其具体的操作如下:骤一,在视 ...
在Excel中添加数据分析工具
在Excel中添加数据分析工具声明操作步骤流程截图声明 Excel版本为2021 操作步骤点击文件左下角点击选项左侧点击加载项下方点击转到勾选分析工具库,点击确定流程截图 Step ...
VBA在Excel中的应用（一)：改变符合条件单元格的背景颜色
Jiahua Jin VBA在Excel中的应用(一):改变符合条件单元格的背景颜色在使用excel处理数据的时候,为了能更清晰的标示出满足特定条件的单元格,对单元格添加背景色是不错的选择.手工处理 ...
利用VBA将excel中链接转换为图片形式存放在指定的单元格中
利用VBA将excel中链接转换为图片形式存放在指定的单元格中 VBA代码如下 Private Declare Function URLDownloadToFile Lib "urlmon& ...
符号在excel中的引用_如何在Excel中添加项目符号
&符号在excel中的引用 There's no built-in feature for bullets in Excel, like there is in a Word document ...
excel poi 加背景图_使用POI在Excel中添加外部图片
本篇的代码主要参考自poi讨论组:http://apache-poi.1045710.n5.nabble.com/Load-remote-image-inside-excel-sheet-td5709 ...

通过VBA在Excel中添加复选输入框，实现数据验证不能做到的多选

通过VBA在Excel中添加复选输入框，实现数据验证不能做到的多选相关推荐

最新文章

热门文章