[Μορφοποίηση] Μορφοποίηση σε νόμισμα

[Tasos]

Καλησπέρα Γιώργο!

Υπάρχει μια επιλογή (σε επίπεδο εφαρμογής όμως) που κάνει ακριβώς αυτό που ζητάς.

Πήγαινε στις επιλογές του Excel > Για προχωρημένους και τσέκαρε το πλαίσιο ελέγχου με την ετικέτα: Αυτόματη εισαγωγή υποδιαστολής.

Προσοχή! Η επιλογή της Αυτόματης εισαγωγής υποδιαστολής ισχύει για όλα βιβλία που θα ανοιχτούν.

Μια άλλη λύση θα ήταν η χρήση κώδικα VBA με την προϋπόθεση ότι οι μακροεντολές στην εφαρμογή θα πρέπει να είναι ενεργοποιημένες.

Επίσης η λύση με VBA ακυρώνει τη δυνατότητα αναίρεσης ενεργειών του βιβλίου εργασίας.

Αν καταλήξεις ότι θέλεις να χρησιμοποιήσεις VBA τότε κάνε δεξί κλικ στην καρτέλα του φύλλου που σε ενδιαφέρει και επίλεξε "Προβολή κώδικα".

Στο παράθυρο που θα εμφανιστεί επικόλλησε τον παρακάτω κώδικα:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row < 1 Then Exit Sub
    If IsNumeric(Target.Value) Then
        Select Case Target.Column
        'Προσάρμοσε παρακάτω τα νούμερα των στηλών
        'όπου θα εφαρμόζεται η εισαγωγή υποδιαστολής.
            Case 2, 3, 4, 5, 6, 7  '<---τα νούμερα των στηλών
                Application.EnableEvents = False
                Target.Value = Target.Value / 100
                Application.EnableEvents = True
        End Select
    End If
End Sub

Ο κώδικας αυτός τρέχει αυτόματα κάθε φορά που θα αλλάξει η τιμή ενός κελιού στις
στήλες 2, 3, 4, 5, 6, 7 και μετά την πρώτη γραμμή.

Μπορείς να προσθέσεις ή να αφαιρέσεις νούμερα στηλών στον κώδικα διατηρώντας πάντα την σύνταξη όπως φαίνεται παραπάνω.

Μορφοποίησε τις στήλες με μορφή αριθμού "νομισματική μονάδα"
.
Καλή συνέχεια!

Τάσος