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

¤@­Ó¬P´Á¤Ñªº°ÝÃD

¦^´_ 8# Hsieh

«e½ú, ¦w¦n
´NG3=IF(G2="","",CHOOSE(WEEKDAY(--($AL$1&"/"&SUBSTITUTE(MID(x,FIND("]",x)+1,3),"¤ë","")&"/1")+G2-1,2),"¤@","¤G","¤T","¥|","¤­","¤»","¤é"))³o±ø¨ç¼Æ, «e½ú¥i§_²´y­z¨î§@¬yµ{,
¦]§Ú¥¿¦bÆp¬ã¤¤, ¤@¨Ç¦a¤è¹ê¦³¤£©ú, ¦p("]",x), ´N¥Nªí¤°»ò, ¤p©f¹ê·Q±q¤¤§l¦¬¦h¤Ö, Á¹L«e½ú..

TOP

¦^´_ 11# 317


    ¤½¦¡¤¤ªºx¬O¨Ï¥Îcell¨ç¼Æ±o¨ìªºfilename
§A¦b¨ä¥¦ªÅ¥Õ³B¼g¤J¤½¦¡=x´Nª¾¹Dx¤º®e¬O¤°»ò
¬Ý¤¤¬A¸¹¤º¥Nªíªº¬O°Ñ·Ó¤¤ªº¤°»ò¦ì¸m´Nª¾¹Dfindªº§@¥Î¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ«e½ú¸Ñµª, §Ú·|¥Î¤ß¥hÆp¬ã, ¦A¤TÁ¹L, ¯¬°·±d,§Ö¼Ö!!

TOP

Hsiehª©¥D¤j¤j¦n,
¥ýÁ¹L¤j¤jµ¹¤©¸Ñ¨M¤@¬P´Á¤Ñªº°ÝÃD, ¦Ó¤j¤jµ¹¤©ªº¨ç¼Æªº½T«Ü«l, ¦ý¤p§Ìµo²{¤@°ÝÃD, °²­Y§Ú´_»s¨ç¼Æ¶K¨ì¨ä¥¦ÀÉ®×, «K·|¼u¥X´£¥Ü°T®§,ªþ¹Ï, ¦p¦ó¥i§â³o»ò¦nªº¨ç¼Æ´_»s¨ì¨ä¥¦ÀÉ®×¹B¥Î, ½Ð¤j¤j±Ð¾É..·P®¦..ÁÂÁÂ!!

TOP

¦^´_ 14# ©P¤j°¶


    ¥¨¶°¤½¦¡?
§Úªº¤èªk¨S¦³¥Î¨ì¥¨¶°ªü
À³¸Ó¬O©w¸q¦WºÙªº°ÝÃD
§A­n§â©w¸q¦WºÙ¦b·s¬¡­¶Ã¯¤¤«Ø¥ß
¨Ã¥B¸ÓÀɮפw¸gÀx¦s
¦Ü©ó¸Ó°T®§§Ú´N¨S¹J¹L¤£ª¾¬O¬°¦ó²£¥Íªº
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh«e½ú, ¦n
¤j¤jªº¬P´Á¤Ñ¨ç¼Æ, §Ú¬ã¨s两¤Ñ, ­Y¨S¦³¯d·N¨ì©w¸q¦WºÙ, ¯uªº¬O¨Sªk§¹¦¨, §Ú¥ç¿Ë¦Û°Ê¤â¼g¤J¤@­Ó·sªºÀÉ®×, ¥ý¦æ³]©w3­Ó©w¸q¦WºÙ, ¦A±q¸ê®Æ½s¿è¦C¼g¤J¤½¦¡, ¦¨¥\¤F, ¦b³o±ø¨ç¼Æ¾Ç¤F¤ÎÅܳq¤F, Á¹L¤j¤j,
¤j¤j, ,­Y§â³o¨ç¼ÆÂনvbaµ{¦¡, ©ñ¦b¼Ò²Õ¤¤, ¥Î®a³]¤@«ö¶s¹B°Ê´N¬O§_¥i¥H..ÁÂÁÂ...

TOP

Hsieh¦n
¤W¦¸ªº´£°Ý, À³¬Oªí¹F¤£²M¦â, ¬G­«·s¾ã²z°ÝÃDµo°Ý, ªþÀɦ³©ú²Ó»¡©ú, ¥ý¦æÁ¹L...

aa.rar (19.46 KB)

TOP

¦^´_ 17# 317
  1. Sub Ex()
  2. Dim Ar()
  3.    y = [AL1]
  4.    m = Val(ActiveSheet.Name)
  5.    If m < 1 Or m > 12 Then MsgBox "¤u§@ªí¦WºÙ»Ý­n²Å¦X1~12¤ë": Exit Sub
  6.    d = 1
  7.    mydate = DateSerial(y, m, d)
  8.    Do Until Month(mydate) <> m
  9.      ReDim Preserve Ar(s)
  10.      k = Format(mydate, "aaa")
  11.      Ar(s) = Array(d, Format(mydate, "aaa"))
  12.      s = s + 1
  13.      d = d + 1
  14.      mydate = DateSerial(y, m, d)
  15.    Loop
  16.    [G2:AK3] = ""
  17.    [G2].Resize(2, s) = Application.Transpose(Ar)
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 18# Hsieh

ÁÂÁ¤j¤j¦^À³,
¤w¸Õ¹L, ¦Ó¥BµL¶·¥Î¤W¦WºÙ, §Ö±¶«Ü¦h, ¦AÁÂÁÂ,
¤j¤j, ¦bÅã¥Ü¬P´Á¤Ñ¤¤, ¶Ç¦^¬O¬P´Á¤@, ¬P´Á¤G, ¥i§_§â¬P´Á³o两¦r§R°£, ¦p¬P´Á¤@, Åã¥Ü¤@, ¦p¬P´Á¤G, Åã¥Ü¤G, ·P®¦..

TOP

¦^´_ 19# 317


         Ar(s) = Array(d, Replace(Format(mydate, "aaa"), "¶g", ""))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD