[µo°Ý] ¦Û°Ê±a¤J¤é´Á

toromru

·Q¸ß°Ý°²³]§Ú¦³ 50µ§¸ê®Æ ©ñ¦bA¦C  
§Ú¦bB¦C­n¦Û°Ê±a¤J¤é´Á ±q¦¸¤ë1¸¹¨ì30¸¹©Î31¸¹ ~
³Ì«á31¸¹¸ê®Æ¶ñ¤J«áÄ~Äò±q1¸¹¶}©l¶ñ~

¦p:   A        B
        1     10/1
        2     10/2
        3     10/3
       .....     ......
       31    10/31
       32    10/1

¤j­P¤W·Q§e²{³o¼Ë ¤£ª¾¹D¦³¨S¦³¿ìªk¥ÎVBA¼g¥X¨Ó?!

toromru

¦^´_ 4# ­ã´£³¡ªL


    ·PÁ±z ¥¿±`¨Ï¥Î¤¤ : )

­ã´£³¡ªL

Sub TTDATE()
Dim D As Date, DC%
D = DateSerial(Year(Date), Month(Date) + 2, 0)  '¤U¤ë©³
DC = Day(D) '¤U¤ë¤Ñ¼Æ
For i = 1 To [A65536].End(xlUp).Row
¡@¡@Cells(i, 2) = D - DC + 1 + (i - 1) Mod DC
Next i
End Sub

lpk187

¦^´_ 1# toromru

1. Option Explicit
   
2. 
   
3. Public Sub ex()
   
4. Dim I As Date
   
5. Dim r%, dN%, j%
   
6. r = 1
   
7. dN = DateSerial(Year(Date), Month(Date) + 2, 0) - DateSerial(Year(Date), Month(Date) + 1, 1) + 1 '­pºâ¦¸¤ë¦³´X¤Ñ
   
8. For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step dN '
   
9.         For I = DateSerial(Year(Date), Month(Date) + 1, 1) To DateSerial(Year(Date), Month(Date) + 2, 0) '¶ñ¼g¤é´Á
   
10.             If Cells(r, 1) <> "" Then '¹J¨ìAÄ榳ªÅ¥Õ¡A´N°±¤î
    
11.                 Cells(r, 2) = Format(I, "m/ d")
    
12.                 r = r + 1
    
13.             End If
    
14.         Next
    
15. Next
    
16. End Sub

½Æ»s¥N½X

ikboy

¦^´_ 1# toromru


    Private Sub Worksheet_Change(ByVal Target As Range)
    zr = Target.Row: zc = Target.Column
    If zc = 1 And Cells(zr, 2) = "" Then
      Dim lad, sfd As Date
      sfd = Application.EoMonth(Date, -2) 'sfd means StartFromDate
      lad = Application.Max(Columns(2), sfd)  'lad means LastActionDate
      Cells(zr, 2) = lad + 1
  End If
  End Sub