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

Step 14 IDで抽出する

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

メニューに戻る

スポンサーリンク



実行画面

■範囲を指定し抽出
範囲指定をしたフォーム

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

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

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

スポンサーリンク



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

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

実行コード

'抽出
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

スポンサーリンク





メニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved