- 帖子
- 6
- 主題
- 3
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- windows10
- 軟體版本
- Excel2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2017-4-24
- 最後登錄
- 2017-8-2
|
[發問] 請問：如何將判斷出來的數值依序複製入分頁的指定格中
小弟是初心者，自學VBA想用來分析自己的投資資料，附件為我Excel的表格及程式截圖，目前構想是：
保本(E欄)、M值(K欄)，我先用程式下去跑這兩個欄位的數值，然後D欄本身就有公式，會因為保本跟M的數值組合，進行計算，只要D2至D245全部都是正數，就將可以計算出正數的保本和M值移動到分頁
例如：保本 = 1 、 M值 = 1、(D2:D245) 其中有欄位是負值，
保本 = 1、 M值 = 2、(D2:D245) 全部欄位是正數，將保本1及M值2，複製到分頁儲存起來。
目前為止，上述功能皆大多已自行完成。
但卡在圖3的部分，因為迴圈的關係，複製到分頁的數值，都會重複的覆蓋在同一個欄位裡面，沒辦法將正確的資料依序填入。
這是迴圈程式的部分- '數值分析迴圈
- For i = 1 To 10 '進入保本迴圈
- Range("E2:E245") = i & "%"
-
- For a = 1 To 5 '進入M值迴圈
- Range("K2:K245") = a
-
-
- For s = 1 To 245 '進入判斷式迴圈
- If Cells(s + 1, 4) > 1 Then '進入If判斷式
- s = s + 1
- ElseIf s = 245 Then
- Sheets("彙總表").Cells(2, 1) = Sheets("測試用活頁").Cells(2, 5)
- Sheets("彙總表").Cells(2, 2) = Sheets("測試用活頁").Cells(2, 11)
- ElseIf Cells(s + 1, 4) < 1 Then
- Exit For ' 中斷迴圈
- End If
-
- Next s
- Next a
- Next i
|
-
-
001.png
(171.07 KB)
|
發表於 2017-4-29 22:03
| 
