作者：绿色风
分类：
时间：2022-08-17
浏览：83
楼主
kevinchengcw |
Q: 如何实时更新复合框的数据区域？
A: 打开一个新的EXCEL文档，按Alt+F11进入VBA编辑器，插入窗体，在窗体上插入一个复合框(ComboBox)，在工作表sheet1的A列输入一列测试数据，双击复合框，在打开的编辑菜单中选择复合框的Initlization(初始化)事件，输入如下代码：- Private Sub UserForm_Initialize()
- ComboBox1.RowSource = "sheet1!a1:a" & Worksheets("sheet1").Cells(Rows.Count, 1).End(3).Row
- End Sub
如此在窗体初始化时将我们的测试数据区域赋值给窗体(RowSource属性)，编辑效果如下图：
以上只完成了复合框的初始赋值，如果要对测试数据的区域进行实时更新，我们还要在sheet1的worksheet_change事件中加入如下代码:- Private Sub Worksheet_Change(ByVal Target As Range)
- UserForm1.ComboBox1.RowSource = "sheet1!a1:a" & Worksheets("sheet1").Cells(Rows.Count, 1).End(3).Row
- End Sub
这样，当测试数据区发生变化时复合框中的数据也会相应发生变化，效果如下图：
以上实现了数据区域与复合框的联动效果，但并不完美，如果删除的是中间的区域，则复合框中也会出现空白区域，如下图：
相关解决办法我们将在下一文中解答。
附本例示例文件。
 窗体学习--实时更新复合框的数据区域.rar
|
2楼
supersudda |
这个方法蛮实用，借鉴一下，感谢楼主的分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一