[發問] 完成for-next回圈後的變數值...是什麼?

本帖最後由 oak0723-1 於 2010-9-10 16:25 編輯

以下程式碼
為何執行結果[j]=61
r = 1
For i = 1 To 10
r = r + 6
Next
[j9] = r
不懂這個程式碼的變數變化
是否能有哪位先進指教

990909-1.rar (10.4 KB)

樓主熱帖

oak0723-1

中學生 Rank: 2

帖子: 220
主題: 55
精華: 0
積分: 282
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2023-10-18

論壇贊助勳章論壇榮譽勳章

2^#

發表於 2010-9-10 19:38 | 顯示全部帖子

本帖最後由 oak0723-1 於 2010-9-10 19:48 編輯

回復 4# oobird

其實小弟就是在探討之前oobird大大你幫小弟寫的那2個程式碼
程式碼1>
Private Sub CommandButton1_Click()
Dim rng, arr, i%, j%, k%
With Sheets("1")
rng = .Range(.[c10], .[m83].End(3))
End With
ReDim arr(1 To UBound(rng), 1 To 10)
For i = 1 To UBound(rng)
If rng(i, 11) - rng(i, 10) <> 0 Then
k = k + 1
For j = 1 To 6
arr(k, j) = rng(i, j)
Next
arr(k, 8) = rng(i, 8) - rng(i, 6)
arr(k, 9) = arr(k, 8) - arr(k, 6)
arr(k, 10) = rng(i, 11) + rng(i, 10)
End If
Next
Sheets("2").UsedRange = ""
Sheets("2").[a5].Resize(k, 10) = arr
End Sub
這時的k值是什麼
所以小弟用
以下程式碼去試
程式碼2>
Dim rng, arr, i%, j%, k%
With Sheets("1")
rng = .Range(.[c10], .[m83].End(3))
End With
ReDim arr(1 To UBound(rng), 1 To 10)
For i = 1 To UBound(rng)
If rng(i, 11) - rng(i, 10) <> 0 Then
k = k + 1
For j = 1 To 6
arr(k, j) = rng(i, j)
Next
arr(k, 8) = rng(i, 8) - rng(i, 6)
arr(k, 9) = arr(k, 8) - arr(k, 6)
arr(k, 10) = rng(i, 11) + rng(i, 10)
End If
Next
[q9] = k
結果如附件按鍵test3執行結果
在附件中執行結果是18
那是不是在程式碼1中的最後那2行程式碼中的k值就是18?
若是~~~小弟就更不懂了~~~~
Sheets("2").UsedRange = ""
Sheets("2").[a5].Resize(k, 10) = arr
或許小弟對Resize的意義有所誤解~~~~
或根本不懂Sheets("2").[a5].Resize(k, 10) = arr這句程式碼的意思~~~
還煩請解惑~~~

990910-2.rar (35.02 KB)

TOP

oak0723-1

中學生 Rank: 2

帖子: 220
主題: 55
精華: 0
積分: 282
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2023-10-18

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2010-9-10 20:41 | 顯示全部帖子

本帖最後由 oak0723-1 於 2010-9-10 20:42 編輯

回復 6# Hsieh

hsieh大大你好
現在小弟大概懂k的意思
所以我想我是不懂Resize的意義~~~~
還有看不懂Sheets("2").[a5].Resize(k, 10) = arr這句程式碼的意思~~~
可以幫小弟解釋嗎?

TOP

oak0723-1