作者quirrky (@@)
看板Office
標題[算表] excel錄製巨集,無法正常執行
時間Tue Oct 8 00:43:00 2019
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1570466583.A.7AD.html
1F:→ soyoso: 看巨集有迴圈,但goto方面都是到"2"的這個工作表 10/08 06:59
2F:→ soyoso: 內文所寫無法成功是指除這個工作表外其他工作表都沒有修改 10/08 07:00
3F:→ soyoso: 到的意思嗎? 10/08 07:00
4F:→ soyoso: 如果是且工作表名稱為1-10的話,就改為 i & "!r1c1"方式 10/08 07:02
5F:→ quirrky: 對,其他工作表都無法成功沒有修改 10/10 13:20
6F:→ quirrky: 工作表名稱的確都是數字命名,我趕緊試看看,謝謝你 10/10 13:21