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

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

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

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

@Masalov · 22.02.2012, 08:07

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

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

Visual Basic

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

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

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

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

@sergey-bog 0 / 0 / 0 Регистрация: 22.02.2012 Сообщений: 9
		1
	Из TextBox вставить данные в пустую ячейку 22.02.2012, 03:34. Показов 18394. Ответов 5 Метки нет (Все метки) Здравствуйте. Помогите решить задачу. Есть форма на ней TextBox, как вводя данные сделать так, чтобы эти данные попали в пустую ячейку в определённый столбец книги. Заранее благодарен. 0

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

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

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