Из TextBox вставить данные в пустую ячейку

@sergey-bog · Регистрация: 22.02.2012

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

Здравствуйте. Помогите решить задачу. Есть форма на ней TextBox, как вводя данные сделать так, чтобы эти данные попали в пустую ячейку в определённый столбец книги.
Заранее благодарен.

@Masalov · 22.02.2012, 08:07

Нужно найти последнюю пустую ячейку в таблице, например так: http://relib.com/forums/thread.aspx?id=884102, и занести в нее значение textbox.value

Подведу итог.
На форме TextBox1 и кнопка CommandButton1 по нажатию на которую идет запись в первую колонку листа с именем "Лист3".

Visual Basic
1
2
3
4
5
Private Sub CommandButton1_Click()
rk = Sheets("Лист3").Columns("A").Rows(65536).End(xlUp).Row + 1
Sheets("Лист3").Cells(rk, 1) = Me.TextBox1.Value
MsgBox "Занесено" & vbCr & "в строку " & rk, vbInformation, ""
End Sub

@sergey-bog · 22.02.2012, 23:43 **[ТС]**

Спасибо за ответ. Но вариант такой, что на форме два или больше TextBox-ов, можно ли их связать с пустыми ячейками
в разных столбцах и кнопкой на форме одновременно. Другой вариант это без кнопки, данные из TextBox попадают
сразу в пустую ячейку. Прошу прощение за назойливость, но сам не могу, а очень нужно.

@Masalov · 23.02.2012, 07:03

1) Для записи значений нескольких TextBox-ов необходимо продублировать поиск и запись...

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
c1 = 1 ' номер колонки для TextBox1
rk1 = Sheets("Лист3").Columns(c1).Rows(65536).End(xlUp).Row + 1
Sheets("Лист3").Cells(rk1, c1) = Me.TextBox1.Value
c2 = 2 ' номер колонки для TextBox2
rk2 = Sheets("Лист3").Columns(c2).Rows(65536).End(xlUp).Row + 1
Sheets("Лист3").Cells(rk2, c2) = Me.TextBox2.Value
MsgBox "Значение TextBox1= " & Me.TextBox1.Value & ", в строку " & rk1 & vbCr & _
"Значение TextBox2= " & Me.TextBox2.Value & ", в строку " & rk2, vbInformation, ""
End Sub

Сразу оговорюсь, что есть другие варианты...

2) Для того чтобы данные [bold]сразу[/bold] попали в ячейку нужно обработать какое нибуть событие и на него повесить запись. Какое это будет событие, Вам решать. Это может быть время, изменение TextBox или "снятие курсора" с этого TextBox-а... Вот для затравки:

Visual Basic
1
2
3
4
5
6
7
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "BeforeUpdate"
End Sub
 
Private Sub TextBox1_Change()
MsgBox "Change"
End Sub

@sergey-bog · 26.02.2012, 16:27 **[ТС]**

Спасибо за ответ. Если не трудно то есть ещё один, не совсем
понятный мне,вопрос. Есть два листа, на одном база данных,
на втором документ и есть форма. Как написать условие при
котором вводя в TextBox, на форме, данные, происходила
сверка с БД и при наитии все значения из ячеек копируются в
документ на втором листе.

@Leonardo65 · 15.09.2016, 08:40

Отдуши за тему!

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@sergey-bog 0 / 0 / 0 Регистрация: 22.02.2012 Сообщений: 9

	Из TextBox вставить данные в пустую ячейку 22.02.2012, 03:34. Показов 19133. Ответов 5 Метки нет (Все метки) Здравствуйте. Помогите решить задачу. Есть форма на ней TextBox, как вводя данные сделать так, чтобы эти данные попали в пустую ячейку в определённый столбец книги. Заранее благодарен. 0

@sergey-bog 0 / 0 / 0 Регистрация: 22.02.2012 Сообщений: 9
	22.02.2012, 23:43 [ТС]
	Спасибо за ответ. Но вариант такой, что на форме два или больше TextBox-ов, можно ли их связать с пустыми ячейками в разных столбцах и кнопкой на форме одновременно. Другой вариант это без кнопки, данные из TextBox попадают сразу в пустую ячейку. Прошу прощение за назойливость, но сам не могу, а очень нужно. 0

@sergey-bog 0 / 0 / 0 Регистрация: 22.02.2012 Сообщений: 9
	26.02.2012, 16:27 [ТС]
	Спасибо за ответ. Если не трудно то есть ещё один, не совсем понятный мне,вопрос. Есть два листа, на одном база данных, на втором документ и есть форма. Как написать условие при котором вводя в TextBox, на форме, данные, происходила сверка с БД и при наитии все значения из ячеек копируются в документ на втором листе. 0

@Leonardo65 0 / -1 / 0 Регистрация: 17.06.2016 Сообщений: 35
	15.09.2016, 08:40
	Отдуши за тему! 0