excelperfect
如下图1所示，在工作表Sheet1的列A中任意单元格上双击鼠标，将会出现一个窗体控件，单击其右侧的下拉箭头会出现列表，你可以从中选择列表项，所选项将被输入到该控件所在的单元格中，并且输入数据后该控件会消失。
图1
实现上述效果的代码如下。
在工作表Sheet1的代码模块中，输入代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean) "如果单元格在列A中 If Not Intersect(Target,Columns("A")) Is Nothing Then "调用过程 Call AddDropList(Target) Cancel = True End IfEnd Sub
上述代码在用户双击工作表Sheet1上列A中的单元格时，调用AddDropList过程，并将Cancel设置为True取消双击事件。
插入一个标准模块，在其中输入代码：
"添加仿下拉列表的窗体控件Sub AddDropList(Target As Range) Dim drp As DropDown Dim varItems As Variant Dim i As Integer "创建列表项数组 varItems = Array("东区", "西区", "南区", "北区") "添加下拉控件 With Target Set drp =Sheet1.DropDowns.Add(.Left, .Top, .Width, .Height) End With "设置要运行的过程并填充列表 With drp .OnAction ="EnterInfo" For i =LBound(varItems) To UBound(varItems) .AddItem varItems(i) Next i End WithEnd Sub "输入所选项后删除控件Private Sub EnterInfo() With Sheet1.DropDowns(Application.Caller) .TopLeftCell.Value =.List(.ListIndex) .Delete End WithEnd Sub
说明：
1.AddDropList过程使用DropDowns集合的Add方法创建一个下拉列表，并设置其Left属性、Top属性、Width属性和Height属性，将其与目标单元格对齐。定义下拉列表的OnAction属性为EnterInfo过程，这表明当从下拉列表中选择一个列表项时将运行EnterInfo过程。
2. EnterInfo过程使用Application.Caller返回调用OnAction设定过程的下拉控件的名称，从而获取对该控件对象的引用。
3.DropDown对象的TopLeftCell属性返回位于该对象左上角的Range对象的引用，ListIndex属性返回所选项在列表中的位置，作为List属性的索引值返回具体的列表项。
4.与使用数据验证不同的是，本文介绍的代码方法更灵活，在你需要选择列表项时双击鼠标，要自已输入不在列表项中的数据时可直接输入。
