VBA в MS Excel надо чтобы все введённые значения появлялись на листе только после закрытия последней

@MoTeYs · Регистрация: 14.12.2015

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

Делал психологический тест в Excel, каждый вопрос появляется в своей UserForm, в которой есть только одно окошко для ответа, куда надо вбить цифру, всего UserForm'ов 12. При нажатии кнопки ДАЛЕЕ закрывается одна форма и открывается следующая с новым вопросом.
Так вот, как сделать так, чтобы после закрытия именно последней формы, считывались значения, введённые в каждой форме и вставлялись в соответствующие ячейки на листе в Excel?
Например, мне надо чтобы после закрытия последней формы цифра, введённая в UserForm1, записывалась в ячейку A1, цифра из UserForm2 - в ячейку A2 и т. д.
Как сделать чтобы значение вставлялось сразу после закрытия каждой формы я знаю:

Visual Basic

Private Sub CommandButton1_Click()
Range("A1") = Val(TextBox1)
UserForm1.Hide
UserForm2.Show
End Sub

А вот как сделать, чтобы все введённые значения появлялись на листе только после закрытия последней формы, ума не приложу... помогите...

~~Shersh~~ · 01.04.2016, 08:44

В первой форме -

Visual Basic

Private Sub CommandButton1_Click()
ROWS(1).ROWHEIGHT=0
Range("A1") = Val(TextBox1)
UserForm1.Hide
UserForm2.Show
End Sub

В последней форме -

Visual Basic

Private Sub CommandButton1_Click()
ROWS(1).ROWHEIGHT=20
Range("A12") = Val(TextBox1)
UserForm12.Hide
End Sub

@MoTeYs · 01.04.2016, 08:52 **[ТС]**

Shersh, спасибо за быстрый ответ, а как сделать, чтобы вводились не в A1-A12, а в C2-N2?
и что значит ROWS(1).ROWHEIGHT=20

~~Shersh~~ · 01.04.2016, 09:01

Вместо ROWS(1).ROWHEIGHT напишите COLUMNS(2).COLUMNWIDTH

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

@MoTeYs · 01.04.2016, 09:21 **[ТС]**

Shersh, сделал вот так:
в первой форме:

Visual Basic

Private Sub CommandButton1_Click()
Columns(2).ColumnWidth = 0
Range("C2") = Val(TextBox1)
UserForm1.Hide
UserForm2.Show
End Sub

в последней форме:

Visual Basic

Private Sub CommandButton1_Click()
Columns(2).ColumnWidth = 20
Range("N2") = Val(TextBox1)
UserForm12.Hide
End Sub

в итоге записываются значения только в 1 и 12 ячейки...
В 1 вбивается сразу после закрытия 1 формы, в остальных ничего не происходит, ну и в 12 - после закрытия последней

~~Shersh~~ · 01.04.2016, 09:24

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

Private Sub CommandButton1_Click()

из UserForm2 покажите.

@MoTeYs · 01.04.2016, 09:29 **[ТС]**

Shersh,

Visual Basic

Private Sub CommandButton1_Click()
'Range("D2") = Val(TextBox1) // специально выкл, иначе сразу после закрытия формы заполняется D2
UserForm2.Hide
UserForm3.Show
End Sub

~~Shersh~~ · 01.04.2016, 09:38

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

специально выкл

Зачем? Специально мы скрыли второй столбец, чтоб никто не видел, как он заполняется.
Или я не правильно понял вашу хотелку?

@MoTeYs · 01.04.2016, 09:50 **[ТС]**

Shersh,

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

Специально мы скрыли второй столбец

зачем же скрывать второй столбец? мне надо 2-ю строку

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

~~Shersh~~ · 01.04.2016, 10:02

ROWS(2).ROWHEIGHT=0 - прошу пардону, вот вторая строка

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

хочется сделать немного по-аккуратнее...

Циклы, массивы и ОДНА форма - самое разумное решение.

@MoTeYs 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 34
	01.04.2016, 08:52 [ТС]	3
	Shersh, спасибо за быстрый ответ, а как сделать, чтобы вводились не в A1-A12, а в C2-N2? и что значит ROWS(1).ROWHEIGHT=20 0

~~Shersh~~ Заблокирован
	01.04.2016, 09:01	4
	Вместо ROWS(1).ROWHEIGHT напишите COLUMNS(2).COLUMNWIDTH Добавлено через 1 минуту И про циклы бы вам почитать, чтоб не городить кучи форм без всякой нужды... 0

~~Shersh~~ Заблокирован
	01.04.2016, 09:24	6
	Сообщение от MoTeYs Private Sub CommandButton1_Click() из UserForm2 покажите. 0

~~Shersh~~ Заблокирован
	01.04.2016, 09:38	8
	Сообщение от MoTeYs специально выкл Зачем? Специально мы скрыли второй столбец, чтоб никто не видел, как он заполняется. Или я не правильно понял вашу хотелку? 0

@MoTeYs 0 / 0 / 0 Регистрация: 14.12.2015 Сообщений: 34
	01.04.2016, 09:50 [ТС]	9
	Shersh, Сообщение от Shersh Специально мы скрыли второй столбец зачем же скрывать второй столбец? мне надо 2-ю строку и строку не надо скрывать, таблица рушится... надо чтобы ячейки С2-N2 оставались пустыми до тех пор, пока не закроется 12 форма, и только после этого они все заполняются цифрами из соответсвующих форм, вот... Это, конечно, не критично, что каждая ячейка у меня заполняется сразу после закрытия каждой формы, просто хочется сделать немного по-аккуратнее... 0

~~Shersh~~ Заблокирован
	01.04.2016, 10:02	10
	ROWS(2).ROWHEIGHT=0 - прошу пардону, вот вторая строка Сообщение от MoTeYs хочется сделать немного по-аккуратнее... Циклы, массивы и ОДНА форма - самое разумное решение. 0