作者chunchanhung (毛毛狂)
看板Office
标题[文件] vba问题
时间Sun Jan 20 11:05:30 2019
软体:excel2016
我目前有两个巨集 A B
先使用巨集A 判断range(a:a)有几笔内容就制作多少个sheet
再用B巨集整理每个sheet的资料不包含原始表格
因有使用for指令所以不能将B巨集模组写在A巨集
想请问有办法A巨集跑完之後，让每个sheet自动跑B巨集吗
-----
Sent from JPTT on my iPhone
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 42.73.41.27
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1547953532.A.52D.html
1F：→ soyoso: b巨集模组是指？b巨集程序(sub)或是b巨集写在不同於a巨集 01/20 11:37
2F：→ soyoso: 的模组(module) 01/20 11:37
3F：→ soyoso: 且有for回圈而不能将b写在a内的原因是？ 01/20 11:39
4F：→ soyoso: 想法是回圈内於原本a巨集动作的最下方再呼叫b，call b或省 01/20 11:41
5F：→ soyoso: 略call直接打程序名称(b) 01/20 11:41
6F：→ soyoso: 或是要跑完a後要跑b的话，就再设个回圈来呼叫b的程序 01/20 11:42
7F：→ soyoso: 如b内range无指定工作表的话，回圈上就有可能先要 01/20 11:43
8F：→ soyoso: worksheets(.).activate或select，worksheets可改为sheets 01/20 11:46
9F：→ chunchanhung: 谢谢已经解决 01/20 16:54
10F：→ chunchanhung: 另外想请问一下这个问题 01/20 16:54
12F：→ chunchanhung: 我是用录制巨集的方式来修改图表 01/20 16:54
13F：→ chunchanhung: 但我录制完後，却出现错误 01/20 16:54
14F：→ chunchanhung: 是没有定义吗 还是不能这样使用 01/20 16:55
15F：→ soyoso: 图表 3是股票图吗？应是作用图表不支援该显示图表项目及显 01/20 18:22
16F：→ soyoso: 示方式 01/20 18:22
18F：→ chunchanhung: 是折线图 想要使用线条 垂直线的功能 01/20 18:46
19F：→ soyoso: 折线图垂直线的话 msoElementLineDropLine 01/20 18:52
20F：→ chunchanhung: 不好意思 想请问是怎麽改呢 01/20 18:59
21F：→ chunchanhung: 录制巨集代码是 01/20 18:59
22F：→ chunchanhung: Activechart.setElement(msoElementLineDrophilolin 01/20 18:59
23F：→ chunchanhung: e 01/20 18:59
24F：→ chunchanhung: 但是会跑出错误 01/20 18:59
26F：→ soyoso: 折线图没有msoElementLineDrophiloline所以跑出错误 01/20 19:20
27F：→ soyoso: 改成回文的msoElementLineDropLine 01/20 19:22