Μετάβαση στο κύριο περιεχόμενο

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

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

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


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

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

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

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

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

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


Μετρήστε ανά χρώμα

Σε ορισμένες περιπτώσεις, μπορεί να έχετε μια σειρά από calues ​​με πολλά χρώματα και αυτό που θέλετε είναι να μετρήσετε / αθροίσετε τιμές με βάση το ίδιο χρώμα, πώς μπορείτε να υπολογίσετε γρήγορα;
Με Kutools για Excel's Μετρήστε ανά χρώμα, μπορείτε να κάνετε γρήγορα πολλούς υπολογισμούς ανά χρώμα και επίσης να δημιουργήσετε μια αναφορά για το υπολογισμένο αποτέλεσμα.
αριθμός εγγράφων ανά χρώμα

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello, I would like to keep the format of my reference cell. However, even with your VBA it doesn't work. Can you help me please?
I would like my B2 cell of my sheet 1 to be my reference cell for my C2 cells of sheets 2,3,4,5,6,7.
My document is a list of people, therefore I will have several cells of references not the continuation.
Thanks in advance
This comment was minimized by the moderator on the site
No tienes uno que sea dentro del mismo archivo
This comment was minimized by the moderator on the site
Thanks for sharing this. I have a range of cells in WorksheetA, Sheet1, Range G3:G3000 that I want to reference in WorksheetB, Sheet1, Range G3:G3000. I need WorksheetB, Sheet1, Range G3:G3000 to display both the value and the format of the referenced cells in WorksheetA, Sheet1, G3:G3000. Is there a VBA script that will allow for this?
This comment was minimized by the moderator on the site
Thanks for sharing this. Is there a VBA script that allows for referencing a range of cells in one workbook and then displaying the value and format of the referenced cells in a different workbook?
This comment was minimized by the moderator on the site
Thank you so much for the script. Can you tell me if there is a way for the linked cell to update without having to double click on the reference cell? Thank you!
This comment was minimized by the moderator on the site
hello, I believe this may be just what I am looking for. I need the referenced text to have the same colors and features from the referenced page. The only thing different about mine is that I am pulling from a larger range. I have never used VBA before so I wanted to confirm before I did changes. I am pulling from a document (sheet 2) onto (sheet 1) document. I have used IF formulas to do this, so it returns a value from 3 different columns and they are not in a row. The columns are F,H,J. Could you please help me figure out how I can make this work?
This comment was minimized by the moderator on the site
I am dealing with similar issue. I have a formula in column C, which takes value from the same row, column A. (But only IF B3 is not x AND A3 is not empty):

=IF(B3="x";"y";IF(A3="";"z";A3))

Cells of column A look like this: OK 2019_12_03
But "OK" is in bold format. I would like to keep this format.
I want this for hundreds of cells, so clicking or writing a script for each one of them is undesirable. Any ideas if such feature exists? I'd appreciate some kind of "WITHFORMAT()" function that I could put in the formula, so the following formula would keep the original format:

=IF(B3="x";"y";IF(A3="";"z";WITHFORMAT(A3)))
This comment was minimized by the moderator on the site
Sorry, your problem is a bit complex, I do not understand clearly.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations