Работа с формой.

[levohotnik]

Господа, я чайник, помогите, пожалуйста, реализовать следующую задачу в Exel:
1. При нажатии ранее созданной кнопки на листе -> Появление формы с 4-мя текстбоксами
2. Вводим данных в форме в эти 4 тестбокса (одно целое число, одно дробное число, два остальных - текст)
3. После нажатия конпки "Ок" в форме -> Вывод этих данных в ячейки А1, А2, А3, А4.

Заранее спасибо.

[Pavel55]

См. приложенный файл

[levohotnik]

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

См. приложенный файл

Спасаба!!!

[levohotnik]

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

См. приложенный файл

А как скрыть форму после нажатия кнопки "Ок"?

[Pavel55]

1. Нажать на крестик (справа сверху на форме)
2. Добавить ещё одну кнопку на форму, например, "Выход" и прописать ей код

Unload Me

[kzld]

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

См. приложенный файл

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

[Pavel55]

можно. Для этого нужно определять последнюю заполненную строку в столбце А и прибавить к ней 1. Вот, например, так

'объявляем новую переменную iLastRow 
Dim iLastRow As Long
    
    'находим последнюю заполненную строку в столбец А
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row

    'вставляем данные на 1 строку ниже
    Range("A" & iLastRow + 1) = Me.TextBox1.Text 'или  Cells(iLastRow + 1, "A") = Me.TextBox1.Text

[kzld]

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

можно. Для этого нужно определять последнюю заполненную строку в столбце А и прибавить к ней 1. Вот, например, так

У меня не получилось.
Вы сможете написать полный текст макроса

[Pavel55]

Вот код формы

Private Sub CommandButton1_Click()
Dim iLastRow As Long
    
    'находим последнюю строку
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    'вставляем данные на 1 строку ниже
    Range("A" & iLastRow + 1) = Me.TextBox1.Text 'или  Cells(iLastRow + 1, "A") = Me.TextBox1.Text
    

End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Пример во вложенном файле

[EducatedFool]

Ну или так:

Private Sub CommandButton1_Click()
    Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Array(Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4)
End Sub

Private Sub CommandButton2_Click(): Me.Hide: End Sub

Пример файла: