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

[µo°Ý] ¨D±Ð°Ñ·Ó¥N¤J¤½¦¡?

¦^´_ 7# mhl9mhl9
  1. Sub Ex()
  2.     Dim S As String
  3.     S = "='" & [g2] & Format([j2], "yyyy") & "\" & [a3] & "\" & Format([j2], "dd-mmm") & "\[" & Format([j2], "dd") & ".xls]" & [G3] & "'!" & [j3]
  4.     Selection.Formula = S
  5. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# mhl9mhl9
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar()
  4.     Ar = Array("a1", "A2", "A3")
  5.     Sheet1.[B1] = "=INDIRECT(" & Ar(0) & "&" & Ar(1) & "&" & Ar(2) & ")"
  6. End Sub
½Æ»s¥N½X
¦p¹Ï

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD