Note: The other languages of the website are Google-translated. Back to English

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

Κανονικά, χρησιμοποιούμε τον τύπο = A1 για να αναφέρουμε το κελί A1 σε άλλο κελί στο φύλλο εργασίας. Αλλά αυτό μπορεί να αναφέρει μόνο την τιμή κελιού. Αν θέλετε να αναφέρετε την τιμή κελιού καθώς και τη μορφή της, πρέπει να δοκιμάσετε μια άλλη μέθοδο. Αυτό το άρθρο παρέχει δύο μεθόδους για να το επιτύχετε.

Μορφή αναφοράς και τιμή από άλλο κελί με επικόλληση συνδεδεμένης εικόνας
Αυτόματη μορφή αναφοράς και τιμή από άλλο κελί με VBA


Μορφή αναφοράς και τιμή από άλλο κελί με επικόλληση συνδεδεμένης εικόνας

Ας υποθέσουμε ότι θέλετε να αναφέρετε τη μορφή και την τιμή από το κελί A1, κάντε τα εξής για να το ολοκληρώσετε.

1. Επιλέξτε το κελί (A1) που πρέπει να αναφέρετε και, στη συνέχεια, αντιγράψτε το πατώντας Ctrl + C κλειδιά.

2. Μεταβείτε στο κελί που θέλετε να συνδέσετε το κελί αναφοράς, κάντε δεξί κλικ και επιλέξτε > Ειδική επικόλληση > Συνδεδεμένη εικόνα. Δείτε το στιγμιότυπο οθόνης:

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


Αυτόματη μορφή αναφοράς και τιμή από άλλο κελί με VBA

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

1. Κάντε δεξί κλικ στην καρτέλα φύλλων που περιέχει το κελί που πρέπει να αναφέρετε και, στη συνέχεια, κάντε κλικ στο Προβολή κωδικού από το μενού με δεξί κλικ.

2. Στο αναδυόμενο παράθυρο Microsoft Visual για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Μορφή αναφοράς και τιμή από άλλο κελί

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

Note: Στον κώδικα, το Sheet1 είναι το όνομα φύλλου που περιέχει το κελί που πρέπει να αναφέρετε τόσο στην τιμή όσο και στη μορφή. A1 και E2 σημαίνει ότι το κελί A1 θα αναφέρεται αυτόματα στο κελί E2.

Από τώρα και στο εξής, όταν αλλάζει η τιμή στο κελί A1 του Φύλλου1, η τιμή και η μορφή του θα αναφέρονται αμέσως στο κελί E2.


Σχετικά Άρθρα:

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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (9)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Πολύ κουλ!! Υπάρχει τρόπος να γίνει η πρώτη επιλογή στα Υπολογιστικά φύλλα Google;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Julian,
Λυπούμαστε που δεν δοκιμάσαμε στα φύλλα Google. Ευχαριστώ για το σχόλιο σου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το κάνω αυτό εάν θέλω να αντιγράψω σε διαφορετικό φύλλο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Lil,
Εάν χρειάζεται να αντιγράψετε σε διαφορετικό φύλλο, εφαρμόστε τον παρακάτω κώδικα VBA. Το Sheet1 είναι το αρχικό φύλλο εργασίας, το Sheet3 είναι το φύλλο εργασίας προορισμού. Αλλάξτε τα ανάλογα με τις ανάγκες σας.

Ιδιωτικό δευτερεύον φύλλο εργασίας_Αλλαγή (ByVal Target As Excel.Range)
Με φύλλα εργασίας ("Φύλλο1")
Αν .Range("A5").Value2 <> "" Τότε
On Error Συνέχιση Επόμενη
Εύρος ("A5"). Αντιγραφή (Φύλλα εργασίας ("Φύλλο3"). Εύρος ("E2"))
End If
Τέλος με
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς να εκτελέσετε αυτόν τον κώδικα στο excel; Χρειάζεται να εκτελεστεί και στα δύο φύλλα εργασίας; Μπορεί να είναι συγκεκριμένο, όπως βήμα-βήμα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Jesse, Γεια, όπως ανέφερε ο παραπάνω κωδικός, απλά πρέπει να συμπληρώσετε τον κωδικό στο παράθυρο Κωδικός του αρχικού φύλλου εργασίας, όταν αλλάζετε την τιμή του κελιού στο αρχικό φύλλο εργασίας (Α5 στο Φύλλο1 σε αυτήν την περίπτωση), ο κωδικός θα εκτελείται αυτόματα. Και το κελί Α5 στο Φύλλο1 θα αντιγραφεί στο Ε2 στο Φύλλο3.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το Hello έκανε τον παρακάτω κώδικα αλλά δεν λειτούργησε
Ιδιωτικό δευτερεύον φύλλο εργασίας_Αλλαγή (ByVal Target As Excel.Range)
Με φύλλα εργασίας ("Σύνοψη Ανταγωνιστικής Ανάλυσης")
Αν .Range("BI7").Value2 <> "" Τότε
On Error Συνέχιση Επόμενη
Εύρος ("BI7"). Αντιγραφή (Φύλλα εργασίας ("Σε προβολή σε βάθος - ADP"). Εύρος ("E55"))
End If
Τέλος με
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, αφού προσθέσετε τον κώδικα, πρέπει να τροποποιήσετε το φύλλο εργασίας "Σύνοψη Ανταγωνιστικής Ανάλυσης" για να ενεργοποιήσετε το VBA.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορώ να αντικατοπτρίσω τις πρώτες 5 στήλες σε κάθε νέο φύλλο; Έχω τα δεδομένα απλώς θέλω η μορφοποίηση να αλλάζει με όλα τα φύλλα αντί να χρειάζεται να το κάνω επανειλημμένα
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL