Как превратить ячейку в Excel в гиперссылку, используя значение ячейки в конце URL - PullRequest
0 голосов
/ 06 марта 2019

Я создал программу в VBA в Excel, все работает отлично, за исключением части, которая берет значение ячейки и добавляет его в конец гиперссылки, затем добавляет гиперссылку в ячейку, отображающую значение.Вот код, который я использую для этой части:

'Hyper Link column A

Dim WorkRng As Range
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", "Select Range", WorkRng.Address, Type:=8)

Dim l As Long
Dim addr As String
For l = WorkRng.Rows.Count To 1 Step -1
    If WorkRng.Cells(l, 1).Value <> "" Then
        addr = CStr("https://True&RequestID=") & CStr(WorkRng.Cells(l, 1).Value)
        WorkRng.Cells(l, 1).Hyperlink.Add Anchor:=WorkRng.Cells(l, 1), _
        Address:=addr, _
        TextToDisplay:=CStr(WorkRng.Cells(i, 1).Value)
    End If
Next

Он продолжает ломаться в этой части:

        WorkRng.Cells(l, 1).Hyperlink.Add Anchor:=WorkRng.Cells(l, 1), _
        Address:=addr, _
        TextToDisplay:=CStr(WorkRng.Cells(i, 1).Value)

Любой совет будет очень полезным.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...