Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 04 апреля 2023, 13:00

Название: Сохранение суммы значений textbox в одну ячейку, при выполнении условия
Отправлено: Посетитель от 04 апреля 2023, 13:00
Добрый день. Подскажите, пожалуйста. Есть 2 textbox, в которые вводятся числовые значения (первый обязательный к заполнению, второй - нет). Сумму значений из первого textbox нужно записать в одну ячейку, но при условии, что заполнен второй textbox (<>""). Как это можно осуществить?
Название: От: Сохранение суммы значений textbox в одну ячейку, при выполнении условия
Отправлено: Администратор от 04 апреля 2023, 13:16
Private Sub CommandButton1_Click()
    If Me.TextBox2.Text <> "" Then
        ActiveCell.Value = Me.TextBox1.Text
    End If
End Sub
Название: От: Сохранение суммы значений textbox в одну ячейку, при выполнении условия
Отправлено: Посетитель от 04 апреля 2023, 16:39
Сложность в том, что все числа из textbox1 нужно отправлять в одну ячейку, прибавляя к уже имеющейся в ней сумме, но только при соблюдении условия, что будет заполнен textbox2, а сколько будет таких "парных текстбоксов" заранее не известно.
Название: От: Сохранение суммы значений textbox в одну ячейку, при выполнении условия
Отправлено: Администратор от 06 апреля 2023, 22:38
Я до конца не понял вашу ситуацию, может быть это решает вашу задачу:

Private Sub CommandButton1_Click()
    If Me.TextBox2.Text <> "" Then
        ActiveCell.Value = ActiveCell.Value + Me.TextBox1.Text
    End If
End Sub