Excel2007で顧客管理ソフトを作ってみよう

Private Sub CommandButton1_Click()
    Dim tRange As Range
    Dim lrow As Long
    Dim s1 As String
    Dim bFlag As Boolean
    
    If TextBox1 <> "" And Not IsNumeric(TextBox1) Then
        MsgBox "顧客IDには数値を入力してください。"
        TextBox1.SetFocus
        Exit Sub
    End If

    bFlag = False
    If TextBox1 <> "" Then
        Worksheets("一覧").Range("A2").AutoFilter field:=1, Criteria1:=TextBox1
        bFlag = True
    End If
    
    If TextBox2 <> "" Then
        Worksheets("一覧").Range("A2").AutoFilter field:=3, Criteria1:="*" & TextBox2 & "*"
        bFlag = True
    End If
    
    If bFlag = False Then
        MsgBox "検索内容を入力してください。"
        TextBox1.SetFocus
        Exit Sub
    End If
        
    Sheets("検索").Cells.Clear

    '最終行を捜す
    lrow = Sheets("一覧").Range("A1048576").End(xlUp).Row - 1 '
    If lrow = 1 Then
        Label2.Visible = True
        Label3.Visible = False
    Else
        Label3.Visible = True
        Label2.Visible = False
        s1 = "A1:K" & lrow + 1
        Sheets("一覧").Range(s1).Copy
        Sheets("検索").Range("A1").PasteSpecial
    End If
    Worksheets("一覧").AutoFilterMode = False
End Sub