ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤u§@ªí«O¯d

[µo°Ý] ¤u§@ªí«O¯d

'    Sheets(Shrr).Move   '¦C72
'    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TEST_" & Nrange & "-" & Num & "´Á" & ".xls"

·Q±NSheets(Shrr)¦@6­Ó¤u§@ªí½Æ»s«áÂà¥X¡F§YÂà¥X«á¡A¥DÀÉÁÙ­nSheets(Shrr)­ìª©«O¯d¡C
½Ð°Ý¡G¦C72ªºµ{¦¡½X­n¦p¦ó­×¥¿¡H
ÁÂÁ¡I
¤u§@ªí«O¯d(¥DÀÉ).rar (122.08 KB)

¦^´_ 1# ziv976688


Sheets(Shrr).Copy   '¦C72
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\TEST_" & Nrange & "-" & Num & "´Á" & ".xls"
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 2# n7822123
§ÚÁÙ¥H¥ýCOPY¡A¦AMOVE
OK¤F!·PÁ±z

ÁÙ¦³1­Ó²M°£¤º®eªº°ÝÃD~§Ú¤@ª½¼g¥¢±Ñ~·Ð½Ð±z¦A«ü¾É¡G
±NSheets(Shrr)¦@6­Ó¤u§@ªíªºT2¡GCM200Àx¦s®æªº¤º®e²M°£¡A
µM«á¯B¼Ð°±¯d¦bDATA!ªºJ1
½Ð°Ý¡GModule1ªºµ{¦¡½X­n¦p¦ó½s¼g¡H
ÁÂÁ±z!
²M°£«ü©w¤º®e.rar (121.8 KB)

TOP

¦^´_ 3# ziv976688


¸Õ¸Õ

Sub ²M°£()
For Each sh In Sheets(Array("·Ç2¶i3", "·Ç3¶i4", "·Ç4¶i5", "·Ç5¶i6", "·Ç6¶i7", "·Ç7¶i8"))
   sh.[T2:CM200].ClearContents
Next
Application.Goto [DATA!J1]
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 4# n7822123
«¢~§Ú¬O¤@¤V®t9¤Ø¤E¤E¤E^^"
´ú¸ÕOK¤F!
¸U¤À·PÁ±zªº«ü¾É©MÀ°¦£~·P®¦

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD