Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να αναζητήσετε / να βρείτε τιμές σε άλλο βιβλίο εργασίας;

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


Βλέπετε δεδομένα και επιστρέψτε τιμές από άλλο βιβλίο εργασίας στο Excel

Για παράδειγμα, δημιουργείτε έναν πίνακα αγοράς φρούτων στο Excel και τώρα πρέπει να δείτε τα φρούτα από άλλο βιβλίο εργασίας και να επιστρέψετε τις αντίστοιχες τιμές, όπως φαίνεται παρακάτω. Εδώ θα σας καθοδηγήσω να το λύσετε με τη λειτουργία VLOOKKUP στο Excel.

1. Ανοίξτε και τα δύο βιβλία εργασίας από τα οποία θα δείτε τιμές και θα επιστρέψετε τιμές.

2. Επιλέξτε ένα κενό κελί που θα επιστρέψετε την τιμή, πληκτρολογήστε τον τύπο = VLOOKUP (B2, [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2, FALSE) σε αυτό και, στη συνέχεια, σύρετε το Fill Handle για να εφαρμόσετε αυτόν τον τύπο στο εύρος που χρειάζεστε.

Σημειώσεις:
(1) Στον παραπάνω τύπο, το B2 είναι το φρούτο που θα αναζητήσετε από άλλο βιβλίο εργασίας, το Price.xlsx υποδεικνύει το όνομα αρχείου του βιβλίου εργασίας από το οποίο θα αναζητήσετε, το φύλλο 1 σημαίνει το όνομα του φύλλου από το οποίο θα αναζητήσετε και 1 $ : $ B $ 24 είναι το εύρος από το οποίο θα αναζητήσετε. Μπορείτε να τα αλλάξετε όπως χρειάζεστε.
(2) Μετά το κλείσιμο του βιβλίου εργασίας από το οποίο αναζητήσατε, ο τύπος θα ενημερωθεί αυτόματα σε = VLOOKUP (B2, 'W: \ test \ [Price.xlsx] Sheet1'! $ A $ 1: $ B $ 24,2, FALSE), το W: \ test \ είναι η διαδρομή αποθήκευσης του βιβλίου εργασίας από την οποία αναζητήσατε.

Μέχρι στιγμής, όλες οι τιμές έχουν επιστρέψει σωστά όπως φαίνεται στο αριστερό στιγμιότυπο οθόνης. Και αυτές οι τιμές θα ενημερωθούν αυτόματα εάν το αρχικό βιβλίο εργασίας αναζητήσατε από αλλαγές.

κορδέλα Η φόρμουλα είναι πολύ περίπλοκη για να θυμάστε; Αποθηκεύστε τον τύπο ως καταχώριση αυτόματου κειμένου για επαναχρησιμοποίηση με ένα μόνο κλικ στο μέλλον!
Διαβάστε περισσότερα ...     Δωρεάν δοκιμή

Δεδομένα Vlookup και τιμές επιστροφής από άλλο κλειστό βιβλίο εργασίας με VBA

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

1. Πάτα το άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο της αρχικής μονάδας

VBA: Δεδομένα Vlookup και τιμές επιστροφής από άλλο κλειστό βιβλίο εργασίας

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub
Note: Αυτό το VBA θα επιστρέψει τιμές σε μια στήλη που βρίσκεται 2 στήλες πίσω από την επιλεγμένη στήλη. Για παράδειγμα, επιλέγω τη στήλη Β κατά την εφαρμογή αυτού του VBA, οι τιμές θα επιστρέψουν στη στήλη Δ. Εάν πρέπει να αλλάξετε τη στήλη προορισμού, μάθετε τον κωδικό xRg.Offset (0, 2). Formula = xString & GetColumn (xFCell.Column + 1) & "$" & xFCell.Row και αντικαταστήστε 2 σε άλλο αριθμό όπως χρειάζεστε.

3. Πάτα το F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.

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

5. Τώρα επιλέξτε το βιβλίο εργασίας όπου θα αναζητήσετε τιμές στο άνοιγμα Επιλέξτε ένα βιβλίο διαλόγου και κάντε κλικ στο Ανοικτό κουμπί.

Τώρα όλες οι επιλεγμένες τιμές αναζητούνται στο καθορισμένο κλειστό βιβλίο εργασίας και οι αντίστοιχες τιμές επιστρέφονται στην καθορισμένη στήλη. Δείτε το στιγμιότυπο οθόνης:


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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    leigh_87 · 2 years ago
    Hi this works great thanks! Would it be at all possible to show me how i would change the code if i have the workbook open that i would like to lookup the data in?