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

vse3679

我想要像效果图中那样，在已经分好的十、元、角、分的那几列下面可以直接输入数字，然后当我移动到其他单元格的时候会自动把数字分列排布在正确的元、角、分下，就像效果图中那样，输入34.5，移开后会自动把3填入十下面，4填入元下面，5填入角下面，还会自动在分下面填入一个0。                样式中是已经排版好的表格，我希望收入、发出和结存的金额的下面都能那样做，希望能直接根据那张表格填写宏，谢谢了

taller

可以大致模拟一下效果，对于输入内容，只判断是否为数字，是否符合金额的要求，请自行判断

样式.7z (21.45 KB, 下载次数: 38)

2020-3-18 02:18 上传

点击文件名下载附件

taller

taller

参考代码

1. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     If KeyCode = 13 Then
   
3.         ActiveCell = TextBox1.Text
   
4.         TextBox1.Visible = False
   
5.     End If
   
6.    
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
10.     c = ""
    
11.     Set rng1 = Application.Union(Range("ShouRu"), Target)
    
12.     Set rng2 = Application.Union(Range("FaChu"), Target)
    
13.     Set rng3 = Application.Union(Range("JieCun"), Target)
    
14.     If Not rng1 Is Nothing Then
    
15.         c = "J"
    
16.     ElseIf Not rng2 Is Nothing Then
    
17.         c = "V"
    
18.     ElseIf Not rng3 Is Nothing Then
    
19.         c = "AH"
    
20.     End If
    
21.     If Len(c) > 0 Then
    
22.         Application.EnableEvents = False
    
23.          Cells(Target.Row, c).Select
    
24.         With Sheet1.TextBox1
    
25.             .Top = ActiveCell.Top
    
26.             .Left = ActiveCell.Left
    
27.             .Text = ""
    
28.             .Activate
    
29.             .Visible = True
    
30.         End With
    
31.         Application.EnableEvents = True
    
32.     End If
    
33. End Sub
    

复制代码

YZC51

请参考
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 7 And Target.Row < 33 And Target.Column = 8 Then
        If Len(Target) Then
            je = Round(Target * Target(1, 2), 2) * 100
            jew = Len(je): myr = Target.Row
            For i = 0 To 9
            If i = jew Then Exit For
            Cells(myr, 19 - i) = Mid(je, jew - i, 1)
            Next
        End If
    End If
End Sub

renkangjizhen

1.用len函数确定数字位数，用find找出“.”所在数字中的位置
2.用mid函数分别提取一位数字填入对应单元格（如果值为点时跳空）
3.在个位数所在单元格值后加“.”

YZC51

请参考！！
样式-金额.rar (49.4 KB, 下载次数: 79)

2020-3-19 09:15 上传

点击文件名下载附件

YZC51

Dim c As String, r As Long

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        ActiveCell = TextBox1.Text
        TextBox1.Visible = False
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 8 Or Target.Column <> 20 Or Target.Column <> 32 Then TextBox1.Visible = False
    If Target.Row < 8 Or Target.Row > 32 Then Exit Sub
    c = ""
    If Target.Column = 8 Then
        c = "H"
    ElseIf Target.Column = 20 Then
        c = "T"
    ElseIf Target.Column = 32 Then
        c = "AF"
    End If
    If Len(c) > 0 Then
        Application.EnableEvents = False
        Cells(Target.Row, c).Select
        With Sheet1.TextBox1
            .Top = ActiveCell.Top
            .Left = ActiveCell.Left
            .Text = ""
            .Activate
            .Visible = True
        End With
        Application.EnableEvents = True
    End If
End Sub

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
    c = ""
    If Target.Column = 8 Then
        n = 8
    ElseIf Target.Column = 20 Then
        n = 20
    ElseIf Target.Column = 32 Then
        n = 32
    End If
    If Target.Column > 7 And Target.Column < 33 And IsNumeric(Target.Value) Then
        x = Round(Target(1).Value * 100): y = Len(x)
        Cells(Target.Row, n).Resize(, 11) = ""
        If x = 0 Then Cells(Target.Row, n).Resize(, 11) = "": Exit Sub
        Dim ar(1 To 11)
        For i = 1 To y
            ar(i) = Mid(x, i, 1)
        Next
        Cells(Target.Row, n + 10 - y).Resize(, y) = ar
    End If
End Sub

wowo000

YZC51老师：可否延伸一下，即第八行的“结存金额加（+）”第九行的“收入金额”减（-）第九行的“发出金额”等于（=）第九行的“结存金额”；
第九行的“结存金额加（+）”第十行的“收入金额”减（-）第十行的“发出金额”等于（=）第十行的“结存金额”，……以此类推，自动计算？？恳请完善，谢谢！！！仅在“结存”项目用VBA代码计算。

YZC51

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

您好！不明白请教下

收入金额 相当于 借
发出金额 相当于 贷