Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6097|回复: 4

[已解决]请老师解疑!用户窗体列表框中的内容是怎样引用单元格的?

[复制链接]
发表于 2016-6-4 10:06 | 显示全部楼层 |阅读模式
本帖最后由 一片薄云 于 2016-6-4 10:22 编辑

我从网上下载了一个xls文件,看到代码很简单,想学习一下数据源区域与ComboBox关系的代码。(已将无关内容都删除了。)

按钮代码之外窗体代码只有:
Private Sub UserForm_Initialize()
   ComboBox1.RowSource = Range("项目").Address
   ComboBox2.RowSource = Range("组别").Address
End Sub

我还不懂VBA,经查询,对代码ComboBox1.RowSource = Range("项目").Address的大概理解是:ComboBox1列表的来源是含有单元格"项目"区域引用。请问这句代码的实际含义或具体怎样理解。

但是在工作表中搜索都搜索不到“项目”、“组别”的字样。请问窗体列表框的内容“小麦”、“花生”和“一组”、“二组”、等是怎样与单元格a2、a3和b2:b5联系在一起的。

还有我删除了工作表中的第一行然后重新插入了1行并在a1、b1单元格分别输入“玉米”、“一组”,则“玉米”、“一组”不能出现在列表框中。
在ComboBox1属性里也看不到有关单元格引用的ListFillRange选项。

最佳答案
2016-6-4 10:29
QQ截图20160604102024.jpg
项目和组别是自定义的名称!

工作表

工作表

窗体

窗体

ComboBox1属性

ComboBox1属性

工作簿1.zip

15.83 KB, 下载次数: 9

发表于 2016-6-4 10:27 | 显示全部楼层
  1. Private Sub UserForm_Initialize()
  2.     arr1 = Sheets(1).Range("A1:A" & Range("A65535").End(xlUp).Row)
  3.     arr2 = Sheets(1).Range("B1:B" & Range("B65535").End(xlUp).Row)
  4.     ComboBox1.List = arr1
  5.     ComboBox2.List = arr2
  6. End Sub
复制代码
这样好理解些??
iii.gif
回复

使用道具 举报

发表于 2016-6-4 10:29 | 显示全部楼层    本楼为最佳答案   
QQ截图20160604102024.jpg
项目和组别是自定义的名称!
回复

使用道具 举报

 楼主| 发表于 2016-6-4 10:33 | 显示全部楼层
老司机带带我 发表于 2016-6-4 10:29
项目和组别是自定义的名称!

谢谢!已经明白了。


回复

使用道具 举报

 楼主| 发表于 2016-6-4 10:34 | 显示全部楼层
02761752696 发表于 2016-6-4 10:27
这样好理解些??

谢谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-20 02:35 , Processed in 0.350016 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表