Πώς να διατηρήσετε τη μορφοποίηση κελιού ενώ αναφέρετε άλλα κελιά φύλλων;

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

Διατηρήστε τη μορφοποίηση κελιού ενώ αναφέρετε ένα άλλο κελί με VBA

Διατηρήστε τη μορφοποίηση κελιού ενώ αναφέρετε ένα άλλο κελί με VBA

Για να χειριστείτε αυτήν την εργασία, απλά πρέπει να εκτελέσετε τον παρακάτω κώδικα

1. Ενεργοποιήστε το βιβλίο εργασίας που χρησιμοποιείτε, πατήστε Alt + F11 κλειδί για ενεργοποίηση Microsoft Visual Basic για εφαρμογή παράθυρο και κάντε διπλό κλικ στο όνομα του φύλλου στο οποίο θα τοποθετήσετε το κελί αναφοράς Έργο-VBAProject παράθυρο για να εμφανιστεί ένα κενό σενάριο. Σε αυτήν την περίπτωση, θέλω να αναφερθώ στο κελί A1 στο Sheet1. Δείτε το στιγμιότυπο οθόνης:

2. Επικολλήστε τον παρακάτω κώδικα στο σενάριο και στον κώδικα VBA, καθορίστε τις αναφορές κελιού όπως χρειάζεστε.

VBA: Συνεχίστε τη μορφοποίηση και τις τιμές κατά την αναφορά σε άλλο κελί

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

Σημείωση: A1 είναι το κελί αναφοράς, B1 in Φύλλο 2 είναι το κελί που θέλετε να συνδέσετε με το κελί αναφοράς και να διατηρήσετε τις τιμές και τη μορφοποίηση με το A1 στο Shee1.

Στη συνέχεια, όταν αλλάξετε τις τιμές ή τη μορφοποίηση στο κελί A1 στο Sheet1, το κελί B1 στο Sheet2 θα αλλάξει κάνοντας κλικ στο κελί αναφοράς δύο φορές.