【EXCEL-VBA】入力フォームからデータを入力、IDを振りリストに加える
【EXCEL-VBA】入力フォームからデータをワークシートに登録するサンプルを作成・OPENでフォームを表示・フォームに文字を入れて登録ボタンでシートに入力・IDを自動で取得・入力時に不足があれば実行せずに知らせる使ってみた感じ画像VBAの中身(コード) 以下UserForm1のコードPrivate Sub CommandButton1_Click()With UserForm1Dim i As LongDim j As LongDim k As LongDim a As StringDim b As StringDim c As Stringi = Sheets("リスト").Cells(Rows.Count, 1).End(xlUp).Row - 1 'i 登録データの個数j = Sheets("リスト").Cells(Rows.Count, 1).End(xlUp).Row + 1 'j 一番上の空白行の行番号k = Sheets("リスト").Cells(Rows.Count, 1).End(xlUp).Row 'k 登録時発行されるIDa = .TextBox1.Text 'a テキストボックス1の文字列を入れる変数b = .TextBox2.Text 'b テキストボックス2の文字列を入れる変数c = .TextBox3.Text 'c テキストボックス3の文字列を入れる変数Sheets("リスト").SelectIf a <> "" And b <> "" And c <> "" Then '入力データ3つとも空白でなければ実行のif文Cells(j, 1) = kCells(j, 2) = aCells(j, 3) = bCells(j, 4) = cElseMsgBox "入力データに不足があります" '入力データに空白があれば実行されるmsgboxEnd IfEnd WithEnd SubPrivate Sub CommandButton2_Click()With UserForm1Unload UserForm1UserForm1.ShowEnd WithEnd Sub