作者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/m.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