如何用VBA实现金额即时分列？

作者：绿色风分类：时间：2022-08-17 浏览：118

楼主
liuguansky

Q：如何用VBA实现金额即时分列？

如图，在左边输入金额，右边分列显示。
A;用如下代码可以实现：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 8 And IsNumeric(Target.Value) Then
Dim str1$, arr(), k%, i%
str1 = Replace(Format(Target.Value, "0.00"), ".", "")
If str1 = "000" Then str1 = "0"
k = Len(str1)
If k > 12 Then MsgBox "输入数据过大,超出可核算范围。": Exit Sub
ReDim arr(1 To 1, 1 To 12)
For i = 1 To 12
arr(1, i) = Left(Right(" " & str1, 13 - i), 1)
Next i
Cells(Target.Row, "y").Resize(1, 12) = arr
End If
End Sub

桌面.rar

2楼
xmyjk

学习了，谢谢

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表