怎样使用VBA列表框控件打造增强型数据有效性？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Target.Column > 1 Then Me.ListBox1.Visible=False: Exit Sub
                              '如果不是第一列则隐藏列表框并退出程序
    With ListBox1
    .Visible=True    '如果是第一列则显示列表框
    .LinkedCell=Target.Address       '列表框的链接地址设置为当前单元格
    .BoundColumn=1
        '将第一列的数据与单元格连接，即第二、三列仅共查看，无法输入到单元格中
    .ColumnCount=3     '列表框的列数为3
    .ColumnHeads=True  '显示表头
    .ListStyle=fmListStyleOption  '设置样式
    .Left=Target.Left+Target.Width
      '列表框的左边框等于当前单元格左边距加单格的宽度，即位于当前单元格的右边
    .Top=Target.Top                '列表框的上边距等于当前单元格的上边距
    .ColumnWidths="35;35;35"         '设置列表框三列的宽度
    .ListFillRange="e2:g11"  '设置列表框的数据引用源，也可改为动态数据源，将
                    行数11改为worksheetfunction.counta(range("G:G"))
    '.ListFillRange="e2:g" & WorksheetFunction.CountA(Range("G:G"))
    .ListIndex=0  '单击单元格时默认显示列表框中第一行数据
    End With
End Sub

5、单击单元格A2，弹出列表框，列表框的条目即参照区域中的数据。显示列表框的同时列表框第一行数据输入到单元格中，如图