0824 note

Private Sub CommandButton1_Click()
    Dim id As String
   
    id = TextBox1.Value
    Range("a1").AutoFilter Field:=1, Criteria1:=id
    Range("a2").Select
   
End Sub

Private Sub CommandButton2_Click()
    TextBox1.Value = ""
    Range("A1").AutoFilter
   
End Sub

Private Sub CommandButton3_Click()
     Dim id1 As String
     Dim id2 As String
   
    id1 = TextBox2.Value
    id2 = TextBox3.Value
    Range("a1").AutoFilter Field:=1, Criteria1:=">=" & id1, Operator:=xlAnd, Criteria2:="<=" & id2
    Range("a2").Select
   
End Sub

Private Sub CommandButton4_Click()
    Dim name As String
   
    name = TextBox4.Value
    Range("a1").AutoFilter Field:=2, Criteria1:="=*" & name & "*"
   
End Sub

Private Sub CommandButton5_Click()
    Dim school As String
   
    school = TextBox5.Value
    Range("a1").AutoFilter Field:=5, Criteria1:=school
    Range("a2").Select
End Sub


Private Sub CommandButton6_Click()
    With ActiveSheet.PageSetup
        .LeftHeader = "職訓名單"
        .CenterHeader = "個人基本資料"
        .RightHeader = "列印日" & "&D"
    End With
   
    With ActiveSheet.PageSetup
        .LeftFooter = ""
        .CenterFooter = "&P/N"
        .RightFooter = ""
    End With
   
    UserForm2.Hide
    Range("A1").CurrentRegion.PrintPreview
   
End Sub