トップ > 資格を活かすには > やってみよう!Excel VBAで業務改善! > 揺るぎない力編: 第18話「規格入力フォームを修正しよう!」2/4 :たったこれだけのこと?

やってみよう!Excel VBAで業務改善! 新たなる挑戦編|第18話 「規格入力フォームを修正しよう!」

たったこれだけのこと?

Option Explicit

Private Sub CommandButton2_Click()
    Unload Me
End Sub

 Private Sub ListBox1_Click()
    ActiveCell.Value = ListBox1.Value
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim Zai As String
    Dim i As Long
    Dim r As Long
    Dim c As Long
    
    Zai = ActiveCell.Offset(0, -1).Value
    Label1.Caption = Zai & "の規格一覧"
    
    For i = 1 To Columns.Count
        If Worksheets("規格一覧").Cells(1, i).Value = Zai Then
            c = i
            Exit For
        End If
    Next
    
    If c = 0 Then
        Label1.Caption = Zai & "の規格が見つかりません"
        CommandButton1.Enabled = False
    Else
        r = 2
        Do Until Worksheets("規格一覧").Cells(r, c).Value = ""
            ListBox1.AddItem Worksheets("規格一覧").Cells(r, c).Value
            r = r + 1
        Loop
    End If
End Sub

※赤字の部分が、新しく入力されたコードです。

そして、デザインは次のように変更されました。

「…なんだ、ひょっとして…たったこれだけのことなのか?
これで"入力"ボタンの代わりに、リストボックスで、規格を入力できるようになったってことか…?」

一覧にもどる