如何自动计算

学习vba2023

如何自动计算

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 4 And T.Column = 10 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    If InStr(T.Value, "*") = 0 Then End
    r = T.Row
    rr = Split(T.Value, "*")
    If UBound(rr) = 2 Then
        For j = 0 To UBound(rr)
            Cells(r, j + 3) = rr(j)
        Next j
     ElseIf UBound(rr) < 2 Then
        For j = 0 To UBound(rr)
            Cells(r, j + 3) = rr(j)
        Next j
        Cells(r, 5) = 1
    End If
End If
End Sub

3190496160

3190496160

EH求VBA代码.rar (15.58 KB, 下载次数: 14)

2023-5-6 12:27 上传

点击文件名下载附件

学习vba2023

3190496160 发表于 2023-5-6 12:27

你好，老师！
只是完成了第1步分配。但每输入1次数据的同行金额与最后的总金额没有同步算出来。
期望效果是每输入一次同步计算出值，不用另外用公式计算。

3190496160

学习vba2023 发表于 2023-5-6 13:35
你好，老师！
只是完成了第1步分配。但每输入1次数据的同行金额与最后的总金额没有同步算出来。
期望效 ...

一楼并没有说明不需要公式，而你目前的表格中已经有公式，也就没有写计算的代码了，
其实，完全没有必要把目前的公式换成代码的

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 4 And T.Column = 10 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    If InStr(T.Value, "*") = 0 Then End
    r = T.Row
    rr = Split(T.Value, "*")
    If UBound(rr) = 2 Then
        For j = 0 To UBound(rr)
            Cells(r, j + 3) = rr(j)
        Next j
     ElseIf UBound(rr) < 2 Then
        For j = 0 To UBound(rr)
            Cells(r, j + 3) = rr(j)
        Next j
        Cells(r, 5) = 1
    End If
End If
If T.Row > 4 And T.Column = 6 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    r = T.Row
    If Cells(r, 3) <> "" And Cells(r, 5) <> "" Then
        Cells(r, 7) = Cells(r, 3) * Cells(r, 5) * T.Value
        [h20] = Application.Sum(Range("g5:g19"))
    End If
End If
End Sub

3190496160

EH求VBA代码.rar (15.56 KB, 下载次数: 8)

2023-5-6 15:14 上传

点击文件名下载附件

3190496160

EH求VBA代码.rar (15.56 KB, 下载次数: 7)

2023-5-6 15:23 上传

点击文件名下载附件

学习vba2023

3190496160 发表于 2023-5-6 15:23

你好老师，价格栏金额还是没有计算出来哦。