excel 判断加总

山菊花

bill740615 发表于 2016-3-19 23:54
总版主您好,
你说对了, 也做对了, 我真的好佩服, 可能是我一时脑袋不清楚, 示例确实有失误...
我真的好 ...

如果你不会VBA，不容易说明白。
1、按Ctrl+F3，手工创建一个名称“ts”。
19楼附件已修改，增加自动创建名称的代码，可重新下载。

2、右键点击工作表标签，选择菜单项“查看代码”，这里复制代码。在另一个工作表同样操作，粘贴所得代码。

3、在VBE窗口中打开工程管理器，将用户窗体UserForm1拖动到新工作簿工程中。

bill740615

山菊花 发表于 2016-3-20 09:15
如果你不会VBA，不容易说明白。
1、按Ctrl+F3，手工创建一个名称“ts”。
19楼附件已修改，增加自动 ...

谢谢总版主,
因为不知道为什么, 我没办法将"扣减2"的内码依您说的套用在旧活页簿并执行
我最后花了点时间直接把资料移到您新建的VBA档, 并进行分析, 一切是相当顺利!!!
万分感激, 感谢您

山菊花

bill740615 发表于 2016-3-20 22:54
谢谢总版主,
因为不知道为什么, 我没办法将"扣减2"的内码依您说的套用在旧活页簿并执行
我最后花了点时 ...

不能复制代码到目标文件中没关系，能用就好。
表中A、B两列如果没有其它用途，可以不要，程序中没有引用这两列数据。
19楼增加一个附件，给单元格填充背景颜色作提示，看是否有用。

doit0615

山菊花 发表于 2016-3-21 08:59
不能复制代码到目标文件中没关系，能用就好。
表中A、B两列如果没有其它用途，可以不要，程序中没有引 ...

总版主您好，RUN了两年，大大改善我的作业与绩效。我这边修改了一下需求，但VBA不知道应该怎么修，想跟您询问看看。请参考附件，如果改成每周三做扣减，每天的Close价都与"下一个"周三扣减，应该怎么做呢?

山菊花

时隔太久，没印象了，附件的要求说明在哪楼？

doit0615

山菊花 发表于 2018-7-2 22:05
时隔太久，没印象了，附件的要求说明在哪楼？

总版主您好, 我更新了附件，应该可以让您更清楚。事实上，需求跟之前不太一样，所以我想说把附件的要求说明放在这里26楼就好，免得乱了套。附件的VBA，我是先根据您之前提供的，自己改了一下，但是效果不是很好。这里我需要的是，
>>>让每天的Close价对"下一个"周三Close价做扣减，然后呈现在I栏位。<<< 我也在J栏列出了应该呈现的数给您对比参考，那VBA应该怎么改呢?



-------------------以下是之前您提供的VBA，我自己改的结果不是很好-------------------
Sub 扣减5()
    Dim nRow%, m%, n%, t1 As Date, Arr(), Brr(), Crr(1 To 2)
    nRow = Range("c1048576").End(xlUp).Row
    Arr = Range("c2:g" & nRow).Value
    ReDim Brr(1 To nRow, 1 To 1)
    For i = 1 To nRow - 1
        If Weekday(Arr(i, 1)) = 4 Then
            Crr(1) = Crr(2)
            Crr(2) = Arr(i, 5)
            t1 = Arr(i, 1)
            n = n + 1
        Else
            Brr(i, 1) = Crr(1) - Arr(i, 5)
        End If
    Next
    Range("i2:i" & nRow).Value = Brr
End Sub

山菊花

1. Sub Ι搭5()
   
2.     Dim nRow%, Arr(), Brr(), nClose
   
3.     nRow = Range("g1048576").End(xlUp).Row
   
4.     Arr = Range("c3:g" & nRow + 1).Value
   
5.     ReDim Brr(1 To nRow, 1 To 2)
   
6.     For i = 1 To nRow - 2
   
7.         If Arr(i, 5) > 0 And i < nRow - 2 Then Brr(i, 1) = Arr(i, 5) - Arr(i + 1, 5)
   
8.         If nClose > 0 Then Brr(i, 2) = nClose - Arr(i, 5)
   
9.         If Weekday(Arr(i, 1)) = 4 Then nClose = Arr(i, 5)
   
10.     Next
    
11.     Range("h3:i" & nRow).Value = Brr
    
12. End Sub

复制代码

doit0615

山菊花 发表于 2018-7-3 07:35

总版主厉害，请受小弟一拜，万分感谢

doit0615

山菊花 发表于 2018-7-3 07:35

山菊花总版主您好，
近日在资料编辑上，遇到一个小问题，如果想把I栏往后挪到K栏显示，VBA应该如何调整?

山菊花

Sub Ι搭5()
    Dim nRow%, Arr(), Brr(), nClose
    nRow = Range("g1048576").End(xlUp).Row
    Arr = Range("c3:g" & nRow + 1).Value
    ReDim Brr(1 To nRow, 1 To 4)
    For i = 1 To nRow - 2
        If Arr(i, 5) > 0 And i < nRow - 2 Then Brr(i, 1) = Arr(i, 5) - Arr(i + 1, 5)
        If nClose > 0 Then Brr(i, 4) = nClose - Arr(i, 5)
        If Weekday(Arr(i, 1)) = 4 Then nClose = Arr(i, 5)
    Next
    Range("h3:k" & nRow).Value = Brr
End Sub