İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də müvafiq şəkillərlə mətnləri necə əvəz etmək olar?

doc 1 şəkli ilə mətni əvəz et  2 doc 2 şəkli ilə mətni əvəz et

Diyelim ki, bir iş sayfasındaki ürün adlarının bir listesi var və bir qovluq da kompüter diskindeki ürün adlarının ilgili şəkillərini ehtiva edir. İndi göstərilən ekran şəkilləri kimi məhsulun adlarını bir-birinə əlavə etmədən Excel-in nisbi görünüşləri ilə tapmaq və dəyişdirmək lazımdır. Excel-də bu işlə məşğul olmaq üçün hər hansı bir yaxşı və tez həll var?

VBA koduyla müvafiq şəkillərlə mətni dəyişdirin

Excel üçün Kutools ilə müvafiq şəkillərlə mətni dəyişdirin


Sütundakı hüceyrə dəyərlərinə əsaslanan şəkilləri daxil edin:

ilə Excel üçün Kutools'S İthalat şəkillərinə uyğunlaşın kommunal, siz tez və asanlıqla hüceyrə dəyərlərinə əsaslanan uyğun görünüşlər əlavə edə bilərsiniz.

doc 12 şəkli ilə mətni əvəz et

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


VBA koduyla müvafiq şəkillərlə mətni dəyişdirin


Normal olaraq, Excel-də mətn düsturuna əsaslanan nisbi şəkilləri daxil etmək üçün asan və birbaşa bir yol yoxdur, ancaq aşağıdakı VBA kodu mətni müvafiq şəkil ilə əvəz etməyə kömək edə bilər.

1. mətbuat Alt + F11 göstərmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Pəncərədə, basın Taxmaq > Modules yeni bir modul pəncərəsini göstərmək üçün aşağıdakı VBA kodunu kopyalayıb yapışdırın modul pəncərə.

VBA kodu: mətni müvafiq şəkillərlə əvəz edin

Sub InsertPicture()
'Upadateby20150423
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. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və açılmış olan informasiya qutusunda müvafiq şəkilləri daxil etmək istədiyiniz məlumat aralığını seçin, ekran görünüşünə baxın:

doc 3 şəkli ilə mətni əvəz et

4. Və sonra basın OK düyməsini, hüceyrələrlə eyni ölçüdə olan bütün müvafiq görünüşlər orijinal mətn ilə əvəz olunacaq, ekran görüntülərinə baxın:

doc 4 şəkli ilə mətni əvəz et  2 doc 5 şəkli ilə mətni əvəz et

Qeydlər:

1. Yuxarıda göstərilən kodda, şəkillərin qovluq yolunu ehtiyacınıza dəyişdirməlisiniz, xPath = "C: \ Users \ dt \ Desktop \ Meyvələr \".

2. Mətnin uyğun olması üçün müvafiq şəkillər olmadıqda, N / A səhv göstəriləcək.


Excel üçün Kutools ilə müvafiq şəkillərlə mətni dəyişdirin

Yuxarıda göstərilən kodu master etməsi çətin olduğundan, buradakı asanlıqla və güclü bir vasitə ilə tanış edəcəyəm - Excel üçün Kutools, Match Import Pictures xüsusiyyətiylə, mətn siyahısına uyğun şəkilləri daxil etmək üçün tez və rahatlıqla istifadə edə bilərsiniz.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, bunu edin:

1. Basın Müəssisə > İdxal ixrac > İthalat şəkillərinə uyğunlaşın, bax ekran görüntüsü:

doc 6 6 şəkli ilə mətni əvəz edin

2. İçində İthalat şəkillərinə uyğunlaşın informasiya qutusuna basın doc mətn düyməsini 1 əvəz edin şəkillərlə uyğunlaşmaq istədiyiniz aralığı seçmək üçün düyməsinə baxın:

doc 7 7 şəkli ilə mətni əvəz edin

3. Sonra da İthalat şəkillərinə uyğunlaşın dialoq basın əlavə etmək > fayl or Qovluq əlavə etmək istədiyiniz şəkilləri tapmaq üçün ekran görüntüsünə baxın:

doc 8 8 şəkli ilə mətni əvəz edin

4. Müvafiq təsvirləri yerləşdirdikdən sonra, sonra basın İdxal ölçüsü düyməsini basın İdxal Şəkil Ölçü dialoq, şəkilinizin ölçüsü üçün bir seçim seçin. Ekran görüntüsünə baxın:

doc 9 9 şəkli ilə mətni əvəz edin

5. Sonra basın OK > Idxal, və sonra birbaşa seçilmiş görünüşləri tapmaq üçün bir hüceyrəni seçin İthalat şəkillərinə uyğunlaşın dialoq (mətnin əsli hüceyrəsini də seçə bilərsiniz), ekran görünüşünə baxın:

doc 10 10 şəkli ilə mətni əvəz edin

6. Və sonra basın OK mətn ilə uyğun olan bütün şəkillər iş yerinə daxil edilib, ekran görünüşünə baxın:

doc 11 11 şəkli ilə mətni əvəz edin

Qeydlər:

1. Mətnlə əlaqəli şəkillər olmadıqda, hüceyrə heç bir şey əlavə etmir.

2. Şəkilləri yatay olaraq daxil etmək istəyirsinizsə, onu kontrol edə bilərsiniz Hücredən sonra yatay hüceyrəni doldurun ci İdxal qaydası bölmə.

Excel İndi Download və pulsuz sınaq Kutools!


Demo: Excel üçün Kutools ilə müvafiq şəkillərlə mətni dəyişdirin

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.