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

[quirrky (@@)]

軟體:EXCEL

版本:2010

軟體:Excel

版本:2010

excel裡有83個工作表
第一個為目錄，在B1至B83設定超連結[開啟]
點選到會連到每個工作表

當初日期與數字格式沒有設定好
導致有些欄位混淆
希望透過重複執行巨集
修正每個工作表格式
使欄位有正確日期與數字格式
一直無法成功
想了解問題出在哪邊

-------------------------------
Sub 巨集1()
For i = 1 To 10
'
' 巨集1 巨集
'
'
    Range("B3").Select
    Application.Goto Reference:="'2'!R1C1"
    Cells.Select
    Selection.NumberFormatLocal = "0.00_);[紅色](0.00)"
    Selection.NumberFormatLocal = "0.0_ ;[紅色]-0.0 "
    Columns("E:E").Select
    Selection.NumberFormatLocal = "yyyy/mm/dd"
    Range("E1").Select
    Selection.NumberFormatLocal = "0.0_);[紅色](0.0)"
    Sheets("目錄").Select
    Range("B4").Select
Next
End Sub
-----------------------------------------------------------

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.229.26.27 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1570466583.A.7AD.html
→ soyoso: 看巨集有迴圈，但goto方面都是到"2"的這個工作表
→ soyoso: 內文所寫無法成功是指除這個工作表外其他工作表都沒有修改
→ soyoso: 到的意思嗎？
→ soyoso: 如果是且工作表名稱為1-10的話，就改為 i & "!r1c1"方式
→ quirrky: 對，其他工作表都無法成功沒有修改
→ quirrky: 工作表名稱的確都是數字命名，我趕緊試看看，謝謝你