Нумерация строк

[Trimbl]

Форумчане, здравствуйте!
Подскажите, как в примере AutoNum предложенном уважаемым SAS888 изменить код процедуры ProcHid для случая, когда нумерация столбцов начинается не с первой строки, а к примеру - с пятой.
Если Вы будете так любезны, то прокоментируйте вышеназванный код.
Благодарю.

[staniiislav]

Здравствуйте, если я не ошибаюсь, похоже:

Dim i As Long, j As Long: Application.ScreenUpdating = False
If Not TypeOf Selection Is Range Then Exit Sub
With Selection
If .Address = .EntireRow.Address Then
.Rows.Hidden = True: j = 1
For i = 1 To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
If Rows(i).Hidden = False Then
Cells(i, 1) = j: j = j + 1
End If
Next
ElseIf .Address = .EntireColumn.Address Then
.Columns.Hidden = True: j = 1
For i = 1 To ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
If Columns(i).Hidden = False Then
Cells(1, i) = j: j = j + 1
End If
Next
End If
End With


там где выделено жирным, это наверное с кокой строки начинать цикл...
А что эта процедурка делает?

[Trimbl]

Сообщение от staniiislav

Здравствуйте, если я не ошибаюсь, похоже:

Dim i As Long, j As Long: Application.ScreenUpdating = False
If Not TypeOf Selection Is Range Then Exit Sub
With Selection
If .Address = .EntireRow.Address Then
.Rows.Hidden = True: j = 1
For i = 1 To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
If Rows(i).Hidden = False Then
Cells(i, 1) = j: j = j + 1
End If
Next
ElseIf .Address = .EntireColumn.Address Then
.Columns.Hidden = True: j = 1
For i = 1 To ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
If Columns(i).Hidden = False Then
Cells(1, i) = j: j = j + 1
End If
Next
End If
End With


там где выделено жирным, это наверное с кокой строки начинать цикл...
А что эта процедурка делает?

Там где выделенно жирным это точно не то, что Вы думаете, а именно:
For -ключевое слово, означающее начало цикла
i - переменная, определяющая число повторений цикла
1 - начальное значение счетчика
Представлен фрагмент кода, назначение которого заложено в названии вложения(AutuNum) т.е автоматическую нумерацию столбцов и строк.