返回列表 上一主題 發帖

[發問] 建立來源是有變數的超連結，vba因如何書寫？

HSINLI

帖子
13 
主題
4 
精華
0 
積分
17 
點名
0  
作業系統
mac 
軟體版本
os10 
閱讀權限
10 
註冊時間
2015-6-16 
最後登錄
2015-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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)的超連結呢？
收藏 分享

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題