標題:
For loop Range++ 要怎麼做?
[打印本頁]
作者:
eigen
時間:
2014-1-1 14:28
標題:
For loop Range++ 要怎麼做?
For loop Range++ 要怎麼做?
請高手指救,我要讓選擇的區域,依序顯示出 2 4 6 8 或 3 6 9 12..
我不知道 e=e+1 要如何實作,請指教,
Sub Print_Sort_Page()
Dim E As Range
If Sheets("Sheet1") Is ActiveSheet Then '確定在整理的頁面之中
For Each E In Selection.EntireRow
E= E+1 '讓所選擇的行,一次跳兩行
MsgBox "test row() number="& E.Range("b1").row()
Next
End If
End Sub
作者:
GBKEE
時間:
2014-1-1 15:09
回復
1#
eigen
試試,是否為如此
Option Explicit
Sub Print_Sort_Page()
Dim E As Range, i As Integer
If ActiveSheet.Name = "Sheet1" Then '確定在整理的頁面之中
'For Each E In Selection.EntireRow '->Each 是要處裡(每一個)
Set E = Selection 'E.Rows.Count->範圍ROW的總數
For i = E.Cells(1).Row To E.Cells(E.Rows.Count, 1).Row Step 2 '讓所選擇的行,一次跳兩行
' E = E + 1 '讓所選擇的行,一次跳兩行
MsgBox "test row() number=" & E.Cells(i, 1).Row()
Next
End If
End Sub
複製代碼
作者:
eigen
時間:
2014-1-2 00:45
回復
2#
GBKEE
謝謝你的回復,我來我改用
Set Rng = Selection.EntireRow
RngStart = rng.Cells(1, 1).row() '取得準備列印的範圍
RngCnt = rng.Rows.Count
RngEnd= RngStart+RngCnt-1
再用 整數 for loop 來處理,問題已經解決了,謝謊A
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)