フォームに入力されたデータをシートに入力する ： Excel
フォームに入力されたデータを、登録ボタンをクリックするとワークシートの最終行に追加します。
■ＶＢＡの流れ- テキストボックスにデータが入力されているかチェックします。 入力がなければエラーメッセージを表示しプログラムを中止します。
- ワークシートに挿入位置を調べるため、入力されている最終行を調べます。
- テキストボックスのデータを取得した最終セル＋1に入力します。
- テキストボックスをクリアします。
Homeに戻る > Excel フォームのTipsへ
Excel実行画面
ユーザーフォームに「Ｎｏ.」「氏名」を入力し［登録］ボタンをクリックします。
シートの最終行＋1セルに、入力データが挿入されます。
Excel VBAコード
Private Sub CommandButton1_Click()
Dim ln As Long
If TextBox1.Value = "" Then
MsgBox "Ｎｏ.を入力してください。"
TextBox1.SetFocus
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "氏名を入力してください。"
TextBox2.SetFocus
Exit Sub
End If
'最終行を調べる
ln = Range("B1048576").End(xlUp).Row
Cells(ln + 1, 2) = TextBox1.Value
Cells(ln + 1, 3) = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
Dim ln As Long
If TextBox1.Value = "" Then
MsgBox "Ｎｏ.を入力してください。"
TextBox1.SetFocus
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "氏名を入力してください。"
TextBox2.SetFocus
Exit Sub
End If
'最終行を調べる
ln = Range("B1048576").End(xlUp).Row
Cells(ln + 1, 2) = TextBox1.Value
Cells(ln + 1, 3) = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
End Sub
[関連リンク］
ユーザーフォームの作成
ユーザーフォームを開く、閉じる
Homeに戻る > Excel フォームのTipsへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved