- ©«¤l
- 47
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 76
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2024-2-5
|
[µo°Ý] ªì¾Ç¤£¤~¡A½Ð°Ý³o¦p¦ó²¤Æ?
¦U¦ì¦Ñ®v¦n:
¥H¤U¬O§Ú¸óÀɮר̫ü©wÀx¦s®æȦӨúªº¥t¤@ÀÉ®×Àx¦s®æÈ©Ò¼g¡A¦ý¬O.........§Ún±qF4......G4......H4.....¤@ª½°µ¨ìZ4¡ARANGE()ªºÅܰʤ£·|¼g¡A¥u¯à¤@ª½COPY°µ.....:'(
ÁٽЦѮv«ü¾É....·PÁÂ!
Public Sub test()
Range("f4:f9") = "='D:\Desktop\a\[" & [F2] & ".xlsm]b'!" & [$d4] & ""
Range("f10:f14") = "='D:\Desktop\a\[" & [F2] & ".xlsm]b'!" & [$d10] & ""
Range("f15:f20") = "='D:\Desktop\a\[" & [F2] & ".xlsm]b'!" & [$d15] & ""
Range("g4:g9") = "='D:\Desktop\a\[" & [G2] & ".xlsm]b'!" & [$d4] & ""
Range("g10:g14") = "='D:\Desktop\a\[" & [G2] & ".xlsm]b'!" & [$d10] & ""
Range("g15:g20") = "='D:\Desktop\a\[" & [G2] & ".xlsm]b'!" & [$d15] & ""
end sub |
|