我想得到像这样的自动点..我不知道怎么做! 用这样的两个或三个数字自动添加点数 当没有按下点(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
答案 0 :(得分:1)
如果要自动插入带小数点后三位的小数点,请单击文件>选项>高级,勾选方框并设置数字。
请注意,此设置将适用于您从那时起在所有工作簿中输入的所有数字。
如果您只想在工作表的特定范围内添加三位小数,则可以使用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
答案 1 :(得分:0)