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.最后效果