作者quirrky (@@)
看板Office
標題Re: [算表] excel錄製巨集，無法正常執行
時間Fri Oct 11 21:07:51 2019
※ 引述《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://webptt.com/m.aspx?n=bbs/Office/M.1570799273.A.3DB.html
※ 編輯: quirrky (114.42.40.175 臺灣), 10/11/2019 21:10:28
1F：→ soyoso: (1)不用改，就for i=1 to 10 10/11 21:11
2F：→ soyoso: 要改的是(2)，但也非將變數i設於字串內 10/11 21:12
3F：→ soyoso: 就是之前回文的:=i & "!r1c1" 10/11 21:13
4F：→ soyoso: 如要加單引號的話，"'" & i & "'!r1c1" 10/11 21:14
5F：→ quirrky: 大大感謝，終於成功，順利執行所有工作表，開心開心 10/11 21:47