[已解决]国际难题（对我来说）

rewfs521

遇到个问题。
上表 Book2.rar (3.05 KB, 下载次数: 14)

2011-5-6 16:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qinqh_yl

2011-5-6 16:28

回复 rewfs521 的帖子

用VB解决：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 2 And Target.Column = 1 And Target <> "" Then
    Range("H2").Formula = "=LOOKUP(A2,Sheet2!H2:H8,Sheet2!I2:I8)"
    End If
End Sub

跳转到最佳答案楼层

那么的帅

回复 rewfs521 的帖子

加2列，1列输入扣款的本金（如果有的话），另一列计算一下扣款小计
扣款金额.rar (3.41 KB, 下载次数: 2)

2011-5-6 16:14 上传

点击文件名下载附件

徐淑颖

{:091:}意思好像没有很明白！

rewfs521

意思很简单呀！ 假如规定扣划金额是5000元，但这个月张三想归还本金20000元！便需要在扣划金额那一栏输入金额，但如果输入的话，那一栏的公式便要发生变化！ 能就依照我给的表格进行设置函数或者vba吗？ 本金+利息应该为客户所付出的金额！

qinqh_yl

回复 rewfs521 的帖子

用VB解决：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 2 And Target.Column = 1 And Target <> "" Then
    Range("H2").Formula = "=LOOKUP(A2,Sheet2!H2:H8,Sheet2!I2:I8)"
    End If
End Sub

徐淑颖

不太懂是什么意思，我不是做这行的；最好能弄个简单的例子，{:011:}

rewfs521

回复 qinqh_yl 的帖子

大哥你太天才了！   实在是太。。。。。。
你能给我解释下这个VBA吗？我想运用到其他地方

Tristone

原来是这样啊，恍然大悟~~