我想得到这样的自动积分..。我不知道怎么做!!在没有按下点(Dot)的情况下,用以下两位或三位数字自动添加点。
63.032
63.032
62.937
62.646
59.693
63.032
62.786
63.130
62.452
63.081
59.988
63.326
发布于 2016-04-18 08:52:48
如果要自动插入带有三个小数的小数点,请单击“文件”>“选项”>“高级”,勾选框并设置数字。
请注意,此设置随后将应用于从那时起在所有工作簿中输入的所有数字。
如果只想在工作表的特定范围内添加三个小数,则可以使用Worksheet_Change事件。下面的代码将监视A列中的所有单元格。如果输入一个整数(一个没有十进制的数字),则该宏将该值除以1000,这实际上设置了一个小数点和三个小数位数。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
For Each cel In Target
If cel.Value = Int(cel.Value) Then cel.Value = cel.Value / 1000
Next cel
Application.EnableEvents = True
End If
End Sub
发布于 2016-04-18 08:41:05
您需要的是单元格格式选项。按CTRL+1打开单元格格式对话框,并选择以下选项:
https://stackoverflow.com/questions/36689005
复制相似问题