学习Excel技术,关注微信公众号:
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.与使用数据验证不同的是,本文介绍的代码方法更灵活,在你需要选择列表项时双击鼠标,要自已输入不在列表项中的数据时可直接输入。