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

[µo°Ý] ¿é¥X¤é´Á

¦^´_ 5# b9208

1103
­n§PŪ¬°2011¦~²Ä¤T¶g
½Ð°Ý1911¦~²Ä¤T¶g«ç¼Ëªí¥Ü?
EXCEL³Ì©Èªº´N¬O¤£¿í¦u¸ê®Æ³W®æ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# b9208
­Y¥Î201103ªí¥Ü2011¦~²Ä¤T©P³o¼Ë¥i¦æ
¨ç¼Æ¤è¦¡½Ð°Ñ¦Ò
A4=DATE(LEFT($A$2,4),1,1)-WEEKDAY(DATE(LEFT($A$2,4),1,1),2)+(RIGHT($A$2,2)-1)*7+MATCH(LOWER(B4),{"mon","tue","wed","thu","fri","sat","sun"},0)
¦V¤U½Æ»s
VBA½Ð°Ñ¦Ò
  1. Sub nn()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. k = DateSerial(Left([A2], 4), 1, 1) - Weekday(DateSerial(Left([A2], 4), 1, 1), 2) + (Right([A2], 2) - 1) * 7
  4. For i = 1 To 7
  5. x = UCase(Format(k + i, "ddd"))
  6. d(x) = k + i
  7. Next
  8. For Each c In Range([B4], [B4].End(xlDown))
  9. c.Offset(, -1) = d(UCase(c))
  10. Next
  11. End Sub   
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD