PTT數位生活區 / Office

[算表] EXCEL VBA編碼問題

看板Office作者 (nose)時間12年前 (2014/01/25 13:30), 編輯推噓0(0推 0噓 7→)
留言7則, 2人參與, 最新討論串1/1
軟體:EXCEL 版本:2010 公司使用EXCEL統計，以往都是用手動連結，好浪費時間 想說是不是可以自動讀取，但真的是新手，上來請問大神們 我建立按鈕，按鈕編碼如下 Range("C2").Select ActiveCell.FormulaR1C1 = "='D:\[Alex.xlsx]1'!R4C3" Range("C3").Select ActiveCell.FormulaR1C1 = "='D:\[Alex.xlsx]2'!R4C3" Range("C4").Select ActiveCell.FormulaR1C1 = "='D:\[Alex.xlsx]3'!R4C3" ... ... ... ... Range("C12").Select ActiveCell.FormulaR1C1 = "='D:\[Alex.xlsx]12'!R4C3" 按鈕按下會去讀取1-12月份的R4C3值 想請教是否可以利用其他方式簡短 以上 感恩 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.42.159.55
→
01/25 14:11, , 1F
Dim i As Byte
01/25 14:11, 1F
→
01/25 14:11, , 2F
For i = 1 To 12
01/25 14:11, 2F
→
01/25 14:11, , 3F
Range("C1").Offset(i).FormulaR1C1 = "='D:\[Alex.xlsx]"
01/25 14:11, 3F
→
01/25 14:12, , 4F
& i & "'!R4C3" 這是續上一段
01/25 14:12, 4F
→
01/25 14:12, , 5F
Next
01/25 14:12, 5F
→
01/25 14:14, , 6F
01/25 14:14, 6F
→
01/25 14:58, , 7F
可以使用 謝謝 感恩X100
01/25 14:58, 7F
‣ 更多 ax8210 的文章
文章代碼(AID): #1IuqlzE3 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ax8210 的文章
文章代碼(AID): #1IuqlzE3 (Office)