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

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

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

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

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD