Я создал программу в 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)
Любой совет будет очень полезным.