|
- 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"), ".", "")
- 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
(14.71 KB, 下载次数: 9)
|
评分
-
查看全部评分
|