PTT數位生活區 / Office

Re: [算表] excel錄製巨集，無法正常執行

看板Office作者 (@@)時間6年前 (2019/10/11 23:16), 6年前編輯推噓0(0推 0噓 7→)
留言7則, 2人參與, 6年前最新討論串3/3 (看更多)
※ 引述《quirrky (@@)》之銘言： : ※ 引述《quirrky (@@)》之銘言： : : 軟體:EXCEL : : 版本:2010 : : 軟體:Excel : : 版本:2010 : : excel裡有83個工作表 : : 第一個為目錄，在B1至B83設定超連結[開啟] : : 點選到會連到每個工作表 工作表命名如圖示 https://imgur.com/bksoZrZ
需要在每個工作表D4欄位貼上「=VLOOKUP(B4,目錄!C2:E83,3,FALSE)」 並修正為日期格式 希望透過巨集執行 由於工作表是以數字命名 有根據之前建議更改Goto Reference:=i & "!r1c1" 取代原本Goto Reference:="'2'!R1C1" 但按下執行後，此處卻被偵錯 而執行失敗 再次謝謝大家協助解惑 ----- Sub 巨集2() For i = 1 To 82 ' ' 巨集2 巨集 ' ' Range("B3").Select Application.Goto Reference:=i & "!r1c1" Range("D4").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],目錄 !R[-2]C[-1]:R[79]C[1],3,FALSE)" Range("D4").Select Selection.NumberFormatLocal = "yyyy/mm/dd" Sheets("目錄").Select Range("B4").Select Next End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.42.40.175 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1570807011.A.35F.html ※ 編輯: quirrky (114.42.40.175 臺灣), 10/11/2019 23:18:26
→
10/12 09:47, 6年前 , 1F
模擬內文的巨集，並無錯誤訊息
10/12 09:47, 1F
→
10/12 09:47, 6年前 , 2F
10/12 09:47, 2F
→
10/12 09:48, 6年前 , 3F
因此是否工作表名稱，雖然是1-82，但其中有前後加上空白格
10/12 09:48, 3F
→
10/12 09:48, 6年前 , 4F
的工作表名稱的
10/12 09:48, 4F
→
10/12 09:51, 6年前 , 5F
如工作表名稱 5的後面加上空白格，就會回傳參照無效，且也
10/12 09:51, 5F
→
10/12 09:52, 6年前 , 6F
看出來有加上空白格 https://i.imgur.com/9gGDj4n.jpg
10/12 09:52, 6F
→
10/12 13:19, 6年前 , 7F
超級感謝，按照建議排除異常後，順利執行，開心開心
10/12 13:19, 7F
‣ 更多 quirrky 的文章
文章代碼(AID): #1Te9pZDV (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 quirrky 的文章
文章代碼(AID): #1Te9pZDV (Office)