PTT數位生活區 / Office

[問題] excel vba問題

看板Office作者 (^0^)時間12年前 (2012/10/25 12:58), 編輯推噓1(1推 0噓 4→)
留言5則, 3人參與, 最新討論串1/3 (看更多)
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:excel vba 版本:2003 假設現在有一個excel裡面的欄位公式都建好了 改參數 要求的值會改變 現在想做一個自動迴圈 譬如參數a由0.1代到1 然後要紀錄所以算出計算之後的值 然後存取值後 貼到新的sheet儲存格 大致的邏輯如下: For i=1 to 10 Worksheets("活頁一").Range("B1")=i/10 '調整a參數 resultValue = Worksheets("活頁一").Range("A1").Value Worksheets("結果").Range("C1").Value = resultValu next i 現在問題來了 因為本來Worksheets("活頁一").Range("A1")的值 回隨B1儲存格而變動 現在要用迴圈計錄 發現i從1代到10 記錄下來的resultValue全部是i代10的 表示中間都沒計算 該加什麼命令嗎? 還是哪邊出了問題 請高手指導一下 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 60.251.84.108
→
10/25 13:05, , 1F
這樣寫只有會最後i=10,range("B"&i)之類會不會比較有效果
10/25 13:05, 1F
→
10/25 21:44, , 2F
第四行Range("C1")，所以i=1 to 9都被i=10蓋掉了
10/25 21:44, 2F
→
10/25 21:46, , 3F
把Range("C1")改成Range("C"&i) ?
10/25 21:46, 3F
推
10/27 01:29, , 4F
next i 上面那行 改成
10/27 01:29, 4F
→
10/27 01:30, , 5F
Worksheets("結果").Cells(i,3) = resultValu 試試 : )
10/27 01:30, 5F
‣ 更多 Yushinyih 的文章
文章代碼(AID): #1GYCRgbX (Office)
討論串 (同標題文章)
完整討論串 (本文為第 1 之 3 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共3篇)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 Yushinyih 的文章
文章代碼(AID): #1GYCRgbX (Office)