- ©«¤l
- 678
- ¥DÃD
- 147
- ºëµØ
- 0
- ¿n¤À
- 799
- ÂI¦W
- 0
- §@·~¨t²Î
- win 8
- ³nÅ骩¥»
- MS 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2022-1-20
|
²£¥ÍÀɮפΤu§@ªíªº»yªk
¥»©«³Ì«á¥Ñ ziv976688 ©ó 2016-2-9 21:16 ½s¿è
·Ð½Ð¦U¦ì°ª¤â«ü±Ð!ÁÂÁÂ!
®Ú¾Ú¦UInputBox¶ñ¤Jªº¼Æ¦r¡A²£¥Í¦UÀɮפΤu§@ªí
ÀɮצWºÙ= FTC_" & UpRng & "_"& StrRng & "-" & mthcount & "´Á.xls"
¦UÀɮפºªº¤u§@ªí
¤u§@ªí¦WºÙ= mthcount & "-" & mthcount - i
(For i = 1 To UpRng¡J Next)
³Ì«á¦b¥kÃä¦AÄò¼W¥[¤@Ó¦WºÙ="¾÷²vªí"ªº¤u§@ªí
¤u§@ªíªº¤º®e¡J
A1¡JH1=DATA!¼ÐÃD(´Á¼Æ ¤@ ¤G ¤T ¥| ¤ ¤» ¯S)¡FI1¡JP1= DATA!¼ÐÃD
I2¡JP& mthcount- StrRng +2= DATA!A&StrRng+1¡JDATA!H& mthcount +1
"¾÷²vªí"¤u§@ªí¤º®e
A1¡JF1=
¹w´ú¸¹½X ¥X²{´Á¼Æ ¥X²{¦¸¼Æ ¹w´ú¸¹½XÓ¼Æ ¤¤¼ú¸¹½X ¤¤¼ú¤ñ²v
EX¡J
StrRng = "2,10"
Nrange = "100,200"
UpRng = "4,8"
²£¥Í¦pªþ¥ó
»s§@.rar (72.27 KB)
|
|