Ugrás a tartalomra

Hogyan helyettesítsük a szöveget a megfelelő képekkel az Excel programban?

doc cserélje le a szöveget az 1. képpel 2 doc cserélje le a szöveget az 2. képpel

Tegyük fel, hogy van egy munkalapon egy terméknevek listája, és van egy mappa, amely tartalmazza a megfelelő képeket a terméknevekről a számítógép lemezén. Most meg kell találnom és le kell cserélnem a termékneveket a relatív képeikre az Excelben anélkül, hogy egyesével illeszteném be őket, ahogy a következő képernyőképek mutatják. Van valami jó és gyors megoldás az Excel kezelésére?

Cserélje ki a szöveget a megfelelő képekre VBA kóddal

Cserélje ki a szöveget a megfelelő képekkel a Kutools for Excel segítségével


Cserélje ki a szöveget a megfelelő képekre VBA kóddal

Általában nincs egyszerű és közvetlen módszer a relatív képek beszúrására az Excel szöveges karaktersorozata alapján, de a következő VBA-kód segíthet a szöveg helyettesítésében a megfelelő képpel.

1. nyomja meg Alt + F11 megjeleníteni a Microsoft Visual Basic for Applications ablak.

2. Az ablakban kattintson a gombra betétlap > Modulok új modul ablak megjelenítéséhez, majd másolja és illessze be a következő VBA kódot a modul ablak.

VBA kód: cserélje ki a szöveget a megfelelő képekkel

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és válassza ki azt az adattartományt, amelybe be szeretné illeszteni a megfelelő képeket a felbukkanó párbeszédpanelen, lásd a képernyőképet:

doc cserélje le a szöveget az 3. képpel

4. Kattintson a gombra OK gombra, az összes megfelelő kép, amelynek mérete megegyezik a cellákkal, lecserélődik az eredeti szövegre, lásd a képernyőképeket:

doc cserélje le a szöveget az 4. képpel 2 doc cserélje le a szöveget az 5. képpel

Megjegyzések:

1. A fenti kódban meg kell változtatnia a képek mappájának elérési útját, xPath = "C: \ Users \ dt \ Desktop \ Fruits \".

2. Ha nincs megfelelő kép, amely megfelelne a szövegnek, az N / A hiba jelenik meg.


Cserélje ki a szöveget a megfelelő képekkel a Kutools for Excel segítségével

Mivel a fenti kódot nehéz elsajátítani, bemutatok egy egyszerű és hatékony eszközt - Kutools az Excel számára, Annak Match Import Képek funkcióval gyorsan és kényelmesen beillesztheti a képeket a szöveglistához.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Import Export > Match Import Képek, lásd a képernyőképet:

2. Az Match Import Képek párbeszédpanelen kattintson a gombra doc csere szöveggomb 1 gomb a képekkel egyeztetni kívánt tartomány kiválasztásához, lásd a képernyőképet:

doc cserélje le a szöveget a 7 képpel 7

3. Aztán a Match Import Képek párbeszédpanelen kattintson a gombra hozzáad > filé or Mappa a beszúrni kívánt képek megtalálásához lásd a képernyőképet:

doc cserélje le a szöveget a 8 képpel 8

4. A megfelelő képek beszúrása után kattintson a gombra Import méret gombra, a következőkben Képméret importálása párbeszédpanelen adjon meg egy beállítást a kép méretéhez. Lásd a képernyőképet:

doc cserélje le a szöveget a 9 képpel 9

5. Ezután kattintson OK > import, majd válasszon egy cellát a relatív képek megkereséséhez az előugró ablakból Match Import Képek párbeszédpanel (kiválaszthatja a szöveg eredeti celláját is), lásd a képernyőképet:

doc cserélje le a szöveget a 10 képpel 10

6. Kattintson a gombra OK gombra, az összes, a szöveggel egyező képet beillesztette a munkalapba, lásd a képernyőképet:

doc cserélje le a szöveget a 11 képpel 11

Megjegyzések:

1. Ha nincsenek egyeztetett képek a szöveggel, a cella nem szúr be semmit.

2. Ha vízszintesen szeretne beilleszteni képeket, ellenőrizheti Töltsön vízszintesen cellát cella után a Rendelés importálása szakasz.

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Demo: Cserélje ki a szöveget a megfelelő képekkel a Kutools for Excel segítségével

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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