[µo°Ý] ¦p¦ó§â¾ã±i³ø§iªí§tCheckBox¿ï¶µ¤@¦P½Æ»s¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí

sillykin

¦p¦ó§â¾ã±i³ø§iªí§tCheckBox¿ï¶µ¤@¦P½Æ»s¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí

sillykin

ÁÂÁ¤j¤jªº«ü¾É..§Ú·|¥Î¤ß¾Çªº..

GBKEE

¦^´_ 7# sillykin
¬O­n½Æ»s¾ã±i¤u§@ªí,CheckBox¤~¥i½Æ»s¨ì

1. Sub Ex()
   
2.     Dim xPath As String
   
3.     xPath = "d:\"
   
4.     Workbooks("³ø§i.xls").Sheets("³ø§iªí").Copy
   
5.     With ActiveWorkbook
   
6.       '  .SaveAs (xPath & .ActiveSheet.[b6] & .ActiveSheet.[b3])
   
7.         .ActiveSheet.Name = .ActiveSheet.[b6] & .ActiveSheet.[b3]
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

sillykin

¥¨¶°¸Õ¹L¤F..
Range("A1:K73").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    ActiveWindow.SmallScroll Down:=63
¦ý¬OCHECKBOX¨S½Æ»s¹L¥h

GBKEE

¦^´_ 5# sillykin
°ò¥»ªº¤u§@ªí½Æ»s¬°¦ó¤£¿ý»s¥¨¶°¬Ý¬Ý»yªk,¦Û¤v¦h½m²ß.

sillykin

¦^´_ 4# sillykin


    ¯à§_¦b½Ð±Ð..½Æ»s¸ê®Æ¨ì¥t¤@±i¤u§@ªí..µM«á¦b­«·s¥t¦s·sÀÉ..ÀɦW¥H[B6]+[B3]Äæ¦ì¨Ó©R¦W..¬O§_¥i¦æ©O????

sillykin

ÁÂÁ¤j¤jªº¦^ÂÐ.¤Î«ü¾É..
§Úªº·N«ä¬O­«·s¶}¤@­Ó·sªº¤u§@ªí´£Àɮ׽ƻs¹L¥h

luhpro

¦p¦ó§â¾ã±i³ø§iªí§tCheckBox¿ï¶µ¤@¦P½Æ»s¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí
sillykin µoªí©ó 2013-9-12 20:24

1.   With Sheets("³ø§iªí")
   
2.     .Activate
   
3.     .Copy After:=Sheets(Sheets.Count)
   
4.   End With
   
5. 
   
6.   With Sheets(Sheets.Count)
   
7.     .Name = "½Æ»sªº³ø§iªí"
   
8.   End With

½Æ»s¥N½X

GBKEE

¦^´_ 1# sillykin
§A¦³¸Õ¹L¥Î¿ý»s¥¨¶°¶Ü?