VS 2017 - C # - Как мне подключиться к DB2 db с помощью набора пакетов

Есть несколько способов достижения вашей цели, но вот тот, который не требует, чтобы я задавал какие-либо вопросы.

Private Sub CommandButton2_Click()

If Me.TextBox1.Text <> "" Then
    Sheets("Sheet1").Range("A1").Value = Me.TextBox1.Text
End If

End Sub

В основном, в приведенном выше тестовом коде, когда CommandButton2 , VBA проверяет, TextBox1 на UserForm1 (который я назвал Me, поскольку мой код написан в модуле UserForm) не равен "" (пустая строка).

Другими словами, он проверяет, содержит ли TextBox хотя бы один символ или нет. Если он содержит хотя бы один символ, он записывает TextBox1.Text в ячейку A1 на листе Sheet1. Если TextBox пуст, ничего не происходит.

Вы можете повторить этот оператор If для каждого TextBox, который у вас есть на вашем UserForm (не забудьте обновить любые ссылки на управление и листы для каждого оператора If!) [/ ​​g3 ]