Добавление нужного количества строк в таблицу с уникальным индексом

@Dimasterfrom4e · Регистрация: 27.09.2015

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

Добрый день.

Просьба подсказать, как такое можно реализовать?

Есть форма (вызывается по кнопке), где в текстбоксах вводится наименование и кол-во поддонов.

Логика такая:

- ввели в форме например Грунт и 5 поддонов и нажали кнопку
- в таблицу , начиная с новой строки, добавилось 5 строк с порядковым индексом поддона в ид_поддона.

Индекс идет всегда по возрастающей.

@Kubuntovod · 29.11.2019, 17:45

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

Логика такая:
- ввели в форме например Грунт и 5 поддонов и нажали кнопку
- в таблицу , начиная с новой строки, добавилось 5 строк с порядковым индексом поддона в ид_поддона.

На каком этапе проблема?

@nyqpblcTuk · 29.11.2019, 18:13

в окне бэйсика необходимо перейти на форму и дважды нажать на кнопку.

откроется окно для макроса уже с процедурой,
далее все просто циклом определяем последнею строку не занятую
переменная для начального id паддона
далее в зависимости от количества введеного вами, вписать строки и в каждой строке переменная id + 1 и наименование

Добавлено через 7 минут
ну и проверочку добавить через тот же начальный цикл что если строк 0 тогда переменная начальная если нет, то вытаскивать id паддона с последней строки.

@Burk · 29.11.2019, 18:26

Dimasterfrom4e, в код формы вставьте этот макрос. Если это то, что вам нужно, то неужели было так трудно сделать самому?

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim LastRow As Long, I As Long, N As Integer, Nom As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Nom = Cells(LastRow, 2) 
N = Val(TextBox2)
For I = 1 To N
  Cells(LastRow + I, 1) = TextBox1
  Cells(LastRow + I, 2) = Nom+I
Next
End Sub

@nyqpblcTuk · 29.11.2019, 18:39

Burk, а если ничего еще в таблице нет?

Nom = Cells(LastRow, 2)
Nom = "ид_поддона"

не так ли ?

и тем самым будет ошибка что это не long

и темболее у него паддоны 10000001..... так что все равно придется давать начальную переменную....

@Burk · 29.11.2019, 18:50

nyqpblcTuk, когда писал код вашего сообщения у меня на экране ещё не было, иначе не стал бы рисовать код.

Добавлено через 9 минут
nyqpblcTuk, я не считаю, что должен делать идеальный алгоритм с учетом всех нюансов, пусть что-то остается для автора. Пусть стартовый номер ставит вручную, тем более, что начинаются номера не с единицы. Это не порядковый номер, а какой-то номер группы поддонов. Захочет, пусть ставит проверку - если Last =1 то Nom =1

@nyqpblcTuk · 29.11.2019, 18:53

Burk, да я полностью с Вами согласен, код элементарный, даже на начальном уровне потратить 2-3 часа и все получится, для формы же хватило знаний, по наитию наверное, но все же.... Так что рисовать код было вообще не целесообразно... иначе так и не научится, хотя я сам много не знаю еще в vba...

@Burk · 29.11.2019, 19:04

nyqpblcTuk, если вы глянете темы, в которых я участвовал, то увидите, что я частенько для подобных задач просто намечаю пути решения. А тут решил написать. Бывает, не судите строго.

@nyqpblcTuk · 29.11.2019, 19:08

Burk, Да не в коем случаи, Вас судить, всех Благ.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@nyqpblcTuk 23 / 18 / 4 Регистрация: 29.05.2016 Сообщений: 82
	29.11.2019, 18:13
	в окне бэйсика необходимо перейти на форму и дважды нажать на кнопку. откроется окно для макроса уже с процедурой, далее все просто циклом определяем последнею строку не занятую переменная для начального id паддона далее в зависимости от количества введеного вами, вписать строки и в каждой строке переменная id + 1 и наименование Добавлено через 7 минут ну и проверочку добавить через тот же начальный цикл что если строк 0 тогда переменная начальная если нет, то вытаскивать id паддона с последней строки. 0

@nyqpblcTuk 23 / 18 / 4 Регистрация: 29.05.2016 Сообщений: 82
	29.11.2019, 18:39
	Burk, а если ничего еще в таблице нет? Nom = Cells(LastRow, 2) Nom = "ид_поддона" не так ли ? и тем самым будет ошибка что это не long и темболее у него паддоны 10000001..... так что все равно придется давать начальную переменную.... 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	29.11.2019, 18:50
	nyqpblcTuk, когда писал код вашего сообщения у меня на экране ещё не было, иначе не стал бы рисовать код. Добавлено через 9 минут nyqpblcTuk, я не считаю, что должен делать идеальный алгоритм с учетом всех нюансов, пусть что-то остается для автора. Пусть стартовый номер ставит вручную, тем более, что начинаются номера не с единицы. Это не порядковый номер, а какой-то номер группы поддонов. Захочет, пусть ставит проверку - если Last =1 то Nom =1 0

@nyqpblcTuk 23 / 18 / 4 Регистрация: 29.05.2016 Сообщений: 82
	29.11.2019, 18:53
	Burk, да я полностью с Вами согласен, код элементарный, даже на начальном уровне потратить 2-3 часа и все получится, для формы же хватило знаний, по наитию наверное, но все же.... Так что рисовать код было вообще не целесообразно... иначе так и не научится, хотя я сам много не знаю еще в vba... 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	29.11.2019, 19:04
	nyqpblcTuk, если вы глянете темы, в которых я участвовал, то увидите, что я частенько для подобных задач просто намечаю пути решения. А тут решил написать. Бывает, не судите строго. 0

@nyqpblcTuk 23 / 18 / 4 Регистрация: 29.05.2016 Сообщений: 82
	29.11.2019, 19:08
	Burk, Да не в коем случаи, Вас судить, всех Благ. 0

Добавление нужного количества строк в таблицу с уникальным индексом

Решение