工作表CodeName的引用问题

akendy

在引用工作表的codename的时候，如果在前面加上thisworkbook的时候就会提示出错，应该怎么修改？


例如：
有一个工作表的codename为 SheeetX，详见附件，代码在模块1中。
直接用下面代码没问题：

1. SheetX.range("A3")=1

复制代码

如果用这个代码就不能通过，提示方法和数据成员未找到：

1. Thisworkbook.SheetX.range("A3")=1

复制代码

实际用的时候可能会出现thisworkbook不是当前工作薄，但又不可以改变成当前工作薄，这个代码该如何修改？


CodeName测试.rar (7.79 KB, 下载次数: 37)

2013-2-3 13:21 上传

点击文件名下载附件

AVEL

引用工作表名称就好了
Thisworkbook.Sheets("Sheet1").range("A3")=1

akendy

AVEL 发表于 2013-2-3 14:06
引用工作表名称就好了
Thisworkbook.Sheets("Sheet1").range("A3")=1

就是不想用工作表名称啊。因为如果有人把工作表名称改了的话，所有代码都会出错。

excelhomeljch

codename是vba工程下的成员,因此,你不加前缀,是当前工程的sheet.如果你需要引用其他工程的codename,需要先绑定其他的工程

akendy

excelhomeljch 发表于 2013-2-3 16:06
codename是vba工程下的成员,因此,你不加前缀,是当前工程的sheet.如果你需要引用其他工程的codename,需要先绑 ...

你说的我没有太明白，也有可能是我问的不太明白。

到时我的代码会在窗体上。操作的工作表还是thisworkbook里的工作表，即窗体所在工作薄。
如果这个工作薄不是焦点的时候，代码会不会操作到当前焦点的工作薄上去呢？

另外：你说的绑定又是怎么操作？

zhaogang1960

短信收到，从CodeName获取Name没有直接的方法
一、可用循环法，含用字典建立关联
二、如果工作表太多：
ThisWorkbook.Activate
SheetX.Range("A3") = 1

excelhomeljch

akendy 发表于 2013-2-3 16:40
你说的我没有太明白，也有可能是我问的不太明白。

到时我的代码会在窗体上。操作的工作表还是thiswork ...

用codename获取到的,就是代码的sheet,不会是其他工作簿的sheet
当你在代码窗口,按ctrl+j的时候,出现的选择列表,就是当前已经载入的库的成员,那里可以找到你要的sheet的codename.证明当前的vba工程是已经引用了

akendy

zhaogang1960 发表于 2013-2-3 18:14
短信收到，从CodeName获取Name没有直接的方法
一、可用循环法，含用字典建立关联
二、如果工作表太多：

谢谢。
刚才试了一下，前面不加
ThisWorkbook.Activate
时，下面的代码也是默认的在thisworkbook里执行的，不会执行到活动工作薄里面。
SheetX.Range("A3") = 1

akendy

excelhomeljch 发表于 2013-2-3 19:32
用codename获取到的,就是代码的sheet,不会是其他工作簿的sheet
当你在代码窗口,按ctrl+j的时候,出现的选 ...

你的解释很正确。
刚才试了一下，用codename获取的就是codename所在的工作薄，不用先激活工作薄。这一点比直接用标签名name要好得多。

gxb0717

excelhomeljch 发表于 2013-2-3 19:32
用codename获取到的,就是代码的sheet,不会是其他工作簿的sheet
当你在代码窗口,按ctrl+j的时候,出现的选 ...

老师，我看了你对codename的解释：
         我们在使用codename，1.是不是不能在前面加父对象？
                                         2.codename只能引用Thisworkbook下的工作表，不能引用其他工作表？