Не будет обрабатываться до следующей строки - PullRequest
0 голосов
/ 11 марта 2019

Хорошо, вот, у меня есть этот код 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

Он отказывается переходить на следующую строку, пока не достигнет последней строки.

Есть мысли?

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