انتقل إلى المحتوى الرئيسي

كيف تستبدل النص بالصور المقابلة في إكسيل؟

doc يستبدل النص بالصورة 1 2 doc يستبدل النص بالصورة 2

دعنا نقول ، لدي قائمة بأسماء المنتجات في ورقة عمل ، وهناك مجلد يحتوي على الصور المقابلة لأسماء المنتجات في قرص الكمبيوتر. الآن ، أحتاج إلى البحث عن أسماء المنتجات واستبدالها بصورها النسبية في Excel دون إدراجها واحدة تلو الأخرى كما هو موضح في لقطات الشاشة التالية. هل هناك أي حلول جيدة وسريعة للتعامل مع هذه الوظيفة في Excel؟

استبدل النص بالصور المقابلة برمز VBA

استبدل النص بالصور المقابلة بـ Kutools for Excel


استبدل النص بالصور المقابلة برمز VBA

في العادة ، لا توجد طريقة سهلة ومباشرة لإدراج الصور النسبية استنادًا إلى السلسلة النصية في Excel ، ولكن قد يساعدك رمز VBA التالي على استبدال النص بالصورة المقابلة له.

1. صحافة ALT + F11 لعرض ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة ، انقر فوق إدراج > وحدة لإظهار نافذة وحدة جديدة ، ثم انسخ والصق رمز 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 لتشغيل هذا الرمز، وحدد نطاق البيانات الذي تريد إدراج الصور المقابلة له في مربع الحوار المنبثق، انظر لقطة الشاشة:

doc يستبدل النص بالصورة 3

4. ثم انقر فوق OK الزر، سيتم استبدال جميع الصور المقابلة بنفس حجم الخلايا بالنص الأصلي، انظر لقطات الشاشة:

doc يستبدل النص بالصورة 4 2 doc يستبدل النص بالصورة 5

الملاحظات:

1. في الكود أعلاه، تحتاج إلى تغيير مسار مجلد الصور حسب حاجتك، xPath = "C:\Users\dt\Desktop\Fruits\".

2. إذا لم تكن هناك صور مقابلة لمطابقة النص، فسيتم عرض الخطأ N/A.


استبدل النص بالصور المقابلة بـ Kutools for Excel

نظرًا لصعوبة إتقان الكود أعلاه، سأقدم لك هنا أداة سهلة وقوية - كوتولس ل إكسيل، بما لديها تطابق استيراد الصور الميزة، يمكنك بسرعة وسهولة إدراج الصور لتتناسب مع قائمة النص.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس بلس > استيراد و تصدير > تطابق استيراد الصور، انظر لقطة الشاشة:

2. في تطابق استيراد الصور مربع الحوار، انقر فوق مستند استبدال زر النص 1 زر لتحديد النطاق الذي تريد مطابقته مع الصور، انظر الصورة:

doc استبدال النص بالصورة 7 7

3. ثم في تطابق استيراد الصور الحوار، انقر فوق أضف > قم بتقديم or مجلد للعثور على الصور التي تريد إدراجها، انظر الصورة:

doc استبدال النص بالصورة 8 8

4. بعد إدراج الصور المقابلة، انقر فوق حجم الاستيراد زر ، في ما يلي استيراد حجم الصورة في مربع الحوار، حدد خيارًا واحدًا لحجم صورتك. انظر لقطة الشاشة:

doc استبدال النص بالصورة 9 9

5. ثم اضغط OK > استيراد، ثم اختر خلية واحدة لتحديد موقع الصور النسبية الخاصة بك من الخلية المنبثقة تطابق استيراد الصور الحوار (يمكنك أيضًا تحديد الخلية الأصلية للنص) ، انظر لقطة الشاشة:

doc استبدال النص بالصورة 10 10

6. ثم انقر فوق OK الزر، تم إدراج جميع الصور المطابقة للنص في ورقة العمل، انظر لقطة الشاشة:

doc استبدال النص بالصورة 11 11

الملاحظات:

1. إذا لم تكن هناك صور متطابقة مع النص، فلن تقوم الخلية بإدراج أي شيء.

2. إذا كنت تريد إدراج الصور أفقيا، يمكنك التحقق من ذلك تعبئة أفقية خلية بعد خلية في ال أمر استيراد والقسم الخاص به.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


العرض التوضيحي: استبدل النص بالصور المقابلة باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
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