帮忙统计下金额

robbietu · 发表于 2021-5-9 10:18

请各位高手帮忙下，怎么按照时间和贝种进行统计，谢谢

A1233515 · 发表于 2021-5-9 10:29

你这两边的日期都对不上啊

robbietu · 发表于 2021-5-9 18:18

日期是按照月份来的。 21年5月。要统计每个月可以收到多少？能帮忙下吗？

robbietu · 发表于 2021-5-10 09:55

本帖最后由 robbietu 于 2021-5-10 09:57 编辑

计算结果都是0？请教哪里有问题？Sub huizong()

Dim i, j, k, m, n, sum, p

sum = 0

i = 3

Do While Cells(i, 2) <> ""
   For j = 5 To 11 Step 2
   k = j - 1
      For m = 17 To 24
      Set p = Cells(i, k)
         If Cells(i, j) = Cells(4, m) Then
         sum = sum + p
            If Cells(i, 2) = "欧元" Then
            Cells(4, m) = sum

            ElseIf Cells(i, 2) = "美元" Then

            Cells(5, m) = sum

            ElseIf Cells(i, 2) = "泰铢" Then
            Cells(6, m) = sum
            End If

         End If

      Next m

   Next j

i = i + 1

Loop

End Sub

A1233515 · 发表于 2021-5-10 10:17

robbietu 发表于 2021-5-10 09:55
计算结果都是0？请教哪里有问题？Sub huizong()

Dim i, j, k, m, n, sum, p

我已经告诉你了，两边的日期对不上
至于为什么，我也不知道。虽然表面上是一样的，但是，你点击一个单元格，看看公式栏里显示的值就知道了

robbietu · 发表于 2021-5-10 12:14

A1233515 发表于 2021-5-10 10:17
我已经告诉你了，两边的日期对不上
至于为什么，我也不知道。虽然表面上是一样的，但是，你点击一个单元 ...

时间已经改过来了，高手帮忙看看？谢谢

hc302949476 · 发表于 2021-6-12 10:50

这个是根据上面代码改了下，不过只能运行一次，并且数据里面全部为0才可以计算，自己试一试吧

		自动登录	找回密码
密码			免费注册