Форма ввода - Microsoft Office Excel

Сеanonselen-Ткачук · 27.11.2021, 19:11

Здравствуйте!
Помогите пожалуйста с формой ввода данных в таблицу.
Есть отчет в в виде таблицы excel. Нужно сделать форму для ввода данных в три столбца (в приложенном файле выделил желтым цветом. Там дата, ФИО и кол-во). Каждый раз нажав на кнопку "Ввести данные", данные должны вводится на строчку ниже.
Я что-то попытался сделать, но данные не вводятся в нужные ячейки и не перескакивают при следующем вводе на строчку ниже.

Aleksandr H. · 27.11.2021, 23:26

только из-за xlsx расширения, могу предположить что никакого "что-то попытался сделать" нету

Сеanonselen-Ткачук · 27.11.2021, 23:50

Я медик и не имею никакого отношения к программированию, потому и обратился сюда. Сделал по видео из ютуба. Данные вводятся, но не в те ячейки, которые нужно и следующие данные не перескакивают на строчку ниже.

Aleksandr H. · 28.11.2021, 00:13

Ничего никуда не вводится, по крайней мере во вложенном файле. Вы проверяли файл который вложили в 1е сообщение темы?

Сеanonselen-Ткачук · 28.11.2021, 09:21

Переделал. Сейчас данные вводятся в нужные ячейки, но только 1 раз. При следующей попытке ввести данные не переходят на другую строчку.

Aleksandr H. · 28.11.2021, 17:23

потому что количество записей в столбце А не меняется и всегда 15

Код:

EmptyRows = Cells(Rows.Count, "I").End(xlUp).Row + 1

Сеanonselen-Ткачук · 28.11.2021, 18:14

Огромное спасибо! Все работает.
Подскажите пожалуйста, можно ли сделать так, чтобы кнопка вызова формы находилась на одном листе, например "Лист1", а данные вводились в таблицу на листе "Трамадол"? Как в этом случае правильно прописать ссылку на другой лист?
Это верно?

Код:

Worksheets("Трамадол").Activate

Aleksandr H. · 28.11.2021, 19:38

надо прописать на какой лист выводить

Код:

Worksheets("Трамадол").Cells(Rows.Count, "I").End(xlUp).Row + 1

Сеanonselen-Ткачук · 29.11.2021, 14:45

Спасибо за помощь!

27.11.2021, 23:26	#2
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	только из-за xlsx расширения, могу предположить что никакого "что-то попытался сделать" нету Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

28.11.2021, 00:13	#4
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	Ничего никуда не вводится, по крайней мере во вложенном файле. Вы проверяли файл который вложили в 1е сообщение темы? Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

28.11.2021, 17:23	#6
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	потому что количество записей в столбце А не меняется и всегда 15 Код: `EmptyRows = Cells(Rows.Count, "I").End(xlUp).Row + 1` Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

28.11.2021, 18:14	#7
Сеanonselen-Ткачук Регистрация: 27.11.2021 Сообщений: 8	Огромное спасибо! Все работает. Подскажите пожалуйста, можно ли сделать так, чтобы кнопка вызова формы находилась на одном листе, например "Лист1", а данные вводились в таблицу на листе "Трамадол"? Как в этом случае правильно прописать ссылку на другой лист? Это верно? Код: `Worksheets("Трамадол").Activate` Последний раз редактировалось Сеanonselen-Ткачук; 28.11.2021 в 18:20.

28.11.2021, 19:38	#8
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	надо прописать на какой лист выводить Код: `Worksheets("Трамадол").Cells(Rows.Count, "I").End(xlUp).Row + 1` Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

27.11.2021, 23:50	#3
Сеanonselen-Ткачук Регистрация: 27.11.2021 Сообщений: 8	Я медик и не имею никакого отношения к программированию, потому и обратился сюда. Сделал по видео из ютуба. Данные вводятся, но не в те ячейки, которые нужно и следующие данные не перескакивают на строчку ниже.

29.11.2021, 14:45	#9
Сеanonselen-Ткачук Регистрация: 27.11.2021 Сообщений: 8	Спасибо за помощь!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Форма ввода	desant_school	Помощь студентам	1	26.03.2021 14:22
Форма ввода/вывода	ashot-nnov	Microsoft Office Access	3	23.08.2013 09:38
Условия, форма ввода, кнопка	TAKOY	C# (си шарп)	2	11.04.2012 10:45
Форма ввода пароля	R71MT	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	16.06.2011 16:22
Форма для ввода строки	Ksy	JavaScript, Ajax	2	16.05.2011 10:01