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