Sut i ddisodli testun â lluniau cyfatebol yn Excel?
Gadewch i ni ddweud, mae gen i restr o enwau cynnyrch mewn taflen waith, ac mae ffolder sy'n cynnwys y lluniau cyfatebol o enwau'r cynnyrch yn y ddisg gyfrifiadurol. Nawr, mae angen i mi ddod o hyd i enwau'r cynnyrch a'u delweddau cymharol yn Excel heb eu mewnosod fesul un fel y sgrinluniau canlynol a ddangosir. A oes unrhyw atebion da a chyflym i ddelio â'r swydd hon yn Excel?
Amnewid testun gyda lluniau cyfatebol gyda chod VBA
Amnewid testun gyda lluniau cyfatebol gyda Kutools ar gyfer Excel
Amnewid testun gyda lluniau cyfatebol gyda chod VBA
Fel rheol, nid oes unrhyw ffordd hawdd ac uniongyrchol inni fewnosod y lluniau cymharol yn seiliedig ar y llinyn testun yn Excel, ond, gall y cod VBA canlynol eich helpu i ddisodli'r testun gyda'i lun cyfatebol.
1. Pwyswch Alt + F11 i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y ffenestr, cliciwch Mewnosod > Modiwlau i ddangos ffenestr modiwl newydd, yna copïwch a gludwch y cod VBA canlynol i'r modiwl ffenestr.
Cod VBA: disodli testun gyda lluniau cyfatebol
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. Yna pwyswch F5 allwedd i redeg y cod hwn, a dewis yr ystod ddata rydych chi am fewnosod y lluniau cyfatebol yn y dialog popped out, gweler y screenshot:
4. Ac yna cliciwch OK botwm, bydd y testun gwreiddiol yn disodli'r holl ddelweddau cyfatebol sydd â'r un maint â'r celloedd, gweler sgrinluniau:
Nodiadau:
1. Yn y cod uchod, mae angen i chi newid llwybr ffolder y lluniau i'ch angen chi, xPath = "C: \ Defnyddwyr \ dt \ Penbwrdd \ Ffrwythau \".
2. Os nad oes lluniau cyfatebol i gyd-fynd â'r testun, bydd y gwall Amherthnasol yn ei arddangos.
Amnewid testun gyda lluniau cyfatebol gyda Kutools ar gyfer Excel
Gan fod y cod uchod yn anodd ei feistroli, yma, byddaf yn cyflwyno teclyn hawdd a phwerus i chi - Kutools ar gyfer Excel, Gyda'i Cydweddu Lluniau Mewnforio nodwedd, gallwch chi fewnosod y lluniau yn gyflym ac yn gyfleus i gyd-fynd â'r rhestr o destun.
Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:
1. Cliciwch Kutools Byd Gwaith > Mewnforio ac Allforio > Cydweddu Lluniau Mewnforio, gweler y screenshot:
2. Yn y Cydweddu Lluniau Mewnforio blwch deialog, cliciwch botwm i ddewis yr ystod rydych chi am ei chyfateb â'r lluniau, gweler y screenshot:
3. Yna yn y Cydweddu Lluniau Mewnforio deialog, cliciwch Ychwanegu > Ffeil or Ffolder i ddod o hyd i'r lluniau rydych chi am eu mewnosod, gweler y screenshot:
4. Ar ôl mewnosod y delweddau cyfatebol, yna cliciwch Maint mewnforio botwm, yn y canlynol Mewnforio Maint Llun deialog, nodwch un opsiwn ar gyfer maint eich llun. Gweler y screenshot:
5. Yna cliciwch OK > mewnforio, ac yna dewiswch un gell i ddod o hyd i'ch delweddau cymharol o'r rhai sydd wedi'u popio allan Cydweddu Lluniau Mewnforio deialog (gallwch hefyd ddewis cell wreiddiol y testun), gweler y screenshot:
6. Ac yna cliciwch OK botwm, mae'r holl luniau sy'n cyd-fynd â'r testun wedi'u mewnosod yn y daflen waith, gweler y screenshot:
Nodiadau:
1. Os nad oes lluniau wedi'u paru â'r testun, ni fydd y gell yn mewnosod unrhyw beth.
2. Os ydych chi am fewnosod lluniau yn llorweddol, gallwch wirio Llenwch gell yn llorweddol ar ôl y gell yn y Gorchymyn mewnforio adran hon.
Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !
Demo: Amnewid testun gyda lluniau cyfatebol gyda Kutools ar gyfer Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!