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

¤¤¤åÅܤF­^¤å, ¦ó¸Ñ,

¤¤¤åÅܤF­^¤å, ¦ó¸Ñ,

½Ð±Ð¤j¤j­Ì, ¤@­ÓÅV¥Ü°ÝÃD, ªþÀɤW¶Ç, ¤º¦³»¡©ú,
¥ý¦æÁ¹L¦U«e½ú, ·P®¦,
AB.rar (49.58 KB)
hong912

¦^´_ 1# hong912
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim y%, m%, n%, d%, AR()
  4.     AR = Array(0, "¤@", "¤G", "¤T", "¥|", "¤­", "¤»", "¤é")
  5.     y = InputBox("¿é¤J¦~¤À", , Year(Date))
  6.     For m = 1 To 12
  7.         With Sheets(m & "¤ë")
  8.             .[g2:ak3] = ""
  9.             n = Day(DateSerial(y, m + 1, 1) - 1)
  10.             ReDim arr(1 To 2, 1 To n)
  11.             For d = 1 To n
  12.                 arr(1, d) = d
  13.                 arr(2, d) = AR(Weekday(DateSerial(y, m, d), vbMonday))
  14.             Next
  15.             .[g2].Resize(2, n) = arr
  16.         End With
  17.     Next
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# hong912
§ï¥Î [$-404]aaa  ¬Ý¯à¤£¯à¸Ñ¨M¡C
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# GBKEE
ÁÂÁª©¤j¦^À³,
¤w¸Õ¹L°ÝÃD¤w¸Ñ¨M, ·PÁÂ, ¯¬§Ö¼Ö.
hong912

TOP

¦^´_ 3# stillfish00
ÁÂÁ¼ӥD¦^À³, ¼Ó¥D´£¥Ü§ï¥Î [$-404]aaa¸Õ¸Õ, ¥i§_©ú½T»¡©ú, ¦]¥\¤O«Ü²L,
ÁÂÁÂ!!
hong912

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2015-11-24 13:42 ½s¿è

¦^´_ 5# hong912
[$-404] ¬°¦a°Ï¥N½X¡Aªí¥Ü¤¤¤å(¥xÆW)

¦]¬°¤é´Á®æ¦¡ aaa ¨Ì¤£¦P¦a°ÏÅã¥Ü¤£¤@¼Ë
¨Ò¦p§A¦bÀx¦s®æ¥´ =TEXT(NOW(),"[$-409]aaa")
·|¥X²{"Tue" ([$-409]ªí¥Ü¬ü°ê)¡A¦Ó¤£¬O§A­nªº "¶g¤G"
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

arr(2, d) = Mid("¤»¤é¤@¤G¤T¥|¤­", DateSerial(y, m, d) Mod 7 + 1, 1)

TOP

¦^´_ 6# stillfish00
¨ü±Ð¤F, ·PÁ«ü¾É, ÁÂÁÂ!!
hong912

TOP

¦^´_ 7# ­ã´£³¡ªL
°J¤ß·PÁ¦^À³, ÁÂÁÂÁÂ!
hong912

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD