让EXCEL单元格具有下拉列表功能（ComboBox）解决方法

让EXCEL单元格具有下拉列表功能（ComboBox）解决方法

让EXCEL单元格具有下拉列表功能（ComboBox）
今日在做一个让EXCEL和ComboBox类似这类控件组合的文件。挺方便实用的。

1.新建一个EXCEL文件，点“视图”-》“工具栏”，选择Visual Basic。再点VB面板的“控件工具箱”，选择一个ComboxBox控件（组件）（同时设置此控件为非打印对象，以免打印时，出现控件）。这里，你也可以选择其它控件，看你具体使用情况，可适当变动。

2.按Alt+F11，进入VBA编程界面。双击“ThisWorkbook”（就是本EXCEL对象），输入代码：

Private Sub Workbook_Open()
Sheet1.ComboBox1.Visible = False
End Sub

这个语句的作用是，启动EXCEL文件时，不显示控件。

再双击“Sheet1”，输入代码：

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()
Selection.Value = Sheet1.ComboBox1.Text
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then ‘这里6是说，当点击第六列时，才启动ComboBox
With Sheet1.ComboBox1
.Visible = True
.Width = Target.Width
.Height = Target.Height
.Left = Target.Left
.Top = Target.Top
.Clear
.AutoSize = True
.AddItem “张三”
.AddItem “李斯”
.AddItem “王武”
.AddItem “陶喆”
End With
End If
End Sub
好了，这样就差不多了。你可以适当修改、扩充功能。