如何在 Excel 单元格中自动加分？
How to Automatic points in Excel cell?
我想获得这样的自动积分..我不知道怎么做！！
像这样用两位或三位数字自动加分
当不按点（点）进入时。
63.032
63.032
62.937
62.646
59.693
63.032
62.786
63.130
62.452
63.081
59.988
63.326
您需要的是单元格格式设置选项。
按 CTRL+1 打开单元格格式对话框，然后select以下选项：
如果要自动插入三位小数的小数点，请单击“文件”>“选项”>“高级”，勾选该框并设置数字。
请注意，此设置将应用于您从那时起在所有工作簿中输入的所有数字。
如果只想在工作表的特定范围内添加三位小数，可以使用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
我想获得这样的自动积分..我不知道怎么做！！ 像这样用两位或三位数字自动加分 当不按点（点）进入时。
63.032
63.032
62.937
62.646
59.693
63.032
62.786
63.130
62.452
63.081
59.988
63.326
您需要的是单元格格式设置选项。 按 CTRL+1 打开单元格格式对话框，然后select以下选项：
如果要自动插入三位小数的小数点，请单击“文件”>“选项”>“高级”，勾选该框并设置数字。
请注意，此设置将应用于您从那时起在所有工作簿中输入的所有数字。
如果只想在工作表的特定范围内添加三位小数，可以使用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