كيف تستبدل النص بالصور المقابلة في إكسيل؟
دعنا نقول ، لدي قائمة بأسماء المنتجات في ورقة عمل ، وهناك مجلد يحتوي على الصور المقابلة لأسماء المنتجات في قرص الكمبيوتر. الآن ، أحتاج إلى البحث عن أسماء المنتجات واستبدالها بصورها النسبية في Excel دون إدراجها واحدة تلو الأخرى كما هو موضح في لقطات الشاشة التالية. هل هناك أي حلول جيدة وسريعة للتعامل مع هذه الوظيفة في 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 لتشغيل هذا الرمز، وحدد نطاق البيانات الذي تريد إدراج الصور المقابلة له في مربع الحوار المنبثق، انظر لقطة الشاشة:
4. ثم انقر فوق OK الزر، سيتم استبدال جميع الصور المقابلة بنفس حجم الخلايا بالنص الأصلي، انظر لقطات الشاشة:
الملاحظات:
1. في الكود أعلاه، تحتاج إلى تغيير مسار مجلد الصور حسب حاجتك، xPath = "C:\Users\dt\Desktop\Fruits\".
2. إذا لم تكن هناك صور مقابلة لمطابقة النص، فسيتم عرض الخطأ N/A.
استبدل النص بالصور المقابلة بـ Kutools for Excel
نظرًا لصعوبة إتقان الكود أعلاه، سأقدم لك هنا أداة سهلة وقوية - كوتولس ل إكسيل، بما لديها تطابق استيراد الصور الميزة، يمكنك بسرعة وسهولة إدراج الصور لتتناسب مع قائمة النص.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس بلس > استيراد و تصدير > تطابق استيراد الصور، انظر لقطة الشاشة:
2. في تطابق استيراد الصور مربع الحوار، انقر فوق زر لتحديد النطاق الذي تريد مطابقته مع الصور، انظر الصورة:
3. ثم في تطابق استيراد الصور الحوار، انقر فوق أضف > قم بتقديم or مجلد للعثور على الصور التي تريد إدراجها، انظر الصورة:
4. بعد إدراج الصور المقابلة، انقر فوق حجم الاستيراد زر ، في ما يلي استيراد حجم الصورة في مربع الحوار، حدد خيارًا واحدًا لحجم صورتك. انظر لقطة الشاشة:
5. ثم اضغط OK > استيراد، ثم اختر خلية واحدة لتحديد موقع الصور النسبية الخاصة بك من الخلية المنبثقة تطابق استيراد الصور الحوار (يمكنك أيضًا تحديد الخلية الأصلية للنص) ، انظر لقطة الشاشة:
6. ثم انقر فوق OK الزر، تم إدراج جميع الصور المطابقة للنص في ورقة العمل، انظر لقطة الشاشة:
الملاحظات:
1. إذا لم تكن هناك صور متطابقة مع النص، فلن تقوم الخلية بإدراج أي شيء.
2. إذا كنت تريد إدراج الصور أفقيا، يمكنك التحقق من ذلك تعبئة أفقية خلية بعد خلية في ال أمر استيراد والقسم الخاص به.
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: استبدل النص بالصور المقابلة باستخدام Kutools for Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!