標題: [發問] 建立來源是有變數的超連結，vba因如何書寫？ [打印本頁]

---

作者: HSINLI    時間: 2015-8-2 11:05     標題: 建立來源是有變數的超連結，vba因如何書寫？

這段程式碼主要是要在Sheets("W-inter.").Range("A4:a150")找到Sheets("Position").Range("a9")的值
然後在Sheets("Position").Range("ah9")貼上Sheets("W-inter.")所找到的那一儲存格的.Offset(, 33).Offset(1)得值並建立超連結
我的寫法如下面code
而目前遇到的問題是在subaddress的部分不知怎麼寫

1. Dim bidp As Range
   
2. Dim aaa As Range
   
3. If Not Sheets("W-inter.").Range("A4:a150").Find(Sheets("W-inter.").Range("A4:a150"), LOOKAT:=xlWhole) Is Nothing Then
   
4.             Set bidp = Sheets("W-inter.").Range("A4:a150").Find(Sheets("Position").Range("a9"), LOOKAT:=xlWhole)
   
5.             Set aaa = "W-inter.'!" & bidp.Offset(, 33).Offset(1)
   
6.                      ActiveSheet.Hyperlinks.Add Range("ah9"), Address:="", SubAddress:=aaa, TextToDisplay:=aaa.Value
   
7. End If

複製代碼

在aaa是寫說＝ "W-inter.!" & bidp.Offset(, 33).Offset(1)
但這時候跳出的是 “執行階段錯誤424 此處需要物件”

如果aaa改成="W-inter.!" & bidp.Offset(, 33).Offset(1).address
則會在＆的地方出現 “編譯錯誤：型態不符合”

如果將aaa再改成＝="W-inter.!" bidp.Offset(, 33).Offset(1).address"
則是整句出現 “編譯錯誤：型態不符合”

請問要如何改進才能達到在Sheets("Position").Range("a9")建立一個來自bidp.Offset(, 33).Offset(1)的超連結呢？

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)