[Μορφοποίηση] Εισαγωγή αριθμού σε κελί

[Tasos]

Καλησπέρα στην παρέα!
Γιώργο μου, νομίζω ότι με τον κώδικα του προηγούμενου μηνύματος μου ελέγχεται πλήρως η κατάσταση.
Δεν επηρεάζει καμία ρύθμιση της εφαρμογής αφού με το κλείσιμο της επαναφέρει τις προηγούμενες ρυθμίσεις που ίσως έχει κάνει ο χρήστης.

Επίσης με το συμβάν Worksheet_SelectionChange() μπορούμε να καθορίσουμε την/τις περιοχές
όπου θα επιτρέπεται η αυτόματη Εισαγωγή Υποδιαστολής.

Για παράδειγμα:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    If Target.Count > 1 Then Exit Sub
'    If Target.Row > 20 Or Target.Row < 5 Then Exit Sub
    Select Case Target.Column
    Case 1, 2, 3, 4
        Application.FixedDecimal = True
    Case Else
        Application.FixedDecimal = False
    End Select
End Sub

Φιλικά

Τάσος