[µo°Ý] ¤£ª¾¹D­þ¸Ì¥X¿ù¤F, ½Ð°ª¤â«üÂI

darigaaz

Private Sub CommandButton1_Click()
On Error Resume Next

If CheckBox1.Value And ComboBox1.Text = "" Then MsgBox "02 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
If CheckBox2.Value And ComboBox2.Text = "" Then MsgBox "03 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
Application.ScreenUpdating = False
With Sheet8
  If CheckBox1.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=3, Criteria1:=ComboBox1.Text
  If CheckBox2.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=7, Criteria1:=ComboBox2.Text
    .Range(.[a2], [h65536].End(3)).Copy

End With
   
    Sheets.Add After:=Sheets(Sheets.Count)
    If ComboBox1.Text <> "" Then
    ActiveSheet.Name = ComboBox1.Text
    Else
    ActiveSheet.Name = ComboBox2.Text
    End If
    [a1].Select
    ActiveSheet.Paste
Sheet8.Activate
    Sheet8.Range([a1], [l65536].End(3)).AutoFilter
    Sheets(ComboBox1.Text).Activate
    Unload Me
    Application.ScreenUpdating = True
End Sub

§Ú¬O·Q§â¿z¿ï¥X¨ÓªºªF¸ê®Æ³£copy¨ì·sªºsheetªº,
¦ý¤£ª¾¹D¬°¤°»ò¿z¿ï¥X¨ÓªºªF¦è³£¨S¿ï¤¤, ¥ucopy¤FÀY¤@¦æ

darigaaz

§Ú I ~ CCÄæ¬O¦³ªF¦èªº, ¦ý§Ú¤£·Q§â¨º¨ÇªF¦è¤]copy¨ì·sªºsheet¤W