Нумерация только столбцов

[Trimbl]

Здравствуйте!
Люди добрые, помогите подработать код.
Вот мой вариант:
Private Sub ProcHid()
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
End If
End With
End Sub


Необходима автонумерация только строк. За основу взят файл с форума AutoNum.rar Бъюсь как рыба об лед - не хочет работать. Подскажите, как "побороть" проблему?
Благодарю за внимание.

[VictorM]

Как все запутано...

Нумерация только столбцов

Необходима автонумерация только строк.

Так что все-таки нужно нумеровать?
Если строки, то к чему такие проблемы?
Вот код, нумерует строки с 1-й по 30-ю

Sub auto()
    [a1] = 1
    [a1:a30].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
                        Step:=1, Trend:=False
End Sub

Или разговор не об этом?

[Trimbl]

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

Как все запутано...


Так что все-таки нужно нумеровать?
Если строки, то к чему такие проблемы?
Вот код, нумерует строки с 1-й по 30-ю

Sub auto()
    [a1] = 1
    [a1:a30].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
                        Step:=1, Trend:=False
End Sub

Или разговор не об этом?

Извините, действительно все поставил с ног на голову.Необходимо нумеровать столбцы

[VictorM]

Ок.
Включаем макрорекордер, пишем, смотрим.

Sub Макрос2()
    [a1] = 1
    [a1].DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _
                                                               :=1, Stop:=20, Trend:=False
'Здесь Stop:=20 предельное значение
'[a1] = 1  - начало нумерации
End Sub

[Trimbl]

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

Ок.
Включаем макрорекордер, пишем, смотрим.

Sub Макрос2()
    [a1] = 1
    [a1].DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step _
                                                               :=1, Stop:=20, Trend:=False
'Здесь Stop:=20 предельное значение
'[a1] = 1  - начало нумерации
End Sub

VictorM, конечно спасибо за помощь, для осмысления Вашего варианта мне необходимо некотрое время(слаб в этой области), но немогли-бы Вы сказать почему не работает "урезанный" мной код из приложенного вложения AutoNum

[VictorM]

Он работает, только "урежьте" вот так

Sub ProcHid()
    j = 1
    For i = 1 To 30
        Cells(1, i) = j: j = j + 1
    Next
End Sub

Это именно нумерация столбцов. с 1-го по 30-й.
Вы можете выставить свои значения.

[Trimbl]

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

Он работает, только "урежьте" вот так

Sub ProcHid()
    j = 1
    For i = 1 To 30
        Cells(1, i) = j: j = j + 1
    Next
End Sub

Это именно нумерация столбцов. с 1-го по 30-й.
Вы можете выставить свои значения.

Буду эксперементировать, но завтра, - уходит последняя вахта
Благодарен Вам VictorM.

[Trimbl]

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

Буду эксперементировать, но завтра, - уходит последняя вахта
Благодарен Вам VictorM.

VictorM Успел забить Ваш код Столбцы нумеруются с 1 по 30, но столбцы то не скрываются, а необходима нумерация при скрытии столбцов, вот такая проблема

[nilem]

Вот на основе кода SAS888 попытался использовать старые меню. Изменяется нумерация в 1-й строке при скрытии/отображении столбцов.
Сделано в Е2010.

[Trimbl]

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

Вот на основе кода SAS888 попытался использовать старые меню. Изменяется нумерация в 1-й строке при скрытии/отображении столбцов.
Сделано в Е2010.

Спасибо nilem за внимание, но у меня Е2007 , а в нем Ваш вариант не работает т.е. при скрытии столбцов не происходит изменение нумерации