[已解决]求助将函数改为VBA代码

chart888

1. Private Sub CommandButton1_Click()
   
2. 
   
3. With Worksheets("内部")
   
4.     r = .Range("A65536").End(xlUp).Row
   
5.     .Cells(r, 5) = WorksheetFunction.Sum(.Range(Cells(4, 5).Address, Cells(r - 1, 5).Address))
   
6.     .Cells(r, 6) = WorksheetFunction.Sum(.Range(Cells(4, 6).Address, Cells(r - 1, 6).Address))
   
7. For i = 4 To r - 1
   
8.     .Cells(i, 7) = .Cells(i - 1, 7) + .Cells(i, 6) - .Cells(i, 5)
   
9.     .Cells(r, 7) = .Cells(r - 1, 7)
   
10. Next
    
11. End With
    
12. 
    
13. End Sub
    

复制代码

chart888

网络人 发表于 2017-6-3 10:36
是这样的=G3+F4-E4

看到了
是不是这样

网络人

chart888 发表于 2017-6-3 10:38
看到了
是不是这样

是这样的

网络人

chart888 发表于 2017-6-3 10:38
看到了
是不是这样

5月汇总及余数：这个前面的月份能不能设置一个VBA代码从日期中的数据取月份

网络人

chart888 发表于 2017-6-3 10:38
看到了
是不是这样

我又加了两个代码进去，运行错误。序号和加盟店从第3行开始，出仓数量和进仓数量只计算5月份的，如果不是5月份的就不计算

chart888

网络人 发表于 2017-6-3 12:00
我又加了两个代码进去，运行错误。序号和加盟店从第3行开始，出仓数量和进仓数量只计算5月份的，如果不是 ...

你重新发个帖子
把你想要的要求写出来
我每月看懂你想干嘛

网络人

chart888 发表于 2017-6-3 13:28
你重新发个帖子
把你想要的要求写出来
我每月看懂你想干嘛

ok

网络人

chart888 发表于 2017-6-3 10:37

Worksheets("内部")这个"内部"工作表的名称能否自动提取

网络人

chart888 发表于 2017-6-3 10:37

  .Cells(r, 6) = WorksheetFunction.Sum(.Range(Cells(4, 6).Address, Cells(r - 1, 6).Address)) 这个代码如果拆入的单元格超过4个就会复制结果到上一行帮忙看看是什么原因

chart888

网络人 发表于 2017-6-14 09:33
.Cells(r, 6) = WorksheetFunction.Sum(.Range(Cells(4, 6).Address, Cells(r - 1, 6).Address)) 这个 ...

东西在哪的
我都找不到了