Πώς να αντικαταστήσετε κείμενο με αντίστοιχες εικόνες στο Excel;
Ας πούμε, έχω μια λίστα ονομάτων προϊόντων σε ένα φύλλο εργασίας και υπάρχει ένας φάκελος που περιέχει τις αντίστοιχες εικόνες των ονομάτων προϊόντων στο δίσκο του υπολογιστή. Τώρα, πρέπει να βρω και να αντικαταστήσω τα ονόματα των προϊόντων με τις σχετικές εικόνες τους στο 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 πλήκτρο για να εκτελέσετε αυτόν τον κώδικα και επιλέξτε το εύρος δεδομένων που θέλετε να εισαγάγετε τις αντίστοιχες εικόνες στο αναδυόμενο παράθυρο διαλόγου, δείτε στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλες οι αντίστοιχες εικόνες με το ίδιο μέγεθος με τα κελιά θα αντικατασταθούν με το αρχικό κείμενο, δείτε στιγμιότυπα οθόνης:
:
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. Στην Ταίριασμα εικόνων εισαγωγής , κάντε κλικ στην επιλογή κουμπί για να επιλέξετε το εύρος που θέλετε να ταιριάζει με τις εικόνες, δείτε στιγμιότυπο οθόνης:
3. Τότε στο Ταίριασμα εικόνων εισαγωγής κάντε κλικ στο πλαίσιο διαλόγου Πρόσθεση > Αρχεία or Folder για να βρείτε τις εικόνες που θέλετε να εισαγάγετε, δείτε στιγμιότυπο οθόνης:
4. Αφού εισαγάγετε τις αντίστοιχες εικόνες, κάντε κλικ Μέγεθος εισαγωγής κουμπί, στα ακόλουθα Εισαγωγή μεγέθους εικόνας διαλόγου, καθορίστε μία επιλογή για το μέγεθος της εικόνας σας. Δείτε στιγμιότυπο οθόνης:
5. Στη συνέχεια κάντε κλικ στο κουμπί OK > εισαγωγήκαι, στη συνέχεια, επιλέξτε ένα κελί για να εντοπίσετε τις σχετικές εικόνες σας από το αναδυόμενο Ταίριασμα εικόνων εισαγωγής διάλογο (μπορείτε επίσης να επιλέξετε το αρχικό κελί του κειμένου), δείτε το στιγμιότυπο οθόνης:
6. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλες οι εικόνες που ταιριάζουν με το κείμενο έχουν εισαχθεί στο φύλλο εργασίας, δείτε στιγμιότυπο οθόνης:
:
1. Εάν δεν υπάρχουν αντιστοιχισμένες εικόνες με το κείμενο, το κελί δεν θα εισάγει τίποτα.
2. Εάν θέλετε να εισάγετε εικόνες οριζόντια, μπορείτε να ελέγξετε Γεμίστε οριζόντια κελί μετά κελί στο Εισαγωγή παραγγελίας τμήμα.
Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Αντικαταστήστε το κείμενο με τις αντίστοιχες εικόνες με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!