[Tasos]

Καλησπέρα σε όλους!

Μπορούμε ακόμα να ρυθμίσουμε προγραμματιστικά (με VBA) την Αυτόματη Εισαγωγή Υποδιαστολής και τις θέσεις της πριν από το τέλος του αριθμού όπως μας υπέδειξε ο Γιώργος.

Έτσι, στον κώδικα του βιβλίου έχουμε:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
    .FixedDecimalPlaces = GetSetting("xlApp", "Settings", "FixedDecimalPlaces", 2)
    .FixedDecimal = GetSetting("xlApp", "Settings", "FixedDecimal", False)
    End With
End Sub

Private Sub Workbook_Open()
    With Application
        SaveSetting "xlApp", "Settings", "FixedDecimalPlaces", .FixedDecimalPlaces
        SaveSetting "xlApp", "Settings", "FixedDecimal", .FixedDecimal
        If .FixedDecimalPlaces <> 2 Then .FixedDecimalPlaces = 2
    End With
End Sub

και στον κώδικα του φύλλου:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.FixedDecimal = Not Intersect(Target, Range("A1:A29")) Is Nothing
End Sub

Θανάση και Γιώργο οι λύσεις σας είναι όπως πάντα μοναδικές!

Να είστε πάντα καλά!

Φιλικά

Τάσος