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

vse3679

我在EXCEL表中已经分好了千百十元角分的单元格，我希望我输入1234的时候，能自动把1填入千的那一列格子下，2自动填入百的那一列格子下这样的，我上传了效果图，我想像效果图那样，当我输入金额的时候单元格就像变成合并在一起一样，然后移动到其他单元格的时候单元格会自动分开，并且会把数字自动分到元角分的单元格下，不知道EXCEL表可不可以这样做。

solextrade

I7输入数值，J7 右拖：=LEFT(RIGHT(" "&$I7/1%,11-COLUMN(A1)))

vse3679

solextrade 发表于 2020-3-17 12:06
I7输入数值，J7 右拖：=LEFT(RIGHT(" "&$I7/1%,11-COLUMN(A1)))

我上传了效果图，我想变成图上的那样，输入34.5的时候单元格像合并成一起那样，然后我移动到其他单元格他会自动把数字分别填入元角分的格子下面

3312477731

你要在附件中加入一个示例，再把计算逻辑，要求说清楚。

micch

没看到演示，只是一个图片。如果是单元格输入数字，结果自动分列。那应该需要代码来完成，函数是需要有一个数据源输入数据，然后在结果区域写公式得到结果。至少涉及两个不同的单元格

vse3679

3312477731 发表于 2020-3-17 14:04
你要在附件中加入一个示例，再把计算逻辑，要求说清楚。

我上面不是说了想按效果图中那样，效果图中金额栏下面不是有元角分么，元角分下面的那一栏输入34.5的时候格子不是会像合并在一起那样么？然后移动到其他格子的时候会自动把34.5分别列入十、元、角的那一列下面，我就也想要这个效果

vse3679

micch 发表于 2020-3-17 14:10
没看到演示，只是一个图片。如果是单元格输入数字，结果自动分列。那应该需要代码来完成，函数是需要有一个 ...

我想要的就是你说的单元格输入数字，结果自动分列。。我不知道这需要代码，看来我问错的版块了。。。，但我也不知道代码的问题要在哪个版块问。

micch

vse3679 发表于 2020-3-17 14:25
我想要的就是你说的单元格输入数字，结果自动分列。。我不知道这需要代码，看来我问错的版块了。。。 ...

VBA开发

需要写个工作表事件

你需要了解一些代码使用的基础

micch

大概是这么个意思吧？我代码写不好，你可以在VBA开发求助，看看其他老师写的代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column > 9 And Target.Column < 21 And Target.Count = 1 And IsNumeric(Target.Value) Then
   
3.         x = Round(Target(1).Value * 100)
   
4.         Dim ar(1 To 11)
   
5.         For i = 1 To 11
   
6.             ar(12 - i) = Left(Right(" $" & x, i), 1)
   
7.         Next
   
8.         Cells(Target.Row, 10).Resize(, 11) = ar
   
9.     End If
   
10. End Sub
    

复制代码

vse3679

micch 发表于 2020-3-17 15:07
大概是这么个意思吧？我代码写不好，你可以在VBA开发求助，看看其他老师写的代码

哇，就是这个意思。但我不会根据我那张表格变更代码。