怎么把填入的数字自动分入已经分好的元角分单元格

YZC51

wowo000 发表于 2020-3-19 09:24
YZC51老师：可否延伸一下，即第八行的“结存金额加（+）”第九行的“收入金额”减（-）第九行的“发出金额 ...

请参考
Dim n, r As Long, myr

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row < 8 Or Target.Row > 32 Then Exit Sub
    myr = Target.Row
    If Target.Column = 6 Or Target.Column = 7 Then
        n = 8: x1 = Cells(myr, 6) * Cells(myr, 7): fl x1
        xx1 = Cells(myr, 30) * Cells(myr, 31)
        jine xx1
    ElseIf Target.Column = 18 Or Target.Column = 19 Then
        n = 20: x2 = Cells(myr, 18) * Cells(myr, 19): fl x2
        xx2 = Cells(myr, 30) * Cells(myr, 31)
        jine xx2
    End If
End Sub

Public Sub fl(x)
    If x = 0 Then Exit Sub
    Dim ar(1 To 11)
    x = Round(x * 100)
    For i = 1 To 10
        ar(11 - i) = Left(Right(" " & x, i), 1)
    Next
    Cells(myr, n).Resize(, 10) = ar
End Sub

Public Sub jine(xx)
    If xx = 0 Then Exit Sub
    Dim ar(1 To 11)
    xx = Round(xx * 100)
    For i = 1 To 10
        ar(11 - i) = Left(Right(" " & xx, i), 1)
    Next
    Cells(myr, 32).Resize(, 10) = ar
End Sub

wowo000

尊敬的YZC51老师：好像不行。俺的意思就是“借贷”计算，可以不？比如：前面结存金额200块，接下来收入（借方）金额30块，发出（贷方）金额130块，那么当前结存金额为100块钱（计算完后，这100分列到百十元角分之单元格里去）。……以此类推，恳请回复，谢谢了！！！也就是先计算后分散到相应的格子里去。

wowo000

尊敬的YZC51老师：这个意思[img][/img]

YZC51

是这样吗？

wowo000

是的。借方和贷方的金额用控件TextBox1录入，结存的数量和金额都用VBA代码自动计算填入。

YZC51

wowo000 发表于 2020-3-19 14:35
是的。借方和贷方的金额用控件TextBox1录入，结存的数量和金额都用VBA代码自动计算填入。

那前面的数量和单价就没有不用了！？

YZC51

请参考图片

wowo000

尊敬的YZC51老师：都要，就借方和贷方的金额用控件TextBox1录入，结存的数量和金额都用VBA代码自动计算填入。“数量”列手工录入，

wowo000

尊敬的YZC51老师：都要，就借方和贷方的金额仅用控件TextBox1录入，结存的数量和金额都用VBA代码自动计算填入，“数量”列手工录入。也就是说“结存”项目下的数量、单价、金额都用VBA代码自动计算填入，原本表格的样式啥不变。先谢谢你！！

YZC51

wowo000 发表于 2020-3-19 17:30
尊敬的YZC51老师：都要，就借方和贷方的金额仅用控件TextBox1录入，结存的数量和金额都用VBA代码自动计算填 ...

结存的单价按收入的单价，还是发出的单价计算！