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

luke

¦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

¦^´_ 7# Hsieh

ÁÂÁÂ

Hsieh

¦^´_ 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

sleepycat

¦^´_ 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

c_c_lai

¦^´_ 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

GBKEE

¦^´_ 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¥ª²¾°Ê

c_c_lai

¦^´_ 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

GBKEE

¦^´_ 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