PTT數位生活區 / Office

[問題] VBA雙迴圈累加問題

看板Office作者 (史奎德)時間8年前 (2017/06/09 02:34), 編輯推噓0(0推 0噓 29→)
留言29則, 2人參與, 最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體:excel2013 VBA 版本:excel2013 K2 = sum(B2,K2) 單一個用VBA的話是 For i = 2 to 11 工作表8.cells(2,12)=.sum(工作表1.cells(2,i)) Next 問題為 如何用VBA雙迴圈搭cells .sum 把k欄sum用ㄧ個按鈕加起來 麻煩各位大大解惑 如圖： http://i.imgur.com/nX2hoFs.jpg
http://i.imgur.com/dIlo6cE.jpg
-- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 101.12.162.254 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1496946879.A.94C.html
→
06/09 05:13, , 1F
不大懂你的問題
06/09 05:13, 1F
→
06/09 05:14, , 2F
首先我會建議先別跑那麼多
06/09 05:14, 2F
→
06/09 05:14, , 3F
然後我將錯就錯來試試
06/09 05:14, 3F
→
06/09 05:14, , 4F
建議先跑3行就好
06/09 05:14, 4F
→
06/09 05:15, , 5F
你用錄製巨集在改
06/09 05:15, 5F
→
06/09 05:35, , 6F
For m = 2 To 4
06/09 05:35, 6F
→
06/09 05:35, , 7F
Sheets("工作表1").Cells(m, 12) = _
06/09 05:35, 7F
→
06/09 05:37, , 8F
Application.Sum(Range(工作表1.Cells(m, 2) _
06/09 05:37, 8F
→
06/09 05:37, , 9F
工作表1.Cells(m, 11)))
06/09 05:37, 9F
→
06/09 05:37, , 10F
Next m
06/09 05:37, 10F
→
06/09 05:41, , 11F
06/09 05:41, 11F
→
06/09 05:48, , 12F
雙迴圈是這樣
06/09 05:48, 12F
→
06/09 05:48, , 13F
Sub Sumss()
06/09 05:48, 13F
→
06/09 05:48, , 14F
For m = 2 To 4
06/09 05:48, 14F
→
06/09 05:48, , 15F
For n = 2 To 11
06/09 05:48, 15F
→
06/09 05:49, , 16F
a = a + 工作表1.Cells(m, n)
06/09 05:49, 16F
→
06/09 05:49, , 17F
Next n
06/09 05:49, 17F
→
06/09 05:49, , 18F
工作表1.Cells(m, 12) = a
06/09 05:49, 18F
→
06/09 05:49, , 19F
a=0
06/09 05:49, 19F
→
06/09 05:49, , 20F
next m
06/09 05:49, 20F
→
06/09 05:49, , 21F
end sub
06/09 05:49, 21F
→
06/09 13:46, , 22F
06/09 13:46, 22F
→
06/09 13:46, , 23F
就是我有個界面可能長這樣
06/09 13:46, 23F
→
06/09 13:46, , 24F
按鈕ㄧ按
06/09 13:46, 24F
→
06/09 13:46, , 25F
可以計算出L欄
06/09 13:46, 25F
→
06/09 13:46, , 26F
L欄是B+到k欄的總和
06/09 13:46, 26F
→
06/09 13:46, , 27F
只能用
06/09 13:46, 27F
→
06/09 13:46, , 28F
For 迴圈 .cells range .sum 可能這四個就做出來這樣
06/09 13:46, 28F
→
06/09 13:46, , 29F
。 還是感謝大大回復^^
06/09 13:46, 29F
‣ 更多 james733s 的文章
文章代碼(AID): #1PEPY_bC (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 james733s 的文章
文章代碼(AID): #1PEPY_bC (Office)