VBA输入值后按A列指定位数自动保留

王子宇

说明：在B列和C列输入数值时，自动按照A列对应行的小数点位数进行保留。不足的补0加齐。超的直接进1

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 Then
    If T.Column = 2 Or T.Column = 3 Then
        If T.Count > 1 Then End
        If T.Value = "" Then End
        If Not IsNumeric(T.Value) Then End
        For i = 1 To Cells(T.Row, 1)
            If zf = "" Then
                zf = 0
            Else
                zf = zf & "0"
            End If
        Next i
        T.NumberFormatLocal = "0." & zf & "_ "
    End If
End If
End Sub

3190496160

3190496160