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

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

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

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

Visual Basic

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

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

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

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

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

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

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

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

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

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

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

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	07.01.2011, 22:41	14
	EnableEvents, как следует из перевода, отключает или включает обработку событий приложения (т. е события могут либо игнорироваться, либо при возникновении событий могут вызываться соответствующие обработчики этих событий) http://support.microsoft.com/kb/213720 Не по теме: Сообщение от Olya1985 я что то порядком запуталась ВОЗМОЖНО, выполнение кода было остановлено пользователем между инструкциями Application.EnableEvents = False/True и события перестали обрабатываться вплоть до повторного открытия приложения 0

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

	20.02.2021, 14:05

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

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

Решение