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