[µ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¤@¦æ

diolin

§Ú I ~ CCÄæ¬O¦³ªF¦èªº, ¦ý§Ú¤£·Q§â¨º¨ÇªF¦è¤]copy¨ì·sªºsheet¤W
darigaaz µoªí©ó 2015-2-5 12:19

¨º´N¥Î .UsedRange.columns(1:8).Copy

stillfish00

¦^´_ 1# darigaaz

§A¥i¥H¥ý¦b  .Range(.[a2], [h65536].End(3)).Copy
«e­±¥[¤@¦æ Stop¡A¥ý¬Ý¬Ý¨ì©³¦³¨S¦³¿z¿ï¥¿½T

¤]¦³¥i¯à¬O .End(3) ¥X°ÝÃD(ª©¥»xlUp¤~·|¬O3)¡A¥i¥H³£§ï¬° .End(xlUp) ¬Ý¬Ý

¤£µM´NªþÀɬݬÝ

darigaaz

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

diolin

¦^´_ 1# darigaaz

§ï¥Î .UsedRange.Copy À³¸Ó´N¥i¥H¤F