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

[µo°Ý] ¦p¦ó²¤Æµ{¦¡?

[µo°Ý] ¦p¦ó²¤Æµ{¦¡?

¦U¦ì¤j¤j

¤p§Ì¼g¤F¤@¨Çµ{¦¡¦p¤U
  fnra = fd & "RRR\" & A.Offset(, -4) & "\LAN0"
  fnrb = fd & "RRR\" & A.Offset(, -4) & "\LAN1"
  fnrc = fd & "RRR\" & A.Offset(, -4) & "\LAN2"
  fnrd = fd & "RRR\" & A.Offset(, -4) & "\LAN3"
  fnre = fd & "RRR\" & A.Offset(, -4) & "\LAN4"
  fnrf = fd & "RRR\" & A.Offset(, -4) & "\LAN5"
  fnrg = fd & "RRR\" & A.Offset(, -4) & "\LAN6"
  fnrh = fd & "RRR\" & A.Offset(, -4) & "\LAN7"
  fnri = fd & "RRR\" & A.Offset(, -4) & "\LAN8"   

  fso.copyfolder fnra, fr, True  
  fso.copyfolder fnrb, fr, True  
  fso.copyfolder fnrc, fr, True  
  fso.copyfolder fnrd, fr, True  
  fso.copyfolder fnre, fr, True  
  fso.copyfolder fnrf, fr, True  
  fso.copyfolder fnrg, fr, True  
  fso.copyfolder fnrh, fr, True  
  fso.copyfolder fnri, fr, True  

  ¦p¦ó²¤Æµ{¦¡?

  ·Ð½Ð¥ý¶i ¤j¤j«ü¾É

¥»©«³Ì«á¥Ñ luke ©ó 2012-4-30 19:29 ½s¿è

¦^´_ 7# Hsieh

ÁÂÁÂ

TOP

¦^´_ 6# sleepycat

³o´N¬O²¤Æ°Ú!
§â­ì¥»»Ý­n¦h­ÓÅܼƧï¨ì¥u»Ý¤@­ÓÅܼƥi¥H°õ¦æ

§A­n°ÝªºÀ³¸Ó¤£¬O³o­Ó°ÝÃD§a!
§A¬O»¡¦b°j°é¤¤­n±o¨ì¦h­ÓÅܼƨÓÀx¦s¹ïÀ³ªº­È¡A¹ï¶Ü?
³o¥i¨Ï¥Î°ÊºA°}¦C¨ÓÀx¦s
¨Ò¦p:ÅܼƦWºÙfnra,  fnrb,  fnrc.....¦³«Ü¦hÅܼÆ
Dim fnr()
for i=0 to 100
ReDim Preserve fnr(i)
fnr(i)=i
next
³o¼Ëfnr´N¬O¤@­Ó§t¦³101­Ó¤¸¯Àªº°}¦C¡A¨C­Ó¤¸¯À´N¥Nªí¤@­ÓÅܼơC
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# GBKEE

¤j¤j±z¦n
§Ú¬Ý¨ì³o­Ó°ÝÃD®Éª½Æ[¤]¬O¹³±z³o¼Ë²¤Æ
¦ý¬O§Ú¤S·Q¨ì¤@­Ó°ÝÃD
±z¥Ø«eªº¼gªkÀ³¸Ó¥u·|¦³fnra³o­ÓÅܼÆ
­Y¦Ò¼{¨ì fnra, fnrb,  fnrc, ..... µ¥³o¨ÇÅܼƦpÁÙ¬O»Ý­n
¨ä¥L¦a¤è¥i¯à·|¨Ï¥Î¨ì³o¨ÇÅܼƦWºÙ
¨º³o¼Ëªº¸Ü¸Ó¦p¦ó­×§ï·|¤ñ¸û¦n¡H¡H

TOP

¦^´_ 4# GBKEE
RowOffset                         ­t¼Æ¬°¦V¤W²¾°Ê         ' ¥»¨­©Ò¦bÄæ¦ì¤£ºâ¡A¦A¥[¤W²¾¦ì¦h¤Ö¦C¡C
ColumnOffset                  ­t¼Æ¬°¦V¥ª²¾°Ê         ' ¥»¨­©Ò¦bÄæ¦ì¤£ºâ¡A¦A¥[¤W²¾¦ì¦h¤ÖÄæ¡C
­ì¨Ó¦p¦¹¡A«ö Excel F1 »¡©ú®É¡A¤£ª¾¬O­Ó¤H¸ê½è¤£¨Î¡BÁÙ¬O¹L²Â¨à¡A¦³®É¯u¬O¦³¬Ý¨SÀ´¡C
ÁÂÁ±z¡I ³o¦^¯uªºÀ´¤F¡A¥ç§Y¶}¬¤F¡I

TOP

¦^´_ 3# c_c_lai
VBA ªº»¡©ú ¤Î½d¨Ò
Offset ÄÝ©Ê  Range ª«¥ó®É¥Î Offset ÄÝ©Ê¡C
¶Ç¦^ Range ª«¥ó¡A¥Î¥H¥Nªí¬Y­Ó«ü©w°Ï°ì¥H¥~ªº½d³ò¡C°ßŪ¡C
expression.Offset(RowOffset, ColumnOffset)
  1. Worksheets("Sheet1").Activate
  2. ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate
½Æ»s¥N½X
»¡©ú¦p¬Ý¤£À´ ¦h¾Þ§@´X¦¸½d¨Ò ­×§ï°Ñ¼Æ ´N·|©ú¥Õ
RowOffset         ­t¼Æ¬°¦V¤W²¾°Ê
ColumnOffset  ­t¼Æ¬°¦V¥ª²¾°Ê

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-4-28 07:46 ½s¿è

¦^´_ 2# GBKEE
A.Offset(, -4) ¨ä¤¤ªº Offset(, -4) «üªº¨ì©³¬O¬Æ»ò§t·N¡H ¬°¦ó¤S¨Ï¥Î -4¡H «e­±¦³®É¬O "(,:" ¡B"(0,"¡B "(1,"¡B©Î¬O "(2,"¡H
¤£¦n·N«ä¡Aªì²Lªº§Ú¡B¹ï Excel ªº¬Y¨Ç«ü¥O¤£¬Æ²z¸Ñ¡H Offset ¬O²¾¦ì¤§·N¡H
ÁÂÁ±z¡I

TOP

¦^´_ 1# luke
  1. Dim xi As Integer
  2.     For xi = 0 To 8
  3.         fnra = fd & "RRR\" & A.Offset(, -4) & "\LAN" & xi
  4.         fso.copyfolder fnra, fr, True
  5.     Next
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD