Макрос для автоматической нумерации строк

@Olya1985 · Регистрация: 31.12.2010

Студворк — интернет-сервис помощи студентам

Подскажите, пожалуйста, как исправить макрос чтобы строки нумеровались автоматически на листе, а также при удалении строки нумерация также смещалась.

Visual Basic
1
2
3
4
5
6
7
Private Sub worksheet_change (byval target as range) 
 
For Each oCell In Range([D1], Cells(Rows.Count, "D")).Cells
    If Not IsEmpty(oCell) Then iCount = iCount + 1: oCell.Previous = iCount
Next
 
End Sub

@Vlanib · 07.01.2011, 17:40

А чем же вас этот код не устраивает конкретно?

@Olya1985 · 07.01.2011, 17:42 **[ТС]**

он зависает после нумерации первой строки...

@Vlanib · 07.01.2011, 18:03

Естественно! Исправьте макрос следующим образом:

Visual Basic
1
2
3
4
5
6
7
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range)
Application.EnableEvents = False
For Each oCell In Range([D1], Cells(Rows.Count, "D")).Cells
    If Not IsEmpty(oCell) Then iCount = iCount + 1: oCell.Previous = iCount
Next
Application.EnableEvents = True
End Sub

@Olya1985 · 07.01.2011, 18:07 **[ТС]**

Vlanib,

теперь строки не нумеруются...

@Vlanib · 07.01.2011, 18:15

Скиньте ваш файлик.

@Olya1985 · 07.01.2011, 18:24 **[ТС]**

файлик прилагаю

@Vlanib · 07.01.2011, 18:30

Видимо не приложился...

@Olya1985 · 07.01.2011, 18:32 **[ТС]**

еще раз попробую...

@Vlanib · 07.01.2011, 18:56

Так, Оленька, давайте обстоятельно. В этом вашем посте вы просили перевести формулу на ВБА, что я и сделал дословно. Данная вами формула возвращает в ячейку количество аргументов в столбце "D". Если бы вы изначально правильно сформулировали задачу, то и вопросов было бы меньше.
Внимательно посмотрите где располагается макрос. Если нужно чтобы он работал только для конкретной страницй, то код нужно разместить в модуле листа, в событии его изменения. Макрос нумерует столбец А если в В есть значение.

@Olya1985 · 07.01.2011, 19:01 **[ТС]**

Vlanib,

спасибо! только осталась еще одна проблема.. при удалении строки в столбце B номер все равно остается. при использовании же формулы он исчезает вместе с удаленным текстом. можно ли в макросе сделать также?

@Vlanib · 07.01.2011, 19:25

Visual Basic
1
2
3
4
5
6
7
8
9
Application.EnableEvents = False
For Each oCell In Range([B1], Cells(ActiveSheet.UsedRange.Rows.Count, "B")).Cells
    If Not IsEmpty(oCell) Then
        iCount = iCount + 1
        oCell.Previous = iCount
    Else: oCell.Previous.Clear
    End If
Next
Application.EnableEvents = True

@Olya1985 · 07.01.2011, 20:26 **[ТС]**

теперь отлично. спасибо!

Добавлено через 13 минут
Vlanib,

извиняюсь, но еще одна небольшая проблемка. последнее введенное значение не пронумеровывается. как можно это исправить?

Добавлено через 16 минут
Vlanib,

прошу мое предыдущее сообщение считать недействительным.

у меня овт еще вопрос. я не совсем понимаю для чего используется Application.EnableEvents = False или True. Не могли бы вы вкратце объяснить?

Добавлено через 6 минут
я что то порядком запуталась... последняя строка и правда не нумеруется........

@ironegg · 07.01.2011, 22:41

EnableEvents, как следует из перевода, отключает или включает обработку событий приложения (т. е события могут либо игнорироваться, либо при возникновении событий могут вызываться соответствующие обработчики этих событий) http://support.microsoft.com/kb/213720

Не по теме:

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

я что то порядком запуталась

ВОЗМОЖНО, выполнение кода было остановлено пользователем между инструкциями Application.EnableEvents = False/True и события перестали обрабатываться вплоть до повторного открытия приложения

@tevadim · 09.01.2013, 11:15

Уважаемый Vlanib Спасибо - Очень интересное решение , а можно дописать макрос чтоб в " A " счет шел с первой пустой ячейки ( так как обычно бывают шапки в таблицах - получится макрос на все случаи жизни

@Margo_legion · 20.02.2021, 14:05

Vlanib, а как переписать макрос, чтобы он нумеровал строку не по приницпу "количество столбцов выше+1", а "значение в предыдущей ячейке+1". У меня нумерация строк просто 10001, 10002..

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	07.01.2011, 17:40
	А чем же вас этот код не устраивает конкретно? 0

@Olya1985 32 / 2 / 0 Регистрация: 31.12.2010 Сообщений: 91
	07.01.2011, 17:42 [ТС]
	он зависает после нумерации первой строки... 0

@Olya1985 32 / 2 / 0 Регистрация: 31.12.2010 Сообщений: 91
	07.01.2011, 18:07 [ТС]
	Vlanib, теперь строки не нумеруются... 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	07.01.2011, 18:15
	Скиньте ваш файлик. 0

@Olya1985 32 / 2 / 0 Регистрация: 31.12.2010 Сообщений: 91
	07.01.2011, 18:24 [ТС]
	файлик прилагаю 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	07.01.2011, 18:30
	Видимо не приложился... 0

@Olya1985 32 / 2 / 0 Регистрация: 31.12.2010 Сообщений: 91
	07.01.2011, 19:01 [ТС]
	Vlanib, спасибо! только осталась еще одна проблема.. при удалении строки в столбце B номер все равно остается. при использовании же формулы он исчезает вместе с удаленным текстом. можно ли в макросе сделать также? 0

@Olya1985 32 / 2 / 0 Регистрация: 31.12.2010 Сообщений: 91
	07.01.2011, 20:26 [ТС]
	теперь отлично. спасибо! Добавлено через 13 минут Vlanib, извиняюсь, но еще одна небольшая проблемка. последнее введенное значение не пронумеровывается. как можно это исправить? Добавлено через 16 минут Vlanib, прошу мое предыдущее сообщение считать недействительным. у меня овт еще вопрос. я не совсем понимаю для чего используется Application.EnableEvents = False или True. Не могли бы вы вкратце объяснить? Добавлено через 6 минут я что то порядком запуталась... последняя строка и правда не нумеруется........ 0

@tevadim 91 / 1 / 1 Регистрация: 09.01.2013 Сообщений: 2
	09.01.2013, 11:15
	Сообщение было отмечено как решение Решение Уважаемый Vlanib Спасибо - Очень интересное решение , а можно дописать макрос чтоб в " A " счет шел с первой пустой ячейки ( так как обычно бывают шапки в таблицах - получится макрос на все случаи жизни 0

@Margo_legion 8 / 8 / 1 Регистрация: 22.02.2012 Сообщений: 168
	20.02.2021, 14:05
	Vlanib, а как переписать макрос, чтобы он нумеровал строку не по приницпу "количество столбцов выше+1", а "значение в предыдущей ячейке+1". У меня нумерация строк просто 10001, 10002.. 0

Макрос для автоматической нумерации строк

Решение