SAS888
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору liatera Метод Select без особой необходимости старайтесь не применять. Это, как правило, излишество. Вашу задачу Цитата: сделать цикл от "координата клетки" до "нуля". | можно решить, например, так: Код: Sub Main() Dim i As Long, j As Long: Application.ScreenUpdating = False j = ActiveCell.Column For i = ActiveCell.Row To 2 Step -1 Rows(i & ":" & i + 1).Insert: Cells(i, j) = "data": Cells(i - 1, j) = "[Net.=" & Cells(i - 1, j) & "]" Next End Sub | Добавлено: nidhthunter Пусть в столбце "A", начиная с 1-й строки содержатся имена листов в текстовом виде. Следующий макрос создаст ссылки на ячейку "A1" каждого листа. Причем, если такого листа не существует, то ссылка просто не будет создана. Код: Sub Main() Dim i As Long, x As Object: Application.ScreenUpdating = False For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row On Error Resume Next: Set x = Sheets(CStr(Cells(i, 1))) If Err = 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", _ SubAddress:=Sheets(CStr(Cells(i, 1))).Name & "!A1", TextToDisplay:=Cells(i, 1).Text Else: On Error GoTo 0 End If Next End Sub |
| Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 05:08 27-08-2009 | Исправлено: SAS888, 05:35 27-08-2009 |
|