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

Πώς να αντικαταστήσετε κείμενο με αντίστοιχες εικόνες στο Excel;

doc αντικαταστήστε το κείμενο με την εικόνα 1 2 doc αντικαταστήστε το κείμενο με την εικόνα 2

Ας πούμε, έχω μια λίστα ονομάτων προϊόντων σε ένα φύλλο εργασίας και υπάρχει ένας φάκελος που περιέχει τις αντίστοιχες εικόνες των ονομάτων προϊόντων στο δίσκο του υπολογιστή. Τώρα, πρέπει να βρω και να αντικαταστήσω τα ονόματα των προϊόντων με τις σχετικές εικόνες τους στο Excel χωρίς να τα εισαγάγω ένα προς ένα όπως φαίνεται παρακάτω. Υπάρχουν καλές και γρήγορες λύσεις για την αντιμετώπιση αυτής της εργασίας στο Excel;

Αντικαταστήστε το κείμενο με τις αντίστοιχες εικόνες με τον κωδικό VBA

Αντικαταστήστε το κείμενο με τις αντίστοιχες εικόνες με το Kutools για Excel


Αντικαταστήστε το κείμενο με τις αντίστοιχες εικόνες με τον κωδικό VBA

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

1. Τύπος Alt + F11 για να εμφανιστεί το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: αντικαταστήστε το κείμενο με τις αντίστοιχες εικόνες

Sub InsertPicture()
'Upadateby Extendoffice
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
    If Rng.Value <> "" Then
        If Dir(xPath & Rng.Value & ".jpg") <> "" Then
            ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
            With Selection.ShapeRange
                .LockAspectRatio = msoFalse
                .Left = Rng.Left
                .Top = Rng.Top
                .Width = Rng.Width
                .Height = Rng.Height
            End With
            Rng.ClearContents
        Else
            Rng.Value = "N/A"
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια πατήστε F5 πλήκτρο για να εκτελέσετε αυτόν τον κώδικα και επιλέξτε το εύρος δεδομένων που θέλετε να εισαγάγετε τις αντίστοιχες εικόνες στο αναδυόμενο παράθυρο διαλόγου, δείτε στιγμιότυπο οθόνης:

doc αντικαταστήστε το κείμενο με την εικόνα 3

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλες οι αντίστοιχες εικόνες με το ίδιο μέγεθος με τα κελιά θα αντικατασταθούν με το αρχικό κείμενο, δείτε στιγμιότυπα οθόνης:

doc αντικαταστήστε το κείμενο με την εικόνα 4 2 doc αντικαταστήστε το κείμενο με την εικόνα 5

:

1. Στον παραπάνω κώδικα, πρέπει να αλλάξετε τη διαδρομή φακέλου των εικόνων στις ανάγκες σας, xPath = "C:\Users\dt\Desktop\Fruits\".

2. Εάν δεν υπάρχουν αντίστοιχες εικόνες που να ταιριάζουν με το κείμενο, θα εμφανιστεί το σφάλμα N/A.


Αντικαταστήστε το κείμενο με τις αντίστοιχες εικόνες με το Kutools για Excel

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

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. 

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Κλίκ Kutools Plus > Εισαγωγή εξαγωγή > Ταίριασμα εικόνων εισαγωγής, δείτε το στιγμιότυπο οθόνης:

2. Στην Ταίριασμα εικόνων εισαγωγής , κάντε κλικ στην επιλογή κουμπί αντικατάσταση κειμένου εγγράφου 1 κουμπί για να επιλέξετε το εύρος που θέλετε να ταιριάζει με τις εικόνες, δείτε στιγμιότυπο οθόνης:

doc αντικαταστήστε το κείμενο με την εικόνα 7 7

3. Τότε στο Ταίριασμα εικόνων εισαγωγής κάντε κλικ στο πλαίσιο διαλόγου Πρόσθεση > Αρχεία or Folder για να βρείτε τις εικόνες που θέλετε να εισαγάγετε, δείτε στιγμιότυπο οθόνης:

doc αντικαταστήστε το κείμενο με την εικόνα 8 8

4. Αφού εισαγάγετε τις αντίστοιχες εικόνες, κάντε κλικ Μέγεθος εισαγωγής κουμπί, στα ακόλουθα Εισαγωγή μεγέθους εικόνας διαλόγου, καθορίστε μία επιλογή για το μέγεθος της εικόνας σας. Δείτε στιγμιότυπο οθόνης:

doc αντικαταστήστε το κείμενο με την εικόνα 9 9

5. Στη συνέχεια κάντε κλικ στο κουμπί OK > εισαγωγήκαι, στη συνέχεια, επιλέξτε ένα κελί για να εντοπίσετε τις σχετικές εικόνες σας από το αναδυόμενο Ταίριασμα εικόνων εισαγωγής διάλογο (μπορείτε επίσης να επιλέξετε το αρχικό κελί του κειμένου), δείτε το στιγμιότυπο οθόνης:

doc αντικαταστήστε το κείμενο με την εικόνα 10 10

6. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλες οι εικόνες που ταιριάζουν με το κείμενο έχουν εισαχθεί στο φύλλο εργασίας, δείτε στιγμιότυπο οθόνης:

doc αντικαταστήστε το κείμενο με την εικόνα 11 11

:

1. Εάν δεν υπάρχουν αντιστοιχισμένες εικόνες με το κείμενο, το κελί δεν θα εισάγει τίποτα.

2. Εάν θέλετε να εισάγετε εικόνες οριζόντια, μπορείτε να ελέγξετε Γεμίστε οριζόντια κελί μετά κελί στο Εισαγωγή παραγγελίας τμήμα.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!


Επίδειξη: Αντικαταστήστε το κείμενο με τις αντίστοιχες εικόνες με το Kutools για Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

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

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

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations