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

[µo°Ý] ¦Û©w¸q¦WºÙ

[µo°Ý] ¦Û©w¸q¦WºÙ

¦U¦ì¤j¤j¦n,

§Úªº¤u§@ªí1~31(¦WºÙ¥H¼Æ¦r©R¦W,¬O¨ú¨C¤Ñªº¤é´Á)³]©wªº®æ¦¡³£¬Û¦P,¥HM3:O20ªº½d³ò¨ú¦W:¥X³f°Ï,
ÁöµM§Ú¥Î¸s²Õ¤è¦¡§â1:31ªº¤u§@ªí³£¿ï¨ú,¦ýÂI¿ï¥X³f°Ï®É,¨ÃµLªkÀ³¥Î¦b¨C¤@­Ó¤u§@ªí,¥u·|¥X²{¦b²Ä¤@­Ó,
½Ð°Ý­n«ç»ò¾Þ§@,¤~¯àÅý1:31ªº¤u§@ªí¥Î¦P¤@­Ó¦Û©w×m¦WºÙ?

¦^´_ 2# ML089

±z¦n,
§Ú¨Ì³o­Ó¤èªk©w¸q¤F,¦ý¤U©Ô¥ª¤W¨¤«o¬Ý¤£¨ì©w¸q¦WºÙ,¥i¥HÀ°§Ú¬Ý¤U¶Ü?


TOP

¦^´_ 4# ML089

½Ð°Ý¤j¤j,

§Ú­ì¥»ªº¥Î·N¬O·Q­nÀ³¥Î¦Û­q¸q·í¦¨¤@­Ó¬¡°Êªº½d³ò,¦]¬°§Y¨Ï½d³ò¦³ÅÜ°Ê,­ì¥»ªºVBA¨Ã¤£»Ý­n¥h§ó§ï,´N¥i¥H§ä¨ì©Ò»Ý­nªº½d³ò,
¨Ò¦p:¨Ó·½Àɪº¦Û­q¸q¬O"BF.ªL¤f¥þ¥x",¥ØªºÀɪº¦Û­q¸q¬O"¥X³f",¨C¤Ñ³£­ncopy ¸ê®Æ¶K¨ì·í¤Ñ¥X³fªº¤é´Á¤u§@ªí¤¤,
¥i¥H¥Î¥H¤UVBA¥h§@·~,¦]¬°­n¶Kªº¸ê®Æ«Ü¦h,¨C¤Ñ³£¤@¼Ò¤@¼Ëªº°Ê§@,¥i¥H¸`¬Ù¤@¨Ç®É¶¡,©Ò¥H¦Û­q¸q§Ú¬O·Q¥Î¦b³o¤è­±ªº,
·Q½Ð°Ý¹ï©ó§Ú·Q­nªº»Ý¨D,¬O¤£¬O¦³¨ä¥¦¤èªk¥i¥H¸Ñ¨M?
  1.     Windows("²z³f³æ_All.xlsx").Activate
  2.     Application.Goto Reference:="BF.ªL¤f¥þ¥x"
  3.     Selection.Copy
  4.     Windows("NEW¤ñµá¦hªL¤f²z³fªí108  4¤ë.xls").Activate
  5.     Application.Goto Reference:="¥X³f"
  6.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  7.         :=False, Transpose:=False
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD