フォームに入力されたデータをシートに入力する : Excel

フォームに入力されたデータを、登録ボタンをクリックするとワークシートの最終行に追加します。

■VBAの流れ
  1. テキストボックスにデータが入力されているかチェックします。 入力がなければエラーメッセージを表示しプログラムを中止します。
  2. ワークシートに挿入位置を調べるため、入力されている最終行を調べます。
  3. テキストボックスのデータを取得した最終セル+1に入力します。
  4. テキストボックスをクリアします。


Homeに戻る > Excel フォームのTipsへ

Excel実行画面

ユーザーフォームに「No.」「氏名」を入力し[登録]ボタンをクリックします。
ユーザーフォームにデータ入力

シートの最終行+1セルに、入力データが挿入されます。
シートにデータが挿入


Excel VBAコード

Private Sub CommandButton1_Click()
    Dim ln As Long
    
    If TextBox1.Value = "" Then
        MsgBox "No.を入力してください。"
        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