ExcelVBA ユーザーフォームのテキストボックスで情報を入力する方法

以下のようなシーンで利用で表示します。

・データ入力フォーム
名前、住所、電話番号などの情報を入力する。

・計算
入力された数値を使って計算する。

・検索機能
入力したキーワードでデータを検索する。

Option Explicit

Sub ShowUserForm()
    UserForm1.Show
End Sub

ユーザーフォームにテキストボックスの入力値を取得・操作するコードを記述します。

Option Explicit

Private Sub CommandButton1_Click()
    Dim inputText As String
    
    ' テキストボックスの値を取得
    inputText = Me.TextBox1.Value
    
    ' 入力チェック（空白チェック）
    If Trim(inputText) = "" Then
        MsgBox "テキストボックスに値を入力してください。", vbExclamation
        Exit Sub
    End If
    
    ' 値をシートに書き込む
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = inputText
    
    ' フォームを閉じる
    Unload Me
End Sub

フォームモジュールにユ数値チェックと追加する。

Private Sub CommandButton2_Click()
    Dim inputValue As String
    inputValue = Me.TextBox1.Value
    
    ' 数値チェック
    If Not IsNumeric(inputValue) Then
        MsgBox "数値を入力してください。", vbCritical
        Exit Sub
    End If
    
    ' 数値をセルに書き込む
    ThisWorkbook.Sheets("Sheet1").Range("B1").Value = CDbl(inputValue)
End Sub

テキストボックスのプロパティ（例: TextBox1.Value ）で入力値を操作します。フォームのデザインとコードは分けると管理しやすいです。

 サンプルコードをコピーして実行すれば、初心者でも動作を確認できます。