Excel VBA でデータ入力フォームを作成する方法 (簡単な手順)

VBA で作業中 Excel でデータ入力フォームを作成しようとすると、ほとんどの人が問題に直面します。この記事では、データ入力フォームを作成する方法を紹介します VBA を使用して Excel で非常に便利かつ適切に .

Excel VBA でデータ入力フォームを作成する 3 つの簡単な手順

ここには、ワシントン、ニューヨークという 3 つのワークシートがあります。 とカリフォルニア 名前、連絡先番号、年齢を含む と性別 銀行のこれら 3 つの支店の一部の顧客。

今日の目的は、VBA を使用してこのデータベースにデータを入力するためのフォームを作成することです .

2 つのステップで目的を達成します。

• まず、データ エントリ UserForm を作成します 新しいデータを入力する;
• 次に、フォームを開くボタンをワークシートに追加します。

ステップ 1:Excel VBA を使用してデータ入力フォームを作成するためのユーザー フォームを開発する

これは長いプロセスであり、完全に理解するには時間がかかる場合があります。したがって、効果的な結果を得るには、細心の注意と忍耐をもってここに記載されている手順に従ってください。

• ALT + F11 を押します キーボードで Visual Basic を開きます ウィンドウ。

• Visual Basic の場合 ウィンドウで、[挿入]> [ユーザー フォーム] に移動します ツールバーのオプション。 ユーザーフォーム をクリックします .新しいユーザーフォーム UserForm1 と呼ばれる

• まず、ラベル (Label1) をドラッグします ツールボックスから UserForm の左上隅まで . ラベルの表示を変更する ワークシートへ .

リストボックス (Listbox1) をドラッグします Label1 の右側 .

• ラベルをさらにいくつかドラッグします データセットの列の総数 (4) に等しい この例では) UserForm の左側にあります。 各ラベルの横 、TextBox をドラッグします .

ラベルの表示を変更する データセットの列ヘッダー (顧客名、連絡先住所、年齢) と性別

• 最後に、コマンド ボタンをドラッグします UserForm の一番右下に .ボタンの表示を Enter Data に変更します .

• リストボックスをダブルクリックします . プライベート サブプロシージャ ListBox1_Click と呼ばれる 開くでしょう。そこに次のコードを入力してください。

⧭ VBA コード:

Private Sub ListBox1_Click()

For i = 0 To UserForm1.ListBox1.ListCount - 1
    If UserForm1.ListBox1.Selected(i) = True Then
       Worksheets(UserForm1.ListBox1.List(i)).Activate
    End If
Next i

End Sub

• 次に、コマンド ボタンをダブルクリックします。 .別のプライベート サブプロシージャ CommandButton_Click と呼ばれる 開くでしょう。そこに次のコードを入力してください。

⧭ VBA コード:

Private Sub CommandButton1_Click()

Total_Rows = ActiveSheet.UsedRange.Rows.Count
Total_Columns = ActiveSheet.UsedRange.Columns.Count

Active_Column = 1

For Each Ctrl In UserForm1.Controls
    If TypeName(Ctrl) = "TextBox" Then
        ActiveSheet.UsedRange.Cells(Total_Rows + 1, Active_Column) = Ctrl.Text
        Active_Column = Active_Column + 1
    End If
Next Ctrl

End Sub

• 最後に、[挿入]> [モジュール] に移動します オプションをクリックし、モジュール をクリックします。 .

• 新しいモジュール Module1 と呼ばれる 挿入されます。そこに次のコードを入力してください:

⧭ VBA コード:

Sub Run_UserForm()

UserForm1.Caption = "Data Entry Form"

UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle
UserForm1.ListBox1.ListStyle = fmListStyleOption

For i = 1 To Sheets.Count
    UserForm1.ListBox1.AddItem Sheets(i).Name
Next i

Load UserForm1
UserForm1.Show

End Sub

これで完了です。データベースに新しいデータを入力するためのデータ入力フォームが正常に作成されました。

続きを読む: Excel でのデータ入力の種類 (簡単な概要)

ステップ 2:データ入力フォームを開くボタンを挿入する

Excel VBA のユーザーフォームを使用してデータ入力フォームを作成しました .次に、フォームを開くボタンをワークシートに追加します。

これを達成するには、以下の手順に従ってください。

• デベロッパーをクリックして開きます Excel リボンのタブ 頂上で。 開発者 タブはデフォルトで Excel で非表示になっています。 Excel リボンに表示されない場合 、ここに記載されている手順に従って再表示します .

• デベロッパーの下で タブの コントロール セクション 、挿入をクリックします .すぐに使用できるツールがいくつかあります。 ボタンをドラッグ (フォーム コントロール ) 左上から。

• ボタンをワークシートの目的のゾーンにドラッグして離します。 マクロの割り当てというダイアログ ボックス 開くでしょう。 マクロ名 フィールドに Run_UserForm を挿入します .

[OK] をクリックします .

• 必要に応じて、ボタンの表示を変更できます。 Enter New Data に変更しました .

おめでとう！データ入力フォームを開くボタンが正常に追加されました。

必要に応じて、各ワークシートにボタンを入力して、プロセスをさらに洗練させることができます。

続きを読む: タイムスタンプ データ エントリを Excel に自動的に挿入する方法 (5 つの方法)

類似の読み物

• Web フォームから Excel スプレッドシートを作成する方法
• Excel でデータ ログを作成する (2 つの適切な方法)
• Excel で入力可能なフォームを作成する方法 (5 つの適切な例)

ステップ 3:データ入力フォームを作成するための最終出力

Excel VBA を使用してデータ入力フォームを作成しました そしてそれを開くためのボタンを追加しました。出力を表示するには、[Enter New Data] ボタンをクリックします。

データ入力フォームが開きます。最初に、新しいエントリを作成するワークシートを選択します。

ここではニューヨークを選択しました .ワークシートを選択すると、アクティブになります。

• 次に、入力する残りのデータを入力します。ここに、ジェニファー マーロ、444204240、26 歳を入れました。 そして女性 .

• 次に、[データを入力] をクリックします .

データベースの最後の行に入力された新しいデータが見つかります。

続きを読む: UserForm を使用せずに Excel データ入力フォームを作成する方法

覚えておくべきこと

• 新しいデータを入力する間、コードは TextBoxes のシーケンスに従います ユーザーフォームの .したがって、TextBoxes を追加する際に ユーザーフォーム 、データベース内の列の順序を維持します。

結論

したがって、これは Excel VBA を使用してデータベースのデータ入力フォームを作成するプロセスです。 .何か質問がありますか？お気軽にお問い合わせください。私たちのサイト ExcelDemy にアクセスすることを忘れないでください より多くの投稿と更新情報をご覧ください。

関連記事

• Excel でオートフィル フォームを作成する方法 (ステップ バイ ステップ ガイド)
• Excel でドロップダウン リスト付きのデータ入力フォームを作成する (2 つの方法)
• Excel でのデータ入力を自動化する方法 (2 つの効果的な方法)
• Excel セルへのデータ入力を制限する (2 つの簡単な方法)