|
カテゴリ:EXCEL-VBA
【EXCEL-VBA】入力フォームからデータをワークシートに登録するサンプルを作成
・OPENでフォームを表示 ・フォームに文字を入れて登録ボタンでシートに入力 ・IDを自動で取得 ・入力時に不足があれば実行せずに知らせる 使ってみた感じ画像 VBAの中身(コード) 以下UserForm1のコード Private Sub CommandButton1_Click() With UserForm1 Dim i As Long Dim j As Long Dim k As Long Dim a As String Dim b As String Dim c As String i = 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 登録時発行されるID a = .TextBox1.Text 'a テキストボックス1の文字列を入れる変数 b = .TextBox2.Text 'b テキストボックス2の文字列を入れる変数 c = .TextBox3.Text 'c テキストボックス3の文字列を入れる変数 Sheets("リスト").Select If a <> "" And b <> "" And c <> "" Then '入力データ3つとも空白でなければ実行のif文 Cells(j, 1) = k Cells(j, 2) = a Cells(j, 3) = b Cells(j, 4) = c Else MsgBox "入力データに不足があります" '入力データに空白があれば実行されるmsgbox End If End With End Sub Private Sub CommandButton2_Click() With UserForm1 Unload UserForm1 UserForm1.Show End With End Sub
お気に入りの記事を「いいね!」で応援しよう
最終更新日
2017年07月19日 23時46分59秒
コメント(0) | コメントを書く
[EXCEL-VBA] カテゴリの最新記事
|