作者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/cn.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