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 |
|
