VBA实操遇到难点。求助大神。

736762641 · 发表于 2018-9-26 14:01

具体问题在文件里

duquancai · 发表于 2018-9-26 14:05

手机上网中，有空给你提供服务。

736762641 · 发表于 2018-9-26 14:25

duquancai 发表于 2018-9-26 14:05
手机上网中，有空给你提供服务。

希望大哥能在百忙之中解决我的问题

朱荣兴 · 发表于 2018-9-26 15:51

提示: 作者被禁止或删除内容自动屏蔽

笑着...两年过去 · 发表于 2018-9-26 15:53

Sub ad()
[g3] = -[b4]
[i3] = [b6]
[j3] = [b5]
[k3] = [b7]
[f3] = [g3] + [i3] + [j3] + [k3]
For i = 0 To [b16]
Cells(i + 3, 4) = i
Cells(i + 3, 5) = Application.EDate([b11], i * 6)
If i > 0 Then Cells(i + 3, 6) = Application.Pmt([b8] / (12 / [b17]), [b16], -[b4], 0, 0)
m = m + Cells(i + 2, 7)
If i > 0 Then
Cells(i + 3, 8) = -m * [b8] / (12 / [b17])
Cells(i + 3, 7) = Cells(i + 3, 6) - Cells(i + 3, 8)
End If
Next
Cells(i + 2, "i") = -[b6]
End Sub

复制代码

736762641 · 发表于 2018-9-26 16:46

笑着...两年过去发表于 2018-9-26 15:53

请问一下m = m + Cells(i + 2, 7)这段的含义是什么？

笑着...两年过去 · 发表于 2018-9-27 08:52

736762641 发表于 2018-9-26 16:46
请问一下m = m + Cells(i + 2, 7)这段的含义是什么？

SUM(.....)

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

[求助] VBA实操遇到难点。求助大神。

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-26 15:51 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报