vba - 自动在小数点分隔符后写入 2 位数字

Question

我有一个有效的代码，但如果可能的话，我想简化它。
当范围内的单元格的值发生变化时，此代码起作用。它检查插入的数据是否为数字，然后自动将其除以 100，因此我不必使用分隔整数和小数的字符，当您要插入数千个数字时，这会产生很大的不同床单。

我的代码是:

Public Sub Worksheet_Change(ByVal Target As Range)
Set Intersecao = Intersect(Target, Range("ENTRANUMEROS"))

If (Not (Intersecao Is Nothing)) And (Not IsEmpty(Intersecao)) Then

    On Error GoTo Fim

    Dim Entrada As Double: Entrada = Intersecao.Value

    Application.EnableEvents = False
    If IsNumeric(Entrada) Then
        Entrada = Entrada / 100
        Intersecao.Value = Entrada
    Else
        MsgBox ("Invalid data.")
        Intersecao.Value = ""
        Intersecao.Select
    End If
    Application.EnableEvents = True

End If

Fim:
End Sub

Answer 1

在 VBA 中，您可以使用它:

Sub TestMe()
    Application.FixedDecimal = True
    Application.FixedDecimalPlaces = 2
End Sub