foxcat99
2002-04-18, 02:58 PM
Dim m As Single
Dim n As Double
Dim q As Double
Sub 擷取winner和losser()
For i = 2 To 3
m = Sheets("整理").Cells(i, 4)
For j = 1 To m
n = Sheets("整理").Cells(i, 3) + j
q = Sheets("整理").Cells(i + 1, 3) + 1 - j
Sheets("yes").Range("A(n):H(n)") = Sheets("7090").Range("A(n):H(n)")
Sheets("no").Range("A(q):H(q)") = Sheets("7090").Range("A(q):H(q)")
Next j
Next i
請問一下為何第10,11列程式為何會執行錯誤????
我按說明......說是要宣告陣列??......
可是之前寫成sheets("整理").cells(i,4)=sheets("7090").cells(i,4)就沒問題
但是寫成 .cells(q,4) .cells(q,4)就不行
為什麼換成另一個變數就不行????
請前輩指導一下小弟的錯誤........
感激不盡.............
:confused: :confused:
贊助商連結
Dim n As Double
Dim q As Double
Sub 擷取winner和losser()
For i = 2 To 3
m = Sheets("整理").Cells(i, 4)
For j = 1 To m
n = Sheets("整理").Cells(i, 3) + j
q = Sheets("整理").Cells(i + 1, 3) + 1 - j
Sheets("yes").Range("A(n):H(n)") = Sheets("7090").Range("A(n):H(n)")
Sheets("no").Range("A(q):H(q)") = Sheets("7090").Range("A(q):H(q)")
Next j
Next i
請問一下為何第10,11列程式為何會執行錯誤????
我按說明......說是要宣告陣列??......
可是之前寫成sheets("整理").cells(i,4)=sheets("7090").cells(i,4)就沒問題
但是寫成 .cells(q,4) .cells(q,4)就不行
為什麼換成另一個變數就不行????
請前輩指導一下小弟的錯誤........
感激不盡.............
:confused: :confused:
贊助商連結