Хорошо, вот, у меня есть этот код VBA в Excel, который я пытаюсь перенести с одной вкладки на другую, а затем отредактировать эти данные.Я получаю почти все для завершения, кроме того, когда я запускаю его, я получаю диалоговое окно, которое появляется и говорит «Выберите диапазон».Он должен взять данные в выбранной ячейке и добавить их в конец заданного URL-адреса с показанным значением ячейки, чтобы при щелчке он переместился на страницу с указанным идентификатором и URL-адресом вместе.
Вот код:
'Hyperlink column A
Dim WorkRng As Range
Set WorkRng = Application.Selection
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://att.agilecraft.com/RequestGrid?FirstTime=True&RequestID=") & CStr(WorkRng.Cells(l, 1).Value)
WorkRng.Cells(l, 1).Hyperlinks.Add Anchor:=WorkRng.Cells(l, 1), _
Address:=addr, _
TextToDisplay:=CStr(WorkRng.Cells(i, 1).Value)
End If
Next l
Он отказывается переходить на следующую строку, пока не достигнет последней строки.
Есть мысли?