Excel VBAでセルの内容からハイパーリンクを作成する

Question

ユーザーが選択した範囲のセル内のセルの内容に基づいてハイパーリンクを作成しようとしています。私はループを通ってサイクルを実行するが、ハイパーリンクを作成しない限り、これまでのところこれを得ている。

Sub AcctHyperlink() 
    Dim WorkRng As Range 
    On Error Resume Next 
    Set WorkRng = Application.Selection 
    Set WorkRng = Application.InputBox("Range", "Select Range", WorkRng.Address, Type:=8) 

    For i = WorkRng.Rows.Count To 1 Step -1 
     If WorkRng.Cells(i, 1).Value <> "" Then 

      WorkRng.Cells(i, 1).Hyperlink.Add Anchor:=WorkRng.Cells(i, 1), _ 
      Adress:="https://example.com/" & WorkRng.Cells(i, 1).Value & "/search", _ 
      TextToDisplay:=WorkRng.Cells(i, 1).Value 

     End If 
    Next 
End Sub 

Answer 1

編集 2つのタイプミス以外の何とCStr()通話を逃します！ HyperlinkはHyperlinksで、AdressはAddressである必要があります。 Range.ItemはRangeではなくVariantを返しますので、Excelはコンパイル時にそのようなエラーを報告することはできません。あなたが変更にする必要があり

Option Explicit '<--- always use this for more robust code 

Sub AcctHyperlink() 
    Dim WorkRng As Range 
    'On Error Resume Next '<--- Omit for error checking 
    Set WorkRng = Application.Selection 
    Set WorkRng = Application.InputBox("Range", "Select Range", WorkRng.Address, Type:=8) 

    Dim i as Long '<--- Need this because of Option Explicit 
    Dim addr as String '<--- ditto 
    For i = WorkRng.Rows.Count To 1 Step -1 
     If WorkRng.Cells(i, 1).Value <> "" Then 
      addr = "https://insight.metavante.org/opstopb1/OpstopServlet/Search?activityID=ViewProfileLnNote&activityType=note&activityTrgtID=undefined&activityAction=search&profileView=&accountNumber=" & CStr(WorkRng.Cells(i, 1).Value) & "&accountType=&subAccountNumber=&prcsGrpID=136&RelatedFIs=136&searchBy=account" 
       ' Note: need CStr() 
      '       V--- "Hyperlinks" 
      WorkRng.Cells(i, 1).Hyperlinks.Add Anchor:=WorkRng.Cells(i, 1), _ 
      Address:=addr, _ 
      TextToDisplay:=CStr(WorkRng.Cells(i, 1).Value) 
      '^--- "Address" two lines up 
      '    ^^^^---- Need CStr() 
     End If 
    Next 
End Sub 

Answer 2

：私のエクセル2013のインストールで、次の作品Hyperlinks