能用VBA定义名称吗？（已解决）

luyina · 发表于 2011-6-29 10:34

能用VBA定义名称吗？
如定义动态数据范围：数据=OFFSET(数据!$A$1,,,COUNTA(数据!$A:$A),COUNTA(数据A!$1:$1))
用VBA 怎样写？谢谢！

蓝班长已解答 7楼

http://club.excelhome.net/post.p ... p;extra=&page=1

[ 本帖最后由 luyina 于 2011-6-29 14:25 编辑 ]

gjj136138139 · 发表于 2011-6-29 10:39

当然可以啊，你录个宏啊。

secowu · 发表于 2011-6-29 10:39

ActiveWorkbook.Names.Add Name:="_mQuery", RefersToR1C1:="=发票!R5C3:R" & Sheet8.Cells(Rows.Count, 3).End(3).Row & "C10"

gjj136138139 · 发表于 2011-6-29 10:42

区域范围，你用变量嘛。Range对象的end方法。

livewire · 发表于 2011-6-29 11:01

sheets("数据").[a1].currentregion

luyina · 发表于 2011-6-29 11:17

先谢谢楼上各位热情解答。笨鸟太菜没弄明白！再描述一下，不知是否清楚：

想用VBA 实现定义名称：数据=OFFSET(数据!$A$1,,,COUNTA(数据!$A:$A),COUNTA(数据!$1:$1)) ，数据表是动态的。

上个附件：附件中已定义了名称（手动）为：数据。想请教的是能否用VBA （自动）实现上述定义。

最好在附件上演示一下。谢谢！

蓝桥玄霜 · 发表于 2011-6-29 13:57

ActiveWorkbook.Names.Add Name:="数据", RefersToR1C1:= _
"=OFFSET(数据!R1C1,,,COUNTA(数据!C1),COUNTA(数据!R1))"
其实用VBA解决问题不一定需要命名单元格区域的。

luyina · 发表于 2011-6-29 14:13

谢谢老大，我试一下
原本是利用附件数据做透了视表，虑数据是动态的。

而定义名称有时可能有时莫名其妙损坏，如：入库表的一部分记录删除，排序后，原透视表引用的定义名称数据范围不正常。因此想到能否用VBA写个，以解决当数据表发生变动类似时，重建定义名称！！！

luyina · 发表于 2011-6-29 14:21

原帖由 蓝桥玄霜 于 2011-6-29 13:57 发表
ActiveWorkbook.Names.Add Name:="数据", RefersToR1C1:= _
"=OFFSET(数据!R1C1,,,COUNTA(数据!C1),COUNTA(数据!R1))"
其实用VBA解决问题不一定需要命名单元格区域的。

成功！传附件利于需要者查找！！！！再次感谢！！！

[ 本帖最后由 luyina 于 2011-6-29 14:27 编辑 ]

万林 · 发表于 2011-11-10 18:20

本帖最后由万林于 2011-11-10 18:31 编辑

Sheets(“数据”).Names.add Name:= ”数据”, RefersToR1C1:= _
"=OFFSET(数据!$A$1,,,COUNTA(数据!$A:$A),COUNTA(数据!$1:$1))"

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

[求助] 能用VBA定义名称吗？（已解决）

回复 7楼蓝桥玄霜的帖子

[求助] 能用VBA定义名称吗？（已解决）

回复 7楼 蓝桥玄霜 的帖子

回复 7楼蓝桥玄霜的帖子