For loop Range++ ­n«ç»ò°µ¡H

eigen

For loop Range++ ­n«ç»ò°µ¡H

½Ð°ª¤â«ü±Ï¡A§Ú­nÅý¿ï¾Üªº°Ï°ì¡A¨Ì§ÇÅã¥Ü¥X 2 4 6 8 ©Î 3 6 9 12..

§Ú¤£ª¾¹D e=e+1 ­n¦p¦ó¹ê§@¡A½Ð«ü±Ð¡A

Sub Print_Sort_Page()
        Dim E As Range

        If Sheets("Sheet1") Is ActiveSheet Then                                                '½T©w¦b¾ã²zªº­¶­±¤§¤¤
                For Each E In Selection.EntireRow

                        E= E+1 'Åý©Ò¿ï¾Üªº¦æ¡A¤@¦¸¸õ¨â¦æ
                        MsgBox "test row() number="& E.Range("b1").row()
                Next
        End If
End Sub

eigen

¦^´_ 2# GBKEE


    ÁÂÁ§Aªº¦^´_¡A§Ú¨Ó§Ú§ï¥Î
        Set Rng        = Selection.EntireRow
        RngStart = rng.Cells(1,        1).row()                                                        '¨ú±o·Ç³Æ¦C¦Lªº½d³ò
        RngCnt = rng.Rows.Count
        RngEnd=        RngStart+RngCnt-1

¦A¥Î ¾ã¼Æ for loop ¨Ó³B²z¡A°ÝÃD¤w¸g¸Ñ¨M¤F¡AÁÂÁÀ¢Ï

GBKEE

¦^´_ 1# eigen
¸Õ¸Õ,¬O§_¬°¦p¦¹

1. Option Explicit
   
2. Sub Print_Sort_Page()
   
3.     Dim E As Range, i As Integer
   
4.     If ActiveSheet.Name = "Sheet1" Then                                              '½T©w¦b¾ã²zªº­¶­±¤§¤¤
   
5.         'For Each E In Selection.EntireRow  '->Each ¬O­n³B¸Ì(¨C¤@­Ó)
   
6.         Set E = Selection                'E.Rows.Count->½d³òROWªºÁ`¼Æ
   
7.         For i = E.Cells(1).Row To E.Cells(E.Rows.Count, 1).Row Step 2 'Åý©Ò¿ï¾Üªº¦æ¡A¤@¦¸¸õ¨â¦æ
   
8.             ' E = E + 1 'Åý©Ò¿ï¾Üªº¦æ¡A¤@¦¸¸õ¨â¦æ
   
9.             MsgBox "test row() number=" & E.Cells(i, 1).Row()
   
10.         Next
    
11.         End If
    
12. End Sub

½Æ»s¥N½X