求大神们指点一下

魏琳211

半百 发表于 2017-5-25 10:00
加个判断可以吗？
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row

客户告诉我计算结果出现了错误我才发现把0也算在里面了。。。有的结果不知道为啥算的不准确，正数结果出现了负数。

魏琳211

半百 发表于 2017-5-23 21:16
请测试
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row

如果第一个结束时间和第二个开始时间没有相差一分钟以上，第二个利润算在自由结算里，这样的情况怎么表示呢？

魏琳211

半百 发表于 2017-5-23 10:45
或许别人都看不懂你的要求。
你是想在U列为X的单元格左边的三个单元格里返回结果吗？
最好你能在R9:T9和R ...

我能不能冒昧加一下你的联系方式啊。。。及时沟通

半百

魏琳211 发表于 2017-5-25 13:43
如果第一个结束时间和第二个开始时间没有相差一分钟以上，第二个利润算在自由结算里，这样的情况怎么表示 ...

前7再顺延？
再加个判断
Sub TEST()
R = Cells(Rows.Count, 1).End(3).Row
ARR = Range("A1:U" & R)
ReDim BRR(1 To R - 1, 1 To 3)
For I = 2 To R
    If ARR(I, 14) <> 0 Then
        If (ARR(I, 7) - Val(ARR(I - 1, 11))) * 24 * 60 < 1 Then
            Z = Z + ARR(I, 14)
        Else
            N = N + 1
            If N < 8 Then
                S = S + ARR(I, 14)
            Else
                Z = Z + ARR(I, 14)
            End If
        End If
    End If
    If ARR(I, 21) = "X" Then
        If S > 0 Then
            BRR(I - 1, 2) = S
        Else
            BRR(I - 1, 1) = S
        End If
        If Z <> 0 Then BRR(I - 1, 3) = Z
      N = 0: S = 0: Z = 0
    End If
Next
Range("R2").Resize(R - 1, 3) = BRR
End Sub

魏琳211

半百 发表于 2017-5-26 15:55
前7再顺延？
再加个判断
Sub TEST()

是的，因为这种情况算是违规操作的，如果有0或者违规，前七个计算结果就不准确了

魏琳211

半百 发表于 2017-5-26 15:55
前7再顺延？
再加个判断
Sub TEST()

但是有的数据的开始时间前后相差不到一分钟，这种情况不能在客户结点那里判断，只能把对应的利润加在自由盈亏，这个嵌套应该怎么放呢？

魏琳211

半百 发表于 2017-5-26 15:55
前7再顺延？
再加个判断
Sub TEST()

总提示下标越界啊。。怎么回事呢

魏琳211

半百 发表于 2017-5-26 15:55
前7再顺延？
再加个判断
Sub TEST()

我的扣扣是1769004580，能不能加我，详细说一下，程序出现了问题

用户53918

你測試看看，我實力不精跑得有點慢
我自己測試是OK的

1. Sub haha()
   
2. 
   
3. Dim X, Crow, Ccount, Ctotal As Integer
   
4. Dim Sum, Sum1 As Single
   
5. Dim C As Range
   
6. 
   
7. 
   
8. X = 0
   
9. Sum = 0
   
10. Sum1 = 0
    
11. 
    
12. For i = 2 To [B100000].End(xlUp).Row
    
13. 
    
14. '判斷是否有重複
    
15. If Range("B" & i) <> Range("B" & i - 1) Then
    
16. 
    
17. Set C = Range("B:B").Find(Range("B" & i))
    
18. 
    
19. Crow = C.Row
    
20. Ccount = Application.CountIf(Columns("B:B"), Range("B" & i))
    
21. Ctotal = Crow + Ccount - 1
    
22. 
    
23.     '加總
    
24.     For j = Crow To Ctotal
    
25.    
    
26.     If Range("N" & j) <> 0 Then
    
27.    
    
28.         If X < 7 Then
    
29.         
    
30.         Sum = Sum + Range("N" & j)
    
31.         
    
32.         X = X + 1
    
33.         
    
34.         Else
    
35.         
    
36.         Sum1 = Sum1 + Range("N" & j)
    
37.    
    
38.         End If
    
39.    
    
40.     End If
    
41.    
    
42.     Next
    
43.    
    
44.     '填數
    
45.    
    
46.     If Sum >= 0 Then
    
47.    
    
48.     Range("S" & Ctotal) = Sum
    
49. 
    
50.     Else
    
51.    
    
52.     Range("R" & Ctotal) = Sum
    
53. 
    
54.     End If
    
55.    
    
56.     Range("T" & Ctotal) = Sum1
    
57.    
    
58.     X = 0
    
59.     Sum = 0
    
60.     Sum1 = 0
    
61.    
    
62. End If
    
63.    
    
64. Next
    
65.    
    
66. End Sub

复制代码

魏琳211

用户53918 发表于 2017-5-29 17:57
你測試看看，我實力不精跑得有點慢
我自己測試是OK的

如果G列的开始时间相差一分钟之内或者同一行开始结束时间相差一分钟之内，N列对应的利润要加到自由盈亏里，主要是计算前七个非零有效的利润值的和，前七个非零有效利润结果为负数，放在R列里，正数放在S列里，并且跟ID号结束X符号显示同一行，这个计算条件挺多的。