[Μορφοποίηση] αλλαγη στο δευτερο δεκαδικο ψηφιο

[Spirosgr]

ο κώδικας στο φύλλο, συμβάν Change:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
    If Target.Rows.Count > 1 Then Exit Sub
    If Intersect(Target, Columns(1)) Is Nothing Then
        Exit Sub
    Else
        Target = Application.WorksheetFunction.Ceiling(Target, 0.05)
    End If
End Sub

Σημείωση:
Ισχύει για εισαγωγή αριθμών στην στήλη Α.
Χρησιμοποιεί την CEILING σε πολλαπλάσιο 0,05 προς τα επάνω.