VBA查找匹配的單元格併爲它們創建超鏈接

這是我在這個網站上的第一個問題，所以如果我在描述我的問題時做出任何明顯的遺漏，我表示歉意。VBA查找匹配的單元格併爲它們創建超鏈接

我正在參考電子表格，可用於配置一塊軟件，我目前正在努力使其儘可能用戶友好。

我有2個工作表，第一個'Main'從數據庫中拉出來，代表軟件中的屏幕層次結構。（在每個屏幕下有效顯示您可以訪問的內容）。

其中一些屏幕/對象綁定到「彈出窗口」窗口中，這些彈出窗口也在主表格「O」列中指定。

我的第二張表單'Popup'包含每個彈出窗口的更多細節。

我需要的是運行Sheet「Main」的列「O」，並且爲每個包含值的單元格在Sheet「Popup」的列「D」中搜索相同的值，然後創建一個超鏈接結果行（任何列，儘管我一直試圖鏈接到「F」）。

For i = 3 To LastRow 
    If Cells(i, "O").Value <> "" Then 
     k = Sheets("Main").Cells(i, "O").Value 
      c = Application.Match(k, Sheets("Popup").Range("D:D"), 0) 
      If IsError(c) Then 
      Else 
       Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), SubAddress:="Popup!F" & c, TextToDisplay:=k 
      End If 
    End If 
Next i

對於上面我的代碼我目前得到的錯誤「運行時錯誤‘450’：參數或無效的屬性賦值錯誤號」在這一行：

Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), SubAddress:="Popup!F" & c, TextToDisplay:=k

雖然這是當試圖讓這一行代碼正常工作時，這是最新的各種錯誤列表。

任何幫助將不勝感激。 David。

來源

2014-02-11 user3296894

試一下這個（久經考驗）

你失蹤Address:=""

Sheets("Main").Hyperlinks.Add Anchor:=Sheets("Main").Cells(i, "O"), _ 
           Address:="", _ 
           SubAddress:="Popup!F" & c, _ 
           TextToDisplay:=k

來源

2014-02-11 11:39:34

這是夢幻般的，它現在的工作！非常感謝你 – user3296894

很高興能有幫助:) –

VBA查找匹配的單元格併爲它們創建超鏈接

回答

相關問題