求助，这些公式如何用VBA事件代码自动实现？

小年玩卡 · 发表于 2018-10-7 20:42

本帖最后由小年玩卡于 2018-10-8 11:35 编辑

触发事件的是A,B列，其他为自动计算
如何把这些公式用代码实现呢？

TIM截图20181007203929.png

模板2.rar (23.8 KB, 下载次数: 6)

补充问题：求助
现在是增加了一列，比如登记了A2和b2数据使用e2的结果，如果是登记A3和c3数据就使用e3结果，
TIM截图20181008112147.png

固定还款日.rar (25.83 KB, 下载次数: 4)

86233524 · 发表于 2018-10-7 21:07

看不懂111111111

hdbk · 发表于 2018-10-7 21:23

Sub caculatebank()
Dim i%, arr
arr = Sheets("sheet1").Range("a1:e7")
For i = 2 To UBound(arr)
If Day(Date) < arr(i, 1) Then
arr(i, 3) = Month(Date) - 1 & "月" & arr(i, 1) & "日"
arr(i, 4) = DateValue(arr(i, 3)) + arr(i, 2)
Else
arr(i, 3) = Month(Date) & "月" & arr(i, 1) & "日"
arr(i, 4) = DateValue(arr(i, 3)) + arr(i, 2)
End If
If arr(i, 4) < Date Then
arr(i, 5) = "--"
ElseIf arr(i, 4) = Date Then
arr(i, 5) = "今天还"
ElseIf arr(i, 4) > Date Then
arr(i, 5) = arr(i, 4) - Date & "天"
End If
Next
Sheets("sheet1").Range("a1:e7") = arr
End Sub

小年玩卡 · 发表于 2018-10-7 22:23

hdbk 发表于 2018-10-7 21:23
Sub caculatebank()
Dim i%, arr
arr = Sheets("sheet1").Range("a1:e7")

感谢，基本是这个效果
再咨询下
第一，这个能否通过事件触犯即时计算，这个只是了解下
第二，上面那个辅助列中的公式能代码实现吗？
第三，代码中能否添加这样功能：因为您这个代码必须是数字都填上了才可以，能否填了几行就计算几行的，不需要设定的每行都要填写呢？
希望能解答下，非常感谢

hdbk · 发表于 2018-10-7 23:17

小年玩卡发表于 2018-10-7 22:23
感谢，基本是这个效果
再咨询下
第一，这个能否通过事件触犯即时计算，这个只是了解下

代码如下：

Sub calbank()
Dim i%, arr
arr = Sheets("sheet1").Range("a1").CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 1) <> "" And arr(i, 2) <> "" Then
If Day(Date) < arr(i, 1) Then
arr(i, 3) = Month(Date) - 1 & "ﾔﾂ" & arr(i, 1) & "ﾈﾕ"
arr(i, 4) = DateValue(arr(i, 3)) + arr(i, 2)
Else
arr(i, 3) = Month(Date) & "ﾔﾂ" & arr(i, 1) & "ﾈﾕ"
arr(i, 4) = DateValue(arr(i, 3)) + arr(i, 2)
End If
If arr(i, 4) < Date Then
arr(i, 5) = "--"
arr(i, 6) = "--"
ElseIf arr(i, 4) = Date Then
arr(i, 5) = "ｽ・ｹ"
arr(i, 6) = arr(i, 4) - Date
ElseIf arr(i, 4) > Date Then
arr(i, 5) = arr(i, 4) - Date & "ﾌ・
arr(i, 6) = arr(i, 4) - Date
End If
End If
Next
Sheets("sheet1").Range("a1").Resize(UBound(arr), 6) = arr
End Sub

hdbk · 发表于 2018-10-7 23:19

在A列和B列你需要的地方输入账单日和免息期，后面会自动计算。

小年玩卡 · 发表于 2018-10-8 09:10

hdbk 发表于 2018-10-7 23:19
在A列和B列你需要的地方输入账单日和免息期，后面会自动计算。

这个附件解压提示没有东西

小年玩卡 · 发表于 2018-10-8 09:13

hdbk 发表于 2018-10-7 23:17
代码如下：

Sub calbank()

谢谢，您好，这个代码提示类型不匹配是什么情况

小年玩卡 · 发表于 2018-10-8 09:54

hdbk 发表于 2018-10-7 23:17
代码如下：

Sub calbank()

哦，我改回来了，可以用了感谢

hdbk · 发表于 2018-10-8 10:36

本帖最后由 hdbk 于 2018-10-8 10:43 编辑

小年玩卡发表于 2018-10-8 09:10
这个附件解压提示没有东西

你再看看。

bank.7z (14.01 KB, 下载次数: 6)

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

[已解决] 求助，这些公式如何用VBA事件代码自动实现？