Re: [問題] EXCEL VBA陣列索引超出範圍(錯誤代碼9)
推文空間有點小,幫你修一下扣,但我沒測試過
Sub three()
Dim cell As Range
'Dim targetSheet As Worksheet
Dim returnLink As Hyperlink
Dim targetRange As Range
'Dim myStr As String
'從第一分頁中的C3單元格獲取超連結
For Each cell In Sheets("庫存總表").Range("C3:C1056")
'在每次循環中定義myStr變數,以確保其值不會超出範圍
'不用這個變數,你確保的方式其實是檢查儲存格中超連結數量
'myStr = cell.Value
If cell.Hyperlinks.Count > 0 Then
'獲取目標工作表和儲存格
'簡化寫法,其他部份有需要用到的話再改回來就好
Set targetRange = Sheets(cell.Value).Range("E2")
'創建返回超連結
'應該可以單純用targetRange.Hyperlinks.Add就好
'不需要再set給returnLink,不過若是debug方便可以留著
Set returnLink = targetRange.Hyperlinks.Add(Anchor:=targetRange, _
Address:="", SubAddress:="庫存總表!" & cell.Address, _
TextToDisplay:="返回總表")
End If
Next cell
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.174.10.208 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1682497350.A.0F9.html
推
04/26 16:30,
1年前
, 1F
04/26 16:30, 1F
→
04/26 16:31,
1年前
, 2F
04/26 16:31, 2F
→
04/26 16:32,
1年前
, 3F
04/26 16:32, 3F
→
04/26 16:32,
1年前
, 4F
04/26 16:32, 4F
推
04/26 16:35,
1年前
, 5F
04/26 16:35, 5F
討論串 (同標題文章)
Office 近期熱門文章
10
34
PTT數位生活區 即時熱門文章