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

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