powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нумерация строк при добавлении и удалении
9 сообщений из 9, страница 1 из 1
Нумерация строк при добавлении и удалении
    #34694107
Alex_Lit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Приветствую всех!
Проблема такая начал разрабатывать таблицу с применением MultiPage в первой закладке визуальная таблица добавления параметров по определенному объекту а во второй закладке визуальная таблица удаления выбранного из combobox объекта, подскажите как прописать автоматическую нумерацию строк в ячейку А1 при добавлении объекта, а при удалении другого объекта например их середины таблицы (удаление всей строки) эта нумерация автоматически пересчитывалась.
Заранее спасибо! =)
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34694162
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ф1 - РАНГ
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34694221
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
.Cells(Строка + 1, 1).Formula = "=ROW()-ROW($A$2)"
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34698293
Alex_Lit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad .Cells(Строка + 1, 1).Formula = "=ROW()-ROW($A$2)"

Спасибо ввел все заработало

Только вопрос расскажите если не трудно как оно действует я просто совсем новичек и ввел втупую в код, что бы в будующем понимать свои действия.
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34698384
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Просто добавляет в ячейку формулу
=СТРОКА()-СТРОКА($A$2)
Попробуйте сами вставить эту формулу в ячейку и растянуть, а потом почитайте справку про СТРОКА() и сами всё поймёте!
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34699157
Alex_Lit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DeggasadПросто добавляет в ячейку формулу
=СТРОКА()-СТРОКА($A$2)
Попробуйте сами вставить эту формулу в ячейку и растянуть, а потом почитайте справку про СТРОКА() и сами всё поймёте!

Хм!! =) а ведь работает! Не бейте сильно я новичок!

Тогда у меня еще вопрос все облазил весь поиск видимо проглядел но не понимаю как удалить выбранную строку из ComboBox со второй страницы MultiPage. Объект выбирается но как прописать чтобы он удалялся из таблицы?

Dim Название_поселка As String
Название_поселка = ComboBox2.Text
Rows(Название_поселка).Delete ошибка!

или вообще не так?
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34699193
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нужно сначала найти строку в которой "Название_поселка"
Для этого
Код: plaintext
x = Columns(номер столбца с именами).find (Название_поселка,,,xlWhole,xlByRows).row
А потом уже
Код: plaintext
Rows(x).Delete
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34699274
Alex_Lit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Упс! все верно но по ходу движения столкнулся с другой задачей! а если поселок выбран ошибочно. Я ввел

Private Sub CommandButton2_Click()

Dim Название_поселка As String
Название_поселка = ComboBox2.Text
x = Columns(4).Find(Название_поселка, , , xlWhole, xlByRows).Row
Rows(x).Delete
Удаление_поселка.Show

End Sub


Форма Удаление_поселка

Private Sub CommandButton3_Click()
'Кнопка подтверждения удаления строки поселка
End Sub

Private Sub CommandButton4_Click()
'Кнопка отказа от удаления
Unload Me
End Sub

Форма подтверждения удаления выскакивает но уже после того как строка удалена. Как сделать чтобы она выскакивала раньше и при "ОК" удаляла строку а при "Нет" просто возвращалась в форму удаления. Хотя второе я вроде оеализовал.
...
Рейтинг: 0 / 0
Нумерация строк при добавлении и удалении
    #34702725
Alex_Lit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проверил в форме добавляет корректно а вот удаляет нет. если удалить поселок с номером 3 то остается нумерация 1,2,4,5 и при добавлении новой строки он присваивает номер 5!!! и только потом 6 в результате у меня две строки с номером 5!
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нумерация строк при добавлении и удалении
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]