作者james733s (史奎德)
看板Office
标题[问题] VBA双回圈累加问题
时间Fri Jun 9 02:34:37 2017
(若是和其他不同软体互动之问题 请记得一并填写)
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1496946879.A.94C.html
1F:→ waiter337: 不大懂你的问题 06/09 05:13
2F:→ waiter337: 首先我会建议先别跑那麽多 06/09 05:14
3F:→ waiter337: 然後我将错就错来试试 06/09 05:14
4F:→ waiter337: 建议先跑3行就好 06/09 05:14
5F:→ waiter337: 你用录制巨集在改 06/09 05:15
6F:→ waiter337: For m = 2 To 4 06/09 05:35
7F:→ waiter337: Sheets("工作表1").Cells(m, 12) = _ 06/09 05:35
8F:→ waiter337: Application.Sum(Range(工作表1.Cells(m, 2) _ 06/09 05:37
9F:→ waiter337: 工作表1.Cells(m, 11))) 06/09 05:37
10F:→ waiter337: Next m 06/09 05:37
12F:→ waiter337: 双回圈是这样 06/09 05:48
13F:→ waiter337: Sub Sumss() 06/09 05:48
14F:→ waiter337: For m = 2 To 4 06/09 05:48
15F:→ waiter337: For n = 2 To 11 06/09 05:48
16F:→ waiter337: a = a + 工作表1.Cells(m, n) 06/09 05:49
17F:→ waiter337: Next n 06/09 05:49
18F:→ waiter337: 工作表1.Cells(m, 12) = a 06/09 05:49
19F:→ waiter337: a=0 06/09 05:49
20F:→ waiter337: next m 06/09 05:49
21F:→ waiter337: end sub 06/09 05:49
23F:→ james733s: 就是我有个界面可能长这样 06/09 13:46
24F:→ james733s: 按钮ㄧ按 06/09 13:46
25F:→ james733s: 可以计算出L栏 06/09 13:46
26F:→ james733s: L栏是B+到k栏的总和 06/09 13:46
27F:→ james733s: 只能用 06/09 13:46
28F:→ james733s: For 回圈 .cells range .sum 可能这四个就做出来这样 06/09 13:46
29F:→ james733s: 。 还是感谢大大回复^^ 06/09 13:46