【分享成果 ， 随喜正能量】相信一万小时定律，不要相信天上掉馅饼的灵感和坐等的成就 。做一个自由又自律的人，靠势必实现的决心认真地活着 。
《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级 。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多 。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用 。今日讲解的内容是“VBA之EXCEL应用”的第十五章“ActiveX控件（ActiveX Controls）”的第7节：利用列表框实现数据的选择录入 。
第七节 列表框（List Box）的应用之四
大家好，我们继续讲解列表框的应用之四，在上一讲中我们讲了利用列表框来显示数据 ， 这讲我们讲解利用列表提供的数据通过选择来完成工作表数据的录入 。这讲的内容也是一些朋友曾经咨询过我的实际问题 。我将以此为例，给大家介绍列表框在实际应用中的场景 。1 在列表框中进行选择即可完成录入数据的场景
如上一讲 ， 我们依据列表框的提示，完成了数据的提取，但是还需要用户根据提示的信息向工作表中录入数据，那么有没有办法在列表框中直接选择一组数据后 ， 这组数据可以直接填充到工作表中呢？答案是可以的 。如下面的工作表界面：
我们在数据录入的时候，当选择A列数据某个单元格的时候,需要弹出一个列表框，提示数据的录入信息，我们在提示的信息中进行选择 ， 双击后数据可以自动填入工作表中空白的单元格，从而让我们的工作变得简单、准确 。毕竟手工录入是容易出错的 。
这讲的内容是非常实用的，只要我们需要录入的数据在工作表中有资料来源，就可以采用这种方案 。
2 在列表框中进行数据选择完成录入的思路分析
为了实现上述的思路，我们仍是先进行代码过程的思路分析：1）在实现场景中要求是在点击A列才有提示信息 ， 我们要在代码中限制弹出列表框的条件 。
2）弹出的列表框要以某基础数据为基?。?这一点和上节的内容一致，但我们要注意，信息的载入我们放在工作表的Activate事件中，在不需要时 ， 或者是不需要提示时列表框处于隐藏的状态 。
3）列表框响应双击事件，在我们双击某组数据时，工作表要根据活动单元格的位置进行数据的填入工作 。
4）为了校验数据填入的准确性，我们还要让列表框处于活动单元格的所在行的下方 。不能遮挡活动单元格 。
3 在列表框中进行数据选择完成录入的代码实现
为了完成上述的思路分析 ， 我们看下面的代码：Private Sub Worksheet_Activate()
Dim ARR
ListBox1.Clear
ListBox1.Visible = False
ARR = Sheets("资料").Range("A1:f" & Sheets("资料").Range("A1").End(xlDown).Row)
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "80;50;50;50;50;50"
ListBox1.BorderStyle = fmBorderStyleSingle
For i = LBound(ARR) To UBound(ARR)
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = ARR(i, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = ARR(i, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = ARR(i, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = ARR(i, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = ARR(i, 5)
ListBox1.List(ListBox1.ListCount - 1, 5) = ARR(i, 6)
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ListBox1.Visible = True
ListBox1.Top = ActiveCell.Offset(2, 0).Top
ListBox1.Left = ActiveCell.Offset(0, 1).Left
End If
If Target.Column <> 1 Or Target.Count <> 1 Then ListBox1.Visible = False
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Offset(0, 1).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(1)
ActiveCell.Offset(0, 2).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(2)
ActiveCell.Offset(0, 3).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(3)
ActiveCell.Offset(0, 4).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(4)
ActiveCell.Offset(0, 5).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(5)
End Sub
代码部分截图：
代码讲解：一是工作表的Activate事件；二是工作表的SelectionChange事件，三是ListBox1_DblClick双击事件 。
1）工作表的Activate事件，在工作表处于活动状态时，要发生的操作 。在这个事件中会加载列表框的数据 。
2）ListBox1.Clear
ListBox1.Visible = False
以上代码是首选清空列表框的数据，然后让这个列表框处于隐藏状态 。
3）ARR = Sheets("资料").Range("A1:f" & Sheets("资料").Range("A1").End(xlDown).Row)
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "80;50;50;50;50;50"
ListBox1.BorderStyle = fmBorderStyleSingle
For i = LBound(ARR) To UBound(ARR)
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = ARR(i, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = ARR(i, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = ARR(i, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = ARR(i, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = ARR(i, 5)
ListBox1.List(ListBox1.ListCount - 1, 5) = ARR(i, 6)
Next
以上是将数值中数据导入到列表框中 。
4）Worksheet_SelectionChange 这是工作表的选择变化事件，这个事件中要控制列表框的显示时机 。
5）Target.Column = 1 And Target.Count = 1 满足选择的单元格在A列和仅选择一个单元格 。这个条件是显示列表框的条件 。
6）If Target.Column <> 1 Or Target.Count <> 1 Then ListBox1.Visible = False 假如选择的不是A列或者，选择的单元格数不是一个，将令列表框隐藏 。
【利用列表框实现数据的选择录入】7）ListBox1.Visible = True
ListBox1.Top = ActiveCell.Offset(2, 0).Top
ListBox1.Left = ActiveCell.Offset(0, 1).Left
以上代码控制列表框的出现及出现的位置 ， 出现的位置是活动单元格下面的两行 ， 活动单元格右边的一个单元格所处的位置 。
8）ListBox1_DblClick 这个事件是列表框的双击事件，这个事件将在列表框双击时发生 。
9） ActiveCell.Offset(0, 1).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(1)
ActiveCell.Offset(0, 2).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(2)
ActiveCell.Offset(0, 3).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(3)
ActiveCell.Offset(0, 4).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(4)
ActiveCell.Offset(0, 5).Value = https://www.itzhengshu.com/jiqiao/ListBox1.Column(5)
以上代码利用以活动单元格为中心填入数据，填入的数据是列表框的数据 。
4 在列表框中进行数据选择完成录入的实现效果
1）我们看上面代码的运行效果，当点击A列的单元格时会出现列表框的提示 。
我们要注意，这个列表框数据是已经加载好的 ， 加载的动作是在工作的Worksheet_Activate中完成的，为了要让工作表实现Activate的动作，我们需要先选择其他的工作表，再回到这个工作表即可 。
数据的加载过程中是以工作表“资料”为基础的 。列表框显示的就是这个工作表的数据，在实际的工作中，这个基础数据是可以随时更改的，添加或者删除修正都是可以的，我们在修改后再次回到需要录入的这个工作表 ， 就会自动地更正列表框的数据了 。
2）我们选择列表框的数据，并双击，响应的数据就会填充到随后的单元格中了 。
3）我们点击其他列的单元格 ， 上述的列表框就会隐藏：
以上的测试完成了我们最初的思路分析及场景要求 。
今日内容回向：
1） 如何利用列表框实现数据的录入？
本讲内容参考程序文件：工作簿15.xlsm
分享成果 ， 随喜正能量
- VBA的学习教程（初级、中级、高级）：
第一套：VBA代码解决方案 是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点 ， 提供的程序文件更是一座不可多得的代码宝库，是初学及中级人员必备教程；目前这套教程提供的版本是修订第二版，程序文件通过32位和64位两种OFFICE系统测试 。
第二套：VBA数据库解决方案 数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习 。目前这套教程提供的是修订第一版教程，程序文件通过32位和64位两种OFFICE系统测试 。
第三套：VBA数组与字典解决方案 数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段 。目前这套教程提供的版本是修订第一版 ， 程序文件通过32位和64位两种OFFICE系统测试 。
第四套：VBA代码解决方案之视频 是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能 。这套教程是第一套教程（修订一版）的视频讲解，视频更易接受 。
第五套：VBA中类的解读和利用 这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少 ， 但仔细的学习可以促进自己VBA理论的提高 。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理 。目前这套教程提供的版本是修订第一版，程序文件通过32位和64位两种OFFICE系统测试 。
第六套教程：VBA信息获取与处理 ， 这是一部高级教程 ， 涉及范围更广，实用性更强，面向中高级人员 。教程共二十个专题 ， 包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容 。程序文件通过32位和64位两种OFFICE系统测试 。
第七套教程：VBA之EXCEL应用 这是一部初级教程这部教程共三册 ， 从从创建宏、对话框、工作簿和工作表对象、单元格对象等基础内容讲起，到循环结构、错误处理、字符串操作、日期和时间、事件、数组应用，函数过程等方面，一直讲解到控件和窗体对象的应用都是我们提高自己EXCEL水平的必须 。
第八套教程：VBA之WORD应用 是围绕“面向对象编程”展开的讲解，让大家充分认识Word中VBA的对象 ， 以及对象的属性、方法及利用 。教程共分三册，十六章 ， 其中前十五章是各种对象属性、方法的讲解，每节都有专门的实例说明这些属性方法的具体应用 ， 最后一章是结和具体应用场景的讲解，详细讲解了二十八个实际工作中有代表性的实例，紧扣word数据的批量处理，发挥VBA的长处 。本套教程实例众多，大家可以拿来即用 ， 或者修正后加以利用 。由于这套教程是围绕“面向对象编程”来展开 ， 建议大家先学《VBA之Excel应用》，对VBA中的对象、属性、方法、事件有一定认识后再来学习这套教程 。