µ{¦¡¶}±Ò«áª½±µ¨ú±o¤µ¤é¤é´ÁµJÂI

coafort

½Ð°Ý¦U¦ì¤j¤j
»Ý¨D¬O
¥´¶}µ{¦¡«á´å¼Ð·|ª½±µ¸õ¨ì¤µ¤é¤é´ÁªºÀx¦s®æ
½Ð°Ý¸Ó¦p¦ó³]­p©O
ÁÂÁÂ

coafort

¦^´_  coafort


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹©«½m²ß¦r¨å»PÀx¦s®æ¶°Union(),¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ ...
Andy2483 µoªí©ó 2023-4-7 08:14

«D±`·PÁ¤j¤j
½Ð°Ý¤j¤j¦³¿ìªk¤£»Ý­n«ö«ö¶s
µ{¦¡¤@¥´¶}´N·|¦Û¤v¸õ¨ì¥»¤é¤é´ÁªºÀx¦s®æ¶Ü¡H
ÁÂÁ¤j¤j

Andy2483

¦^´_ 1# coafort


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾ÇÂǦ¹©«½m²ß¦r¨å»PÀx¦s®æ¶°Union(),¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

°õ¦æ«e:

¤U¸ü (166.38 KB)

2023-4-7 08:10

°õ¦æµ²ªG:

¤U¸ü (171.64 KB)

2023-4-7 08:11

Option Explicit
Sub TEST()
Dim Y, xR As Range, Ra As Range, xD
Set Y = CreateObject("Scripting.Dictionary")
Set xR = ActiveSheet.UsedRange
For Each Ra In xR.SpecialCells(2)
   On Error Resume Next
   If IsDate(CDate(Ra)) = False Then GoTo i01
   On Error GoTo 0
   xD = CDate(Ra) & ""
   If Not Y.Exists(xD) Then
      Set Y(xD) = Ra
      Else
      Set Y(xD) = Union(Y(xD), Ra)
   End If
   
i01:
Next
Application.Goto Y(Date & ""): MsgBox "¤µ¤Ñ"
Application.Goto Y(Date + 1 & ""): MsgBox "©ú¤Ñ"
Application.Goto Y(Date + 2 & ""): MsgBox "«á¤Ñ"
Set Y = Nothing: Set xR = Nothing: Set Ra = Nothing
End Sub