автоматическая нумерация строк

[aoaoo]

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

а как получена прадварительная нумерация формулой или там константы?

константы =)

[kuklp]

Можно формат ячеек: 0"_00_01".
Без разницы формулы или константы.

[aoaoo]

получилось, спасибо за помошь!

[Sergey112233]

Уважаемые форумчане.
Попробовал вариант автонумерации строк с применением формулы:

=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;B$2:B2)

К сожалению, очень долго идет расчет.
Подскажите, пожалуйста, есть ли иной способ автонумерации только тех строк, которые отфильтрованы (видимы на экране)

[kuklp]

Можно макросом... Если наши умнички-формулисты не отпишутся с вердиктом(можно-нельзя) - продолжим тему.

[kuklp]

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

Уважаемые форумчане.
Подскажите, пожалуйста, есть ли иной способ автонумерации только тех строк, которые отфильтрованы (видимы на экране)

А есть еще способ - список. В 2007-2010 кажется, называется таблица(ну владельцы подскажут). Тогда и формул не надо и автофильтр присутствует.

[Sergey112233]

У меня 2003, список должен быть. Только автонумерация после фильтации как делается?

[Sergey112233]

Уважаемые форумчане.

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

А есть еще способ - список. В 2007-2010 кажется, называется таблица(ну владельцы подскажут). Тогда и формул не надо и автофильтр присутствует.

На сайте Microsoft по поводу автонумерации новой строки сказано так :

Если при использовании функции СТРОКА необходимо, чтобы при добавлении новые строки нумеровались автоматически, сделайте эту область данных списком (Список. Набор строк, содержащий взаимосвязанные данные, или набор строк, которому назначаются функции листа с помощью команды Создать список.) Excel. Выделите нужный диапазон, выберите пункт Список в меню Данные, затем выберите команду Создать список. Все строки, добавляемые к концу списка, будут последовательно пронумерованы.

Это не совсем то, о чем мой вопрос.
Мне нужно сделать так, чтобы видимые строки после фильтрации автоматически перенумеровывались 1, 2, 3, .... в столбце "№ п/п"
Способ через
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;B$2:B2)

очень долго обрабатывает данные.
Вот бы это сделать с помощью VBA! Но как

[kuklp]

В модуль листа:

[kuklp]

В модуль листа:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim i&, J&, lr&
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    J = 1
    For i = 2 To lr
        If Not Rows(i).Hidden Then
            Cells(i, 1) = J
            J = J + 1
        End If
    Next
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    End
End Sub