シート上の値をもとに別シートのデータを抽出する

 例：「在庫管理」から「棚卸管理」または「貸出管理」のデータを抽出し表示させる。

在庫台帳のデータ「管理番号」をもとに、「棚卸管理」または「貸出管理」で該当の管理番号を抽出します。

抽出するためのフォームを使った方法で説明します。

作成するもとになった管理台帳

1つのワークシート上に複数の外部媒体管理一覧があり、棚卸記録は列方向に追加する方法でした。説明するまでもなく、この方法は非常に見にくいです。

貸出台帳は別シートにあり、管理台帳と貸出台帳はそれぞれ更新する必要がありました。

改善した台帳の使い方

シート「在庫」を基準に動作します。

（1）抽出したい管理番号を選択します。→　B列「管理番号」

（2）シート上のコマンドボタン「フォーム」をクリックし、フォームを表示します。管理番号はフォーム上に表示します。

（3）フォーム上のシート「棚卸」または「貸出」を選択し、コマンドボタン「表示」をクリックします。

　棚卸を選択した場合です。

台帳作成方法

シートとフォームを作成します。

シート

3つのワークシートを作成します。

• 在庫
• 棚卸
• 貸出

シート「在庫」です。

シート「棚卸」です。

シート「貸出」です。

フォーム

出来上がりです。

フォームにラベル、フレーム、フレーム内にオプションボタン2個、コマンドボタン2個を作成します。

サンプルコード

コマンドボタン「表示」のコードです。

Private Sub cmd_hyoji_Click()
    Dim mName As String
    
    mName = lb_name.Caption
    
    Select Case True
        Case Me.op_1.Value
           Worksheets("棚卸").Select
           Range("A1").AutoFilter 2, mName
        Case Me.op_2.Value
           Worksheets("貸出").Select
           Range("A1").AutoFilter 2, mName
    End Select
    
    Unload UserForm1

End Sub

コマンドボタン「キャンセル」のコードです。

Private Sub cmd_cancel_Click()
    Unload UserForm1
End Sub

標準モジュールにフォームを表示した後のコードを作成します。

Sub uf_show()
    Dim cNo As Long:
    cNo = ActiveCell.Column
    
    Load UserForm1
    
    With UserForm1
        .op_1.Value = True
        .lb_name.Caption = ActiveCell.Value
        
        If .lb_name.Caption = "" Or cNo <> 2 Then
            MsgBox "管理番号を選択してください", vbExclamation
            Exit Sub
        End If
    End With
    
    UserForm1.Show
    
End Sub

シート「管理」上にコマンドボタンを設置し、「uf_show」をマクロ登録します。