财会：VBA自动拆分金额到指定单元格

Excel2119

财会：VBA自动拆分金额到指定单元格



代码如下：

1. Private Sub Worksheet_Change(ByVal Target As Range) '成功：VBA自动拆分金额到指定单元格
   
2.     Dim m As Integer, n As String
   
3.     If Target.Count > 2 Then Exit Sub
   
4.     If Target.Column = 3 Then
   
5. '        Application.ScreenUpdating = False
   
6.         Target = Round(Val(Target), 2)
   
7.         Target.Offset(, 1).Resize(1, 11).ClearContents '【亿千百十万千百十元角分】共11列
   
8.         n = Target * 100
   
9.         For m = 1 To Len(n)
   
10.             Target.Offset(, 11 - m + 1) = Mid(n, Len(n) - m + 1, 1)
    
11.         Next
    
12.     End If
    
13. End Sub

复制代码

原文件：
【2024-2-6ExcelHome发贴】VBA自动拆分金额到指定单元格.rar (17.94 KB, 下载次数: 51)

2024-2-6 17:19 上传

点击文件名下载附件

blackttea1

谢谢分享， 建议  n = "￥" & Target * 100，可能更符合财务要求。

Excel2119

blackttea1 发表于 2024-2-7 09:40
谢谢分享， 建议  n = "￥" & Target * 100，可能更符合财务要求。

细节很重要，谢谢提醒啊

cai2532

学习了，不错。

Excel2119

blackttea1 发表于 2024-2-7 09:40
谢谢分享， 建议  n = "￥" & Target * 100，可能更符合财务要求。

'得判断一下
        If Len(Target * 100) >= 11 Then
            n = Target * 100
        Else
            n = ChrW(165) & Target * 100'"￥"用ChrW(165)
        End If