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

¸õ¥X´£¿ôµøµ¡

¸õ¥X´£¿ôµøµ¡

½Ð°Ý¦U¦ì¤j¤j
a1¿é¤J¤é´Á
a2¿é¤J¸õ¥Xµøµ¡¤º®e
µ{¦¡¶}±Ò«á¡A¦pªGa1¬O¤µ¤Ñªº¤é´Á´N·|¸õ¥Xa2¤º®eªºµøµ¡
½Ð°Ý¦U¦ì¤j¤j³o¸Ó«ç»ò¼g©O¡H
ÁÂÁÂ

¦^´_ 1# coafort


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

°õ¦æ«e:


°õ¦æµ²ªG:



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
If Not Y.Exists(Date & "") Then GoTo i02
For Each Ra In Y(Date & "").Offset(1)
   MsgBox Ra
Next
Application.Goto Y(Date & "").Offset(1)
i02:
Set Y = Nothing: Set xR = Nothing: Set Ra = Nothing
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_  coafort


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


«D±`ÁÂÁ¤j¤jªº¤ä´©
½Ð°Ý¤j¤j¦³¿ìªk¼g¦¨¤£»Ý­n¥¨¶°«ö¶s
µ{¦¡¤@¶}±Ò´N·|¦Û°Ê°õ¦æ¶Ü
ÁÂÁ¤j¤j

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-4-7 14:38 ½s¿è

¦^´_ 3# coafort


    ÁÂÁ«e½ú¦^´_
Q:µ{¦¡¤@¶}±Ò´N·|¦Û°Ê°õ¦æ¶Ü
³o¬O«ü¶}±Ò¦¹Àɮתº·N«ä¶Ü?

==========================================
Option Explicit
Private Sub Workbook_Open()
Call TEST
End Sub

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_  coafort


    ÁÂÁ«e½ú¦^´_
Q:µ{¦¡¤@¶}±Ò´N·|¦Û°Ê°õ¦æ¶Ü
³o¬O«ü¶}±Ò¦¹Àɮתº·N«ä¶Ü?

===== ...
Andy2483 µoªí©ó 2023-4-7 14:27


³ø§i¤j¤j
¶}±ÒETF.xlsm´N·|¦Û°Ê¸õ¥X
ÁÂÁ¤j¤j

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD