カード型データベースを作ってみよう

Step 14　IDで抽出する

IDのNo.を入力しデータを抽出、その結果を一覧表示するようにします。
IDは範囲と以下と以上の3種類で抽出できるようにします。

Homeに戻る > Excelでアプリケーションソフト３ > カード型データベースソフト

実行画面

■範囲を指定し抽出

IDが2～3のデータが抽出されました。
範囲の抽出結果

■指定ID以上で抽出
指定ID以上で設定したフォーム

IDが2以上のデータが抽出されました。
以上の抽出結果

■指定ID以下で抽出
指定ID以下で設定したフォーム

IDが3以下のデータが抽出されました。
以下の抽出結果

実行VBAコード

'抽出
Private Sub ExFillter()
    '全データ
    If CheckBox1.Value = True Then
        Workbooks("Data.xls").Worksheets("Sheet1").AutoFilterMode = False
    Else
        'IDで抽出
        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
Workbooks("Data.xls").Worksheets("Sheet1").Range("A:C").AutoFilter _
Field:=1, Criteria1:=">=" & TextBox1.Text, _
Operator:=xlAnd, Criteria2:="<=" & TextBox2.Text
        ElseIf TextBox1.Text <> "" Then
Workbooks("Data.xls").Worksheets("Sheet1").Range("A:C").AutoFilter _
Field:=1, Criteria1:=">=" & TextBox1.Text
        ElseIf TextBox2.Text <> "" Then
Workbooks("Data.xls").Worksheets("Sheet1").Range("A:C").AutoFilter _
Field:=1, Criteria1:="<=" & TextBox2.Text
        Else
            MsgBox "抽出条件を入力してください。"
        End If
    End If
End Sub

Homeに戻る > Excelでアプリケーションソフト３ > カード型データベースソフト

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

カード型データベースを作ってみよう

Step 14 IDで抽出する

実行画面

実行VBAコード

Step 14　IDで抽出する