エクセルVBAユーザーフォーム作り方、シートとユーザーフォーム間でデータ情報の設定・取得、comboBox、textBox、addItem実例│ちからえもんWEB・WINDOWSプログラミング

1 エクセルVBAユーザーフォーム作り方概要
2 ユーザーフォームのフォームの部品
3 userform1のコード
4 Sheet1のコード

エクセルVBAユーザーフォーム作り方概要

youtube動画が思いのほか高評価で現在4万回以上再生されています。世間的には、大したことないかもしれませんが、私的には、こんなにも再生されていてとても嬉しい限りです。

詳細は、youtube当動画に委ねますが、概要を説明します。客先を選択し、品番を選択し、個数を入力し、登録ボタンをクリックすると、ユーザーフォーム情報がシート状に転記されます。ちょっとした受注フォームです。受注日は、デフォルトでは本日の日付、客先はN列の情報、品番はJ列の情報を選択できるようになっています。品番J列を選択するとその右のK列の商品名が、ラベルに表示され、同様に単価も表示されます。

ユーザーフォームのフォームの部品

userform1の部品一覧です。

赤文字の部品をツールボックスからフォーム上に設置しています。

userform1のコード

userform1のコードです。

'コンボボックス２に変化があったら動くプロシージャ
Private Sub ComboBox2_Change()
    'MsgBox ComboBox2.Text
    
    Dim i As Integer
    
    For i = 3 To 17
        If ComboBox2.Text = Cells(i, 10) Then
            lblShohinmei.Caption = Cells(i, 11)
            lblTanka.Caption = Cells(i, 12)
        End If
    Next i
End Sub

'登録ボタンをクリックしたら
Private Sub CommandButton1_Click()
    Dim row_no As Long
    
    For row_no = 3 To 200
        If Cells(row_no, 2) = "" Then
            Exit For
        End If
    Next row_no
    
    'MsgBox row_no
    '個数に数字以外の文字が入っていたらの処理
    If IsNumeric(UserForm1.TextBox2) = False Then
        MsgBox "個数は数字を入れてください"
        Exit Sub
    End If
    '客先が選択されていない場合の処理
    If UserForm1.ComboBox1.Text = "選択してください" Then
        MsgBox "客先を選択してください"
        Exit Sub
    End If
    '品番が選択されていない場合の処理
    If UserForm1.ComboBox2.Text = "選択してください" Then
        MsgBox "品番を選択してください"
        Exit Sub
    End If
        
    Cells(row_no, 2) = UserForm1.TextBox1
    Cells(row_no, 3) = UserForm1.ComboBox1
    Cells(row_no, 4) = UserForm1.ComboBox2
    Cells(row_no, 5) = UserForm1.lblShohinmei
    Cells(row_no, 6) = UserForm1.lblTanka
    Cells(row_no, 7) = UserForm1.TextBox2
    Cells(row_no, 8) = UserForm1.lblTanka * UserForm1.TextBox2
    
    UserForm1.ComboBox1.Text = "選択してください"
    UserForm1.ComboBox2.Text = "選択してください"
    UserForm1.TextBox2 = ""
End Sub


Private Sub UserForm_Initialize()
    Dim i As Integer
    
    For i = 3 To 5
        ComboBox1.AddItem Cells(i, 14)
    Next i
    
    For i = 3 To 17
        ComboBox2.AddItem Cells(i, 10)
    Next i
    
    TextBox1.Text = Date
End Sub

'コンボボックス２に変化があったら動くプロシージャ

Private Sub ComboBox2_Change()

'MsgBox ComboBox2.Text

Dim i As Integer

For i = 3 To 17

If ComboBox2.Text = Cells(i, 10) Then

lblShohinmei.Caption = Cells(i, 11)

lblTanka.Caption = Cells(i, 12)

End If

Next i

End Sub

'登録ボタンをクリックしたら

Private Sub CommandButton1_Click()

Dim row_no As Long

For row_no = 3 To 200

If Cells(row_no, 2) = "" Then

Exit For

End If

Next row_no

'MsgBox row_no

'個数に数字以外の文字が入っていたらの処理

If IsNumeric(UserForm1.TextBox2) = False Then

MsgBox "個数は数字を入れてください"

Exit Sub

End If

'客先が選択されていない場合の処理

If UserForm1.ComboBox1.Text = "選択してください" Then

MsgBox "客先を選択してください"

Exit Sub

End If

'品番が選択されていない場合の処理

If UserForm1.ComboBox2.Text = "選択してください" Then

MsgBox "品番を選択してください"

Exit Sub

End If

Cells(row_no, 2) = UserForm1.TextBox1

Cells(row_no, 3) = UserForm1.ComboBox1

Cells(row_no, 4) = UserForm1.ComboBox2

Cells(row_no, 5) = UserForm1.lblShohinmei

Cells(row_no, 6) = UserForm1.lblTanka

Cells(row_no, 7) = UserForm1.TextBox2

Cells(row_no, 8) = UserForm1.lblTanka * UserForm1.TextBox2

UserForm1.ComboBox1.Text = "選択してください"

UserForm1.ComboBox2.Text = "選択してください"

UserForm1.TextBox2 = ""

End Sub

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 3 To 5

ComboBox1.AddItem Cells(i, 14)

Next i

For i = 3 To 17

ComboBox2.AddItem Cells(i, 10)

Next i

TextBox1.Text = Date

End Sub

Sheet1のコード

userform1を表示するためのsheet1のコードです。

エクセルVBAユーザーフォーム作り方、シートとユーザーフォーム間でデータ情報の設定・取得、comboBox、textBox、addItem実例

エクセルVBAユーザーフォーム作り方概要

ユーザーフォームのフォームの部品

userform1のコード

Sheet1のコード

PHPでショッピングカートを作成

バイトシフト表をエクセルVBAマクロで作成。月水金のようにレギュラーで出勤する曜日と休む日、臨時スポットで出勤シフトに入る日に対応

EXCEL　VBA解説記事の最新記事8件

エクセルVBAで部活動保護者当番表を作成しました。日毎の当番表に自動的に保護者を割り振ります。保護者は当番日が一目瞭然で分かります。

バイトシフト表をエクセルVBAマクロで作成。月水金のようにレギュラーで出勤する曜日と休む日、臨時スポットで出勤シフトに入る日に対応