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

看板Office作者quirrky (@@)時間6年前 (2019/10/11 21:07)推噓0(0推 0噓 5→)

留言5則, 2人參與討論串2/3 (看更多)

※ 引述《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 : ----------------------------------------------------------- 先前的建議如下 → soyoso: 看巨集有迴圈，但goto方面都是到"2"的這個工作表 10/08 06:59 → soyoso: 內文所寫無法成功是指除這個工作表外其他工作表都沒有修改 10/08 07:00 → soyoso: 到的意思嗎？ 10/08 07:00 → soyoso: 如果是且工作表名稱為1-10的話，就改為 i & "!r1c1"方式 10/08 07:02 ----------------- 請問是(1)將For i = 1 To 10改成 For i & "!r1c1 還是將(2)Goto Reference:="'2'!R1C1"改成="'i' & !r1c1" 有將(1)更改，但還是無法在每個以數字命名的工作表正常執行工作表命名如圖示 https://imgur.com/bksoZrZ

謝謝大家協助解惑 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.42.40.175 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1570799273.A.3DB.html ※ 編輯: quirrky (114.42.40.175 臺灣), 10/11/2019 21:10:28