作者quirrky (@@)
看板Office
标题Re: [算表] excel录制巨集,无法正常执行
时间Fri Oct 11 23:16:48 2019
※ 引述《quirrky (@@)》之铭言:
: ※ 引述《quirrky (@@)》之铭言:
: : 软体:EXCEL
: : 版本:2010
: : 软体:Excel
: : 版本:2010
: : excel里有83个工作表
: : 第一个为目录,在B1至B83设定超连结[开启]
: : 点选到会连到每个工作表
工作表命名如图示
https://imgur.com/bksoZrZ
需要在每个工作表D4栏位贴上「=VLOOKUP(B4,目录!C2:E83,3,FALSE)」
并修正为日期格式
希望透过巨集执行
由於工作表是以数字命名
有根据之前建议更改Goto Reference:=i & "!r1c1"
取代原本Goto Reference:="'2'!R1C1"
但按下执行後,此处却被侦错
而执行失败
再次谢谢大家协助解惑
-----
Sub 巨集2()
For i = 1 To 82
'
' 巨集2 巨集
'
'
Range("B3").Select
Application.Goto Reference:=i & "!r1c1"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],目录
!R[-2]C[-1]:R[79]C[1],3,FALSE)"
Range("D4").Select
Selection.NumberFormatLocal = "yyyy/mm/dd"
Sheets("目录").Select
Range("B4").Select
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.42.40.175 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1570807011.A.35F.html
※ 编辑: quirrky (114.42.40.175 台湾), 10/11/2019 23:18:26
1F:→ soyoso: 模拟内文的巨集,并无错误讯息 10/12 09:47
3F:→ soyoso: 因此是否工作表名称,虽然是1-82,但其中有前後加上空白格 10/12 09:48
4F:→ soyoso: 的工作表名称的 10/12 09:48
5F:→ soyoso: 如工作表名称 5的後面加上空白格,就会回传参照无效,且也 10/12 09:51
7F:→ quirrky: 超级感谢,按照建议排除异常後,顺利执行,开心开心 10/12 13:19