°Ñ·ÓYÄæ§ä¨ìXÄæªÅ¥Õªº¦ì¸m

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

kimbal

.Cells(Rows.Count, 1 + Month(Date) * 3).End(xlUp).Offset(1, 0).Select

³o­Ó¬Oºâ³NÃD§a

myleoyes

¦^´_ 2# kimbal
kimbal«e½ú§A¦n!
       «e½ú!ÁÂÁÂ!³o¼Ë¤l§ä¨ì¬OY9ªº¦ì¸m
       .Cells(Rows.Count, 1 + Month(Date) * 3).End(xlUp).Offset(1, 0).Select
       ­Y§ï¦¨
       .Cells(Rows.Count, 1 + Month(Date) * 3).End(xlUp).Offset(1, -1).Select
       ¤~¬O§ä¨ìX9ªº¦ì¸m¬O¥¿½T,¦ý¦A«ö¶s·Æ¹«À³¸Ó¬O¦bX10ªº¦ì¸m,¦]¬°Y10¬O" "
       µ²ªG¦b­ì¦ì,¤£¦n·N«ä¤p§Ìªº°ÝÃD¨S¦³»¡²M·¡ÁÙ­n³sÄò¤U¥h
       ­Y§ï¦¨
       .Cells(Rows.Count, 3 + (Month(Date) - 1) * 3).End(xlUp)(2, 1).Offset(2, 0).Select
       ¤]¤£¹ï....©Ò¥Hµ{¦¡¦³»~,½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

oobird

Sub Ex()
     With Sheet1
     c = (Month(Date)) * 3 + 1
      .Cells(.Cells(65536, c).End(3).Row + 1, c - 1).Select
      End With
End Sub

GBKEE

¦^´_ 3# myleoyes

1. Sub Ex()
   
2.      Dim R%, C%
   
3.      With Sheet1
   
4.         C = Month(Date) * 3
   
5.         R = IIf(.Cells(Rows.Count, C).End(3).Row > .Cells(Rows.Count, C + 1).End(3).Row, .Cells(Rows.Count, C).End(3).Row, .Cells(Rows.Count, C + 1).End(3).Row)
   
6.         .Cells(R + 1, C).Select
   
7.       End With
   
8. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 5# GBKEE
oobird«e½ú§A¦n!
      «e½ú!«z!¦n¤[¤£¨£!!ÁÂÁÂ!
      ¹F¤H¥X¤âªGµM¤£¦P¤ZÅTÁÂÁ¦A¤T!!

myleoyes

¦^´_ 6# myleoyes
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!µ{¦¡¦³»~³á!
      ´N¬O¦bX9ªº¦ì¸m¥¿½T
      ¦ý¦A«ö¶s·Æ¹«À³¸Ó¬O
      ¦bX10ªº¦ì¸m,¦]¬°Y10¬O" "
      µ²ªG¦b­ì¦ì,½Ð°Ñ¦Ò¬Ý¬Ý
      ÁÂÁ¦A¤T!!