v代码求助

xuflower

本人想用VBA代码完成表格中的工作，请各位大神帮帮我
1、租金标准填入后，自动计算月租金，月租金为：D*E=F列
2、H列如果有其它费用G列填入后自动相加F列的值，如果没有，等于F列内金额（H=G+H)
3、F、H、I列填写完成后，J列自动填入收费日期

lsc900707

用工作表事件处理。

chentonny

你这个简单的问题用公式就可以实现

xuflower

lsc900707 发表于 2018-6-19 15:45
用工作表事件处理。

能帮我处理一下吗？V代码不熟，麻烦啦

xuflower

chentonny 发表于 2018-6-19 17:09
你这个简单的问题用公式就可以实现

V代码不熟，麻烦你帮我处理一下，而且公式怕使用的人误删就不能正常使用啦

lsc900707

xuflower 发表于 2018-6-20 11:09
能帮我处理一下吗？V代码不熟，麻烦啦

其它费用先填写再填写租金标准列：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 5 And Target.Row > 2 Then
   
3.         Target.Offset(, 1) = Target.Value * Target.Offset(, -1)
   
4.         Target.Offset(, 3) = Target.Offset(, 1) + Target.Offset(, 2)
   
5.         Target.Offset(, 5) = Date
   
6.     End If
   
7. End Sub

复制代码

lsc900707

xuflower 发表于 2018-6-20 11:09
能帮我处理一下吗？V代码不熟，麻烦啦

效果请自行测试：

xuflower

lsc900707 发表于 2018-6-20 11:28
其它费用先填写再填写租金标准列：

自动计算和日期实现啦，H列如果有其它费用G列填入后自动相加F列的值（H=G+H)这个没有体现，不会相加哦，如果E列删除，其他列包括日期可以也自动清除吗？谢谢你的回帖

lsc900707

xuflower 发表于 2018-6-21 11:13
自动计算和日期实现啦，H列如果有其它费用G列填入后自动相加F列的值（H=G+H)这个没有体现，不会相加哦， ...

没看说明的吗？
一开始就要把要求说具体，不要挤牙膏似的。

lsc900707

xuflower 发表于 2018-6-21 11:13
自动计算和日期实现啦，H列如果有其它费用G列填入后自动相加F列的值（H=G+H)这个没有体现，不会相加哦， ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 5 And Target.Row > 2 Then
   
3.         If Len(Target.Value) Then
   
4.             If Len(Target.Offset(, 2)) Then
   
5.                 Target.Offset(, 1) = Target.Value * Target.Offset(, -1)
   
6.                 Target.Offset(, 3) = Target.Offset(, 1) + Target.Offset(, 2)
   
7.                 Target.Offset(, 5) = Date
   
8.             Else
   
9.                 Target.Offset(, 1) = Target.Value * Target.Offset(, -1)
   
10.                 Target.Offset(, 3) = Target.Offset(, 1)
    
11.                 Target.Offset(, 5) = Date
    
12.             End If
    
13.         Else
    
14.             Target.Offset(, 1) = ""
    
15.             Target.Offset(, 3) = ""
    
16.             Target.Offset(, 5) = ""
    
17.         End If
    
18.     End If
    
19. End Sub

复制代码