Блог

Главная - Вопросы по программированию - Не будет обработан до следующей строки

Не будет обработан до следующей строки

#excel #vba

#excel #vba

Вопрос:

Хорошо, вот оно, у меня есть этот код 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=Trueamp;RequestID=") amp; 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

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

Есть мысли?

Комментарии:

1. Код работает нормально. Выберите диапазон ячеек, а затем запустите свой макрос. Он добавил ссылки на ячейку для меня. Если вы выберете одну ячейку, это просто создаст ссылку для этой ячейки.

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

3. Выделена ли у вас одна ячейка? Добавьте эту строку перед заданным WorkRng.. Range(Selection, Selection.End(xlDown)).Select . Он выделит диапазон, а затем превратит их в гиперссылки.

4. Милая tyvm Я знаю, что мне не хватало чего-то простого, это отлично работает, tyvm