|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.01.2011, 17:43 | #1 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
макрос для нумерации строк
Подскажите, пожалуйста, как исправить макрос чтобы строки нумеровались автоматически на листе, а также при удалении строки нумерация также смещалась.
данный макрос зависает после нумерации первой строки. 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 |
07.01.2011, 18:31 | #2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Поиск по форуму Нумерация строк
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
07.01.2011, 18:40 | #3 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Почему? Да потому, что вы не прислушиваетесь к советам. Я вам уже говорил, что надо дописать в коде, чтобы не было зависаний: http://programmersforum.ru/showpost....53&postcount=2 Цитата:
|
||
07.01.2011, 18:45 | #4 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
но когда я это дописала, то нумерация вообще пропала...
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 |
07.01.2011, 18:52 | #5 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Мы не видели ваш файл, не знаем, что и как там надо нумеровать, так что, извините, ответа вы вряд ли дождётесь...
Почитайте правила раздела - там есть рекомендация каждый раз выкладывать пример файла. |
07.01.2011, 23:46 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
А нумерация пропала (вернее, макрос больше не выполняется) вероятно после зависания кода. И об этом тоже уже говорилось - Application.EnableEvents = False
так и осталось.
webmoney: E265281470651 Z422237915069 R418926282008
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа:Нумерация и отмена нумерации строк в мемо или richedit | Obender13 | Помощь студентам | 4 | 17.01.2011 15:00 |
Макрос для удаления повторяющихся строк | Jelena_bsb | Microsoft Office Excel | 3 | 05.08.2010 13:34 |
макрос для перемещения определенных строк вверх | MrGB | Microsoft Office Excel | 2 | 11.07.2010 20:04 |
макрос для копирования строк из одной таблицы в другую | IRI_NA | Microsoft Office Excel | 9 | 25.01.2010 20:55 |