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

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

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

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

Leov26.rar (14.61 KB)

¥»©«³Ì«á¥Ñ kimbal ©ó 2010-8-14 21:37 ½s¿è

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

³o­Ó¬Oºâ³NÃD§a
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 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!!

TOP

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

TOP

¦^´_ 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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD