| 楼主 罗刚君 |
数据有效性可以实现下拉列表，通过选择来录入数据，其下拉列表引用了某个数据源。 不过同时也有一些限制，例如只能引用单列数据，也只能显示单列数据，只能输入单列数据...... 附件可以突破这些障碍。 下载：里面有源代码，大家都可以交流。 本案例载自书《Excel VBA程序开发自学宝典》第446页。  VBA程序开发自学宝典446页内容.rar请看演示（使用附件中的工作簿前，请将宏的安全性调低）  |
| 2楼 wangqilong1980 |
无论如何也要顶一下喽，收了好好用。 |
| 3楼 liumporite |
不错不错DDDDD |
| 4楼 badman |
是如何做出来的？ |
| 5楼 bengdeng |
ListBox1_Click可以改进一下，不要用函数来查找值，这样可以避免： 1、首行有重复时，选择比较后面的重复值，会出错。 2、当引用数据增加时，不需要修改程序代码（数据源单元格地址） Private Sub ListBox1_Click() '单击理表框时触发事件 Dim ii As Integer For ii = 1 To Me.ListBox1.ColumnCount ActiveCell.Offset(0, ii - ActiveCell.Column) = ListBox1.Column(ii - 1) Next Me.ListBox1.Visible = False End Sub |
| 6楼 hexihu |
看看 |
| 7楼 z103822879 |
不明白也要顶~~ |
| 8楼 ddbb2008 |
学习学习 |
| 9楼 272779357 |
不明白 也顶  |
| 10楼 luckydog |
路过，学习学习 |
| 11楼 niuniu2009 |
学习了。 请教：目前引用的只能显示在前三列，请问如何修改程序在任意位置显示？ 请高手指点！ |
| 12楼 路政大厅 |
好好学习 |
| 13楼 awake |
学习学习 |
| 14楼 金色南瓜头 |
都是高手 谢谢分享 |
| 15楼 WRMFHFH |
很好用,谢谢 |
| 16楼 风轻扬 |
不太懂也顶 |
| 17楼 风轻扬 |
本人菜鸟，学习 |