作者joibird (人生如戏)
看板Office
标题[算表] 关於表格名称vba
时间Sat Apr 22 12:03:14 2017
软体:Excel
版本:2013
我有很多个厂商资料的工作表
当新增厂商时
会自动复制第一个工作表
但因为厂商资料内容已有表格
复制过去时，表格名称後面会预设成一些数字
但我希望将表格名称变成这张工作表的名称
ActiveSheets.Listobject.name = c
都会出现此处需要物件..？
後来想到可以用先把表格转换成范围再重新格式化表格的方式
但找不到把表格转换成范围的vba程式码是什麽...QQ
谢谢版友解惑了..
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.175.48.36
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1492833797.A.339.html
1F：→ soyoso: activesheets.listobjects(表格名称).name=c 试试 04/22 12:19
2F：→ soyoso: 转换为范围的话，以listobject.unlist的方式 04/22 12:21
3F：→ joibird: S大..但复制过去表格名称他是随机的，每一次都不一样呀? 04/22 12:40
4F：→ joibird: ActiveSheets.listobject.unlist 一样此处需要物件..>< 04/22 12:43
5F：→ soyoso: 每个工作表如只有一个表格名称的话，以listobjects(1)的方 04/22 12:45
6F：→ soyoso: 式 04/22 12:45
7F：→ soyoso: 打listobject.unlist并不是要原po直接引用 04/22 12:46
8F：→ soyoso: 而是到google查范例，就和回文的一样，如不指定名称或索引 04/22 12:47
9F：→ soyoso: 值，excel怎麽会知道原po要指定的是那个表格名称 04/22 12:47
10F：→ soyoso: 如一个工作表内二个以上表格，可以回圈for each..next， 04/22 12:49
11F：→ soyoso: listobjects的集合，或以for..next以listobjects计数count 04/22 12:50
12F：→ joibird: 每个工作表只有一个表格，listobjects(1)还是需要物件.. 04/22 12:53
13F：→ joibird: 谢谢s大费心解释，我去找找UNLIST的范例试试.. 04/22 12:55
14F：→ joibird: 那电脑有什麽方式可以知道他的随机名称？还是有没有办法 04/22 12:57
15F：→ joibird: 知道最後新增的表格名称呢? 这样说不定可以? 04/22 12:58
17F：→ soyoso: 如要取得随机名称可以回圈方式 04/22 12:59
18F：→ soyoso: 知道是那里是有问题的地方了，回文第一笔应为 04/22 13:07
19F：→ soyoso: activesheet.listobjects(表格名称).name=c才是 04/22 13:07
20F：→ soyoso: 索引值的话，则是以activesheet.listobjects(1).name方式 04/22 13:08
21F：→ joibird: !!!!!!真的成功了！ 为什麽不加s !!?? 04/22 13:14
22F：→ joibird: S大 你太强了 万分感谢你 04/22 13:15
23F：→ soyoso: 并无查到activesheets的相关用法，有可能并无该物件可使用 04/22 13:18
24F：→ soyoso: 的缘故 04/22 13:20
25F：→ joibird: s大,另外再请教.改定义范围的名称用name(1)就不行了.. 04/22 13:47
26F：→ soyoso: activeworkbook.names(1) 试试 04/22 14:24
27F：→ joibird: 显示 引述的个数错误或指定了不正确的属性..? 04/22 15:14
28F：→ soyoso: 更名的话後面还有name要加上 04/22 15:17
29F：→ joibird: 刚发现复制过去的名称只在工作表领域，那行不行删除工作 04/22 15:38
30F：→ joibird: 表范围的名称就好呢？ 04/22 15:38
31F：→ soyoso: 是指删除领域是工作表，保留活页簿吗？ 04/22 15:52
32F：→ soyoso: 如果是的话以worksheet.name的方式 04/22 15:55
33F：→ joibird: worksheet.name(1)=c 需要物件 加S 就变成找不到方法或 04/22 16:53
34F：→ joibird: 资料成员 04/22 16:53
35F：→ joibird: 回刚才 是能不能删除领域只在工作表的名称范围 而在活页 04/22 16:56
36F：→ joibird: 簿的名称范围不删除呢? 04/22 16:56
37F：→ soyoso: worksheets(工作表名).names(1) 04/22 16:57
38F：→ soyoso: 上述为指定领域设为工作表的自订名称 04/22 16:59
39F：→ joibird: 成功了!!! !! 痛哭牛替...谢谢soyoso前辈!! 04/22 17:13