Address用法求教！

gerrily · 发表于 2005-7-6 08:48

在窗体中碰到类似问题该如何做呢？

gerrily · 发表于 2005-7-6 09:32

附代码如下:

Private Sub UserForm_Activate() Set usrsheet = Application.Workbooks("数据录入.xls").Sheets("系统数据表") myrange = Range("a1:a20").Address With Me.ComboBox1 .RowSource = usrsheet.Range(myrange1).Address .ListIndex = 0 End With End Sub

如果Sheets("系统数据表")不是活动表，ComboBox1就没有值，该如何解决，请高手赐教！

plxmm · 发表于 2005-7-6 11:23

在第三行加入：Sheets("系统数据表").Activate呢？

gerrily · 发表于 2005-7-7 10:51

谢谢楼上的，问题解决了，但是Sheets("系统数据表")受保护，执行时会弹出对话框让输入密码，如何在程序中做到自动输入密码，而不要弹出对话框呢？

asdf1001 · 发表于 2005-7-7 11:05

回复12楼,既然都知道是哪个工作表的哪个区域,何必用变量

Private Sub UserForm_Activate() With Me.ComboBox1 .RowSource = "[数据录入.xls]系统数据表!$A$1:$A$20" .ListIndex = 0 End With End Sub

撤消工作表保护 Sheets("系统数据表").Unprotect "密码"

gerrily · 发表于 2005-7-11 16:19

楼上的，谢谢了，高手就是不一样！

顺便再请教一点，如果区域是可变的，用变量该如何实现，我知道用cells函数很方便，但是怎么给Me.ComboBox1.RowSource赋值呢？

在线等待高手解答！

[em03][em03][em03]

gerrily · 发表于 2005-7-11 17:08

我在等待！！！

[em48][em48][em48][em43][em43][em43][em37][em37][em37][em27][em27][em27]

gerrily · 发表于 2005-7-12 08:18

我仍然在等待！！！

cofe2000 · 发表于 2005-7-12 08:57

试试.RowSource = "[数据录入.xls]系统数据表!$A$1:$A$" & 变量名

天外那天 · 发表于 2012-4-17 16:39

路过，学习下

		自动登录	找回密码
密码			免费注册