Ένα έξυπνο παράδειγμα που με κώδικα καθορίζουμε ( μορφοποιούμε ) τα προς καταχώρηση στοιχεία μας υπό συνθήκη π.χ. εφόσον καταχωρούμε αριθμούς μεγαλύτερους από 500 μόνο αυτά τα εμφανίζουμε bold .

 

εισάγουμε ένα νέο module στο οποίο τοποθετούμε τον παρακάτω κώδικα

Sub Auto_Open()
ActiveSheet.OnEntry = "Action"       ' δηλώνουμε όταν γίνεται καταχώρηση να ενεργοποιήται η διαδικασία Action

End Sub

Sub Action()
If IsNumeric(ActiveCell) Then
    ActiveCell.Font.Bold = ActiveCell.Value >= 500       ' εδώ μορφοποιούμε τα καταχωρημένα στοιχεία εφόσον είναι > από 500
End If
End Sub

Sub Auto_Close()
ActiveSheet.OnEntry = ""
End Sub

Μια μορφοποίηση υπο όρους θεωρώ πως θα ήταν πιο απλή λύση...

Έχει δίκιο ο eley8eros όμως ... η συγκεκριμένη πρακτική είναι χρήσιμη όταν σε φόρμα καταχώρησης στοιχείων του (π.χ. Ισολογισμού) ενώ καταχωρείς ποσά βλέπεις τους αριστερά τίτλους bold οπότε είναι περισσότερο φιλικό το περιβάλον στην καταχώρηση των στοιχείων του.

Φυσικά υπάρχουν πολλοί τρόποι για να πετύχεις το ίδιο αποτέλεσμα και με κώδικα και χωρίς.

ας δούμε και ένα σχετικό video

 Καλησπέρα σας και χρόνια πολλά!

 Θα υποστηρίξω και εγώ την πρακτική της μορφοποίησης μέσω VBA

γιατί πιστεύω πως εκτός απο το πλεονέκτημα που ανέφερε ο φίλος Admin

μας απαλλάσει και από την ευθύνη να έχουμε προβλέψει μορφοποίηση υπό όρους

στο ενεργό κελί ειδικά σε περιπτώσεις που δεν ξέρουμε σε ποιό κελί ή φύλλο

θα εμφανιστεί μια τιμή.

 

Δίνω και 'γω μια εναλλακτική λύση η οποία φροντίζει και για τα κελιά η τιμή

των οποίων είναι αποτέλεσμα τύπου.

Εισάγετε τον παρακάτω κώδικα στην λειτουργική μονάδα κώδικα του "ThisWorkbook":

 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Target
        If IsNumeric(.Value) Then
            .Font.Bold = .Value > 500
            Call RefreshFormulaCells(Sh)
        End If
    End With
End Sub

Private Sub RefreshFormulaCells(Sht As Worksheet)
    'Μορφοποίηση των κελιών που περιέχουν τύπους
    'με αριθμητικό αποτέλεσμα
    Dim FormulaCells As Range
    Dim cell As Range
    
    Set FormulaCells = Sht.Cells.SpecialCells(xlCellTypeFormulas)
    Application.ScreenUpdating = False
    For Each cell In FormulaCells.Cells
        With cell
            If IsNumeric(.Value) Then
                .Font.Bold = .Value > 500
            End If
        End With
    Next cell
    Application.ScreenUpdating = True
End Sub