作者kokomo1 (bibo)
看板Office
标题[算表]用巨集加 枢纽分析表判断资料来源
时间Tue Feb 13 11:06:43 2018
软体:excel
版本:2013
请问如何使用巨集的方式加入枢纽分析表,且自动判断资料范围(资料栏数固定,列数不固
定),也可在各个sheet上执行巨集,谢谢。黄色标示部分有问题,但sourcedata不知如何改,
谢谢指导。
https://i.imgur.com/6Bcx49F.jpg
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.141.53.105
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1518491206.A.4D0.html
1F：→ soyoso: sourcedata方面以"工作表名!a7:av"& range.end().row的方 02/13 11:18
2F：→ soyoso: 式改为动态范围 02/13 11:19
3F：→ soyoso: 各个sheet上执行巨集是指於各个sheet内执行建立该sheet内 02/13 11:20
4F：→ soyoso: 的枢纽分析表吗，如果是的话，则回圈for..next终止值以 02/13 11:21
5F：→ soyoso: sheets.count，或以for each..next集合以sheets 02/13 11:22
6F：→ kokomo1: 工作表名怎麽改以现使用工作表 02/13 11:33
7F：→ kokomo1: 执行後：标示在range上,编译错误：引数不为选择性 02/13 11:38
8F：→ soyoso: 如要取得所在工作表名称，activesheet.name 02/13 11:40
9F：→ soyoso: 回文打range.end().row不是要原po直接复制就贴上巨集内 02/13 11:42
10F：→ soyoso: 而是以取得最後一笔有资料的列号(这於原po上一篇发文内就 02/13 11:42
11F：→ soyoso: 有写过) 02/13 11:43
12F：→ kokomo1: 我知道了,谢谢 02/13 11:48
14F：→ soyoso: 用字串string，不用set 02/13 14:23
15F：→ kokomo1: ok谢谢,下一段语法有错,请问错哪 02/13 14:31
16F：→ soyoso: 连接符号 变数以&来连接字串，fname後面没有，!也不在""内 02/13 14:35
17F：→ kokomo1: 执行後枢纽分析表栏位名称无效,请问哪里还有问题？https: 02/13 14:58
18F：→ kokomo1: //i.imgur.com/Ncru1UX.jpg 02/13 14:58
20F：→ soyoso: 请检查rng2.row所取得的列号是否正确 02/13 15:23
21F：→ soyoso: 再检查sourcedata来源资料字串是否正确 02/13 15:25
22F：→ kokomo1: 检查取得列号无误,fname字串无误,但sourcedata内如何检查 02/13 16:02
24F：→ soyoso: 看要以msgbox、debug.print或写入储存格看该字串的范围是 02/13 16:04
25F：→ soyoso: 否对应正确范围位置 02/13 16:04
26F：→ soyoso: 或是上传档案到云端，贴上连结应会比较清楚 02/13 16:07