如何通过VBA事件代码实现这些公式的自动计算！

hdbk · 发表于 2018-10-9 14:15

我这边可以正常运行啊，哪里数据类型不匹配?

小年玩卡 · 发表于 2018-10-9 14:24

hdbk 发表于 2018-10-9 14:15
我这边可以正常运行啊，哪里数据类型不匹配?

我这里一打开就是如此，arr(i, 9) = DateValue(arr(i, 8)) - Date & "天"这段就显示黄色，我也不知道情况

小年玩卡 · 发表于 2018-10-9 14:39

hdbk 发表于 2018-10-9 14:15
我这边可以正常运行啊，哪里数据类型不匹配?

谢谢，还真是见鬼，我用另一台电脑就没事，难道电脑问题？

小年玩卡 · 发表于 2018-10-9 15:16

hdbk 发表于 2018-10-9 14:15
我这边可以正常运行啊，哪里数据类型不匹配?

好像输入当天的日期就不行了，比如今天输入9就没用了其他日期好像都没问题

hdbk · 发表于 2018-10-9 15:34

你要说清楚啊，前面你公式始终都是如果日期早于或者迟于输入的账单日，没有说明是今天，如果账单日是今天，算10月9号还是9月9号呢？逻辑条件你要讲清楚啊。

小年玩卡 · 发表于 2018-10-9 17:12

hdbk 发表于 2018-10-9 15:34
你要说清楚啊，前面你公式始终都是如果日期早于或者迟于输入的账单日，没有说明是今天，如果账单日是今天， ...

我以为有公式在不需要再描述，这个还有点不好描述，因为这个东西不太好解释，只是之前的函数公式是没错的。就单填9号的话，出账日肯定是当月的9号

hdbk · 发表于 2018-10-9 18:45

小年玩卡发表于 2018-10-9 17:12
我以为有公式在不需要再描述，这个还有点不好描述，因为这个东西不太好解释，只是之前的函数公式是没错的 ...

再看看这个是否符合要求？

bank.zip (16.03 KB, 下载次数: 26)

YZC51 · 发表于 2018-10-9 21:10

请参考

bank.rar (16.31 KB, 下载次数: 38)

YZC51 · 发表于 2018-10-10 08:09

更新，请参考
Sub calbank()
Dim i&, arr, x&
x = Sheets("sheet1").Range("d1048576").End(xlUp).Row
arr = Sheets("sheet1").Range("a1:H" & x)
For i = 2 To UBound(arr)
      If Len(arr(i, 4)) = 0 Then Exit Sub
      If Day(Date) <= arr(i, 4) Then x = 1
      arr(i, 7) = DateSerial(2018, Month(Date) - x, arr(i, 4))
      If Len(arr(i, 5)) > 0 Then
         arr(i, 8) = DateSerial(2018, Month(Date), arr(i, 5))
      Else
         arr(i, 8) = DateValue(arr(i, 7)) + arr(i, 6)
      End If
Next
Sheets("sheet1").Range("a1").Resize(UBound(arr), 8) = arr
End Sub

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

[求助] 如何通过VBA事件代码实现这些公式的自动计算！