Excel制作多选下拉框代码以及图示

1.首先  点击Sheet1(需要显示多选框的页) ,然后右键查看代码,进入编辑界面

2.写入如下代码 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 12 And ActiveCell.Row > 1 Then
Data.Show
End If
End Sub

意思是写入监听程序 当点击单元格处于第一行一下并且是第十二列的时候 出现载着多选框的窗体(Data是窗体名称 左侧点击窗体新建)

3.点击窗体名称画上多选框(listbox)右键查看代码 进入编辑页面

代码:可以自行修改内容

Private Sub CommandButton1_Click()

Dim msg$, i&, j
j = " "
msg = ""
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then msg = msg & ListBox1.List(i) & j
Next
Data.Hide
ActiveCell.Value = "" & msg
End Sub


Private Sub UserForm_Activate()
ListBox1.Clear
ListBox1.FontSize = 12
ListBox1.AddItem "白城"
ListBox1.AddItem "松原"
ListBox1.AddItem "白山"
ListBox1.AddItem "吉林"
ListBox1.AddItem "长春"
ListBox1.AddItem "辽源"
ListBox1.AddItem "四平"
ListBox1.AddItem "通化"
ListBox1.AddItem "延边"
End Sub

 4.最后效果

 


更多专业前端知识,请上 【猿2048】www.mk2048.com
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值