余额计算问题

盘尼西林99

因为懒，试着用VBA做了一个记帐簿，在Worksheet的Change事件中写了几行代码，试图达到自动添加公式的功能。但由于水平太低，无法达到自己的设想。自己的目标是：当“收入”或“支出”栏没有数据时，余额栏不显示数据。但试了几种方式均未成功。现发到网上求助。谢谢。
Option Explicit
Rem 2019-4-21
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
    If Target.Row = 2 And Target.Column = 3 And Target.Value <> "" Then
'        Target.Offset(, 5).Formula = "=if(and(f2="",g2=""),"",sum(f$2:f2)-sum(g$2:g2))"    这行公式无法用
        Target.Offset(, 5).Formula = "=sum(f$2:f2)-sum(g$2:g2)"
        Target.Offset(, -1).Formula = "=now()"
        Cells(Target.Row, 1).Formula = "=row()-1"
    ElseIf Target.Row > 2 And Target.Column = 3 And Target.Value <> "" Then
        Target.Offset(-1, 5).Copy Target.Offset(, 5)        '复制上一行公式
        Target.Offset(, -1).Formula = "=now()"
        Cells(Target.Row, 1).Formula = "=row()-1"
    End If
End Sub
唉，附件怎么上传不了？

DevilW

Target.Offset(, 5).Formula = "=if(and(f2="""",g2=""""),"""",sum(f$2:f2)-sum(g$2:g2))"

lsc900707

不要写入公式。上传附件并说明要求吧。

microyip

2楼的写法就是正确的，在字符串里的引号是使用双引号表示的，也就是原来字符串里有双引号时，就需要双双引号，即4个引号。
PS：我印象中，以前好像说过你，叫你不要在VBA里使用公式

盘尼西林99

DevilW 发表于 2019-4-21 23:08
Target.Offset(, 5).Formula = "=if(and(f2="""",g2=""""),"""",sum(f$2:f2)-sum(g$2:g2))"

谢谢指点。引号加引号——常识性的问题没有注意到。

盘尼西林99

microyip 发表于 2019-4-22 07:58
2楼的写法就是正确的，在字符串里的引号是使用双引号表示的，也就是原来字符串里有双引号时，就需要双双引 ...

谢谢指点！谢谢！

盘尼西林99

lsc900707 发表于 2019-4-22 06:51
不要写入公式。上传附件并说明要求吧。

谢谢，谢谢！

vleexhya

lsc900707 发表于 2019-4-22 06:51
不要写入公式。上传附件并说明要求吧。

版主有没有简洁的代码让我们学习呢？

lsc900707

vleexhya 发表于 2019-4-27 11:22
版主有没有简洁的代码让我们学习呢？

target.column=3 是不科学的，修改了一下;

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     r = Target.Row
   
4.     If Target.Column = 7 And Len(Target) Then
   
5.         If r = 2 Then
   
6.             Cells(r, 1) = 1
   
7.             Cells(r, 2) = Date
   
8.             Cells(r, 8) = Cells(r, 6) - Cells(r, 7)
   
9.         ElseIf r > 2 Then
   
10.             Cells(r, 1) = r - 1
    
11.             Cells(r, 2) = Date
    
12.             Cells(r, 8) = Cells(r, 6) - Cells(r, 7) + Cells(r - 1, 8)
    
13.         End If
    
14.     End If
    
15. End Sub

复制代码

zpy2

文件居然有5m,数据只有5行。。。。