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

[µo°Ý] ½Ð±Ð¦p¦ó¸õ¹L©P¤»©P¤é¨â¤Ñ¤£ºâ?

¦^´_ 2# t8899
   
·Q¤F¤@­Ó¤p®É  :-(
·Q¨ì¤F,´N¬O§Aªº.
¥i°Ñ¦Ò¤@¤U
  1. Option Explicit
  2. Sub Ex()
  3.     Dim rng As Range, E, eDAY As Date, i As Integer
  4.     eDAY = Date
  5.     If Weekday(eDAY, vbMonday) >= 6 Then MsgBox eDAY & " ¬O°²¤é": Exit Sub
  6.     i = IIf(Weekday(eDAY, vbMonday) <= 3, 5, 3)
  7.     For Each rng In Range("AE4:AE15")
  8.         If IsDate(rng) And Int(eDAY - rng) >= 0 And Int(eDAY - rng) <= i Then
  9.             If Weekday(rng, vbMonday) < 6 Then
  10.                 MsgBox rng & " «e " & Int(eDAY - rng) & " ³qª¾"               
  11.             End If
  12.         End If
  13.     Next
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD