Ինչպե՞ս փոխարինել տեքստը Excel- ում համապատասխան նկարներով:
Եկեք ասենք, որ ես ունեմ աշխատաթերթում ապրանքի անունների ցուցակ, և կա համակարգչային սկավառակի մեջ ապրանքի անվանման համապատասխան նկարներ պարունակող պանակ: Այժմ ես պետք է Excel- ում գտնեմ և փոխարինեմ ապրանքի անվանումները դրանց հարաբերական պատկերներով ՝ առանց դրանց հատ առ հատ տեղադրելու, ինչպես ցույց են տրված հետևյալ նկարները: Excel- ում այս գործով զբաղվելու համար կա՞ որևէ լավ և արագ լուծում:
Տեքստը համապատասխան նկարներով փոխարինեք VBA կոդով
Տեքստը փոխարինեք համապատասխան նկարներով Excel- ի համար Kutools- ով
Տեքստը համապատասխան նկարներով փոխարինեք 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 սխալը:
Տեքստը փոխարինեք համապատասխան նկարներով Excel- ի համար Kutools- ով
Քանի որ վերը նշված կոդը դժվար է տիրապետել, այստեղ ես ձեզ կներկայացնեմ հեշտ և հզոր գործիք. Excel- ի համար նախատեսված գործիքներԻր Համապատասխանի ներմուծման նկարները հնարավորություն, դուք կարող եք արագ և հարմար կերպով տեղադրել նկարները՝ տեքստի ցանկին համապատասխանելու համար:
Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ
1: Սեղմեք Kutools Plus > Ներմուծման արտահանման > Համապատասխանի ներմուծման նկարները, տես նկարի նկարը.
2, Մեջ Համապատասխանի ներմուծման նկարները երկխոսության վանդակում, սեղմեք կոճակ՝ ընտրելու այն շրջանակը, որը ցանկանում եք համապատասխանեցնել նկարներին, տես սքրինշոթը.
3. Այնուհետեւ Համապատասխանի ներմուծման նկարները երկխոսություն, սեղմեք Ավելացնել > Ֆայլ or Թղթապանակ նկարները գտնելու համար, որոնք ցանկանում եք տեղադրել, տես սքրինշոթը՝
4. Համապատասխան պատկերները տեղադրելուց հետո սեղմեք Ներմուծման չափը կոճակը, հետևյալում Ներմուծեք նկարի չափը երկխոսություն, նշեք մեկ տարբերակ ձեր նկարի չափի համար: Տես սքրինշոթը.
5. Այնուհետեւ կտտացրեք OK > Ներմուծում, և այնուհետև ընտրեք մեկ բջիջ՝ ձեր հարաբերական պատկերները բացված պատուհանից գտնելու համար Համապատասխանի ներմուծման նկարները երկխոսություն (կարող եք նաև ընտրել տեքստի բնօրինակը), տե՛ս նկարը.
6. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր նկարները, որոնք համապատասխանում են տեքստին, տեղադրվել են աշխատաթերթում, տես սքրինշոթը.
Նշումներ:
1. Եթե տեքստի հետ համապատասխան նկարներ չկան, բջիջը ոչինչ չի տեղադրի:
2. Եթե ցանկանում եք նկարներ տեղադրել հորիզոնական, կարող եք ստուգել Լրացրեք հորիզոնական բջիջը բջիջից հետո է Ներմուծման պատվեր բաժնում:
Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:
Դեմո. Փոխարինեք տեքստը համապատասխան նկարներով Kutools-ով Excel-ի համար
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: