Instr exact match

[SQB]

السلام عليكم 

 

استخدم خاصية instr لتحديد موقع الكلمة المستخدمة من خلال الكود المستخدم . 

وبعد الفحص تبين أن كلمة "عقد" قد اعطت قيمة في كلمة "انعقدت"

 

السؤال هل يوجد طرييقة لفحص الكلمة فقط دون أي زيادة ؟

 

مع جزيل الشكر

[ياسر خليل أبو البراء]

لطفاً أخي ارفق ملف للتسهيل

[SQB]

 

لطفاً أخي ارفق ملف للتسهيل

 

 

اعتقد كوني عضو جديد لا يمكنني إرفاق ملف !

حيث تظهر رسالة :

• findkey.xlsm

  غير مسموح برفع هذا النوع من الملفات

 

لكن الكود هو كالتالي :

Sub FindX()
lastR1 = Sheets(1).Range("a50000").End(xlUp).Row
Key = Sheets(1).Range("e2")
For Each news In Sheets(1).Range("a2:i" & lastR1)

findkey = InStr(news, Key)
If findkey > 0 Then
news.Offset(0, 1) = findkey
End If

Next

End Sub

بحيث العامود الأول يحتوي على الأخبار التي بها الكلمات " انعقدت الجمعية العمومية " ، " توقيع عقد مع شركة "

والخانة e2 بها كلمة "عقد"

 

والمطلوب إيجاد نتيجة للجملة الثانية فقط

 

مع جزيل الشكر

[ياسر خليل أبو البراء]

أخي الحبيب قم بضغط الملف ثم اضغط على كلمة Browse ثم حدد مكان الملف المضغوط ثم انقر على رفع الملف ..

[SQB]

اذا كنت نفس الشخص الموجود في هذا الرابط :

http://www.mrexcel.com/forum/excel-questions/670980-replacement-problem-3.html

 

فسؤالي نفس سؤالك من سنتيتن 

اتمنى تكون حصلت على إجابة

[SQB]

 

أخي الحبيب قم بضغط الملف ثم اضغط على كلمة Browse ثم حدد مكان الملف المضغوط ثم انقر على رفع الملف ..

 

الملف

findkey.rar

[ياسر خليل أبو البراء]

أخي الحبيب

إليك المرفق التالي فيه حل للمشكلة بشرط التعامل مع النصوص الإنجليزية أما العربية فلا تفلح

Replacement.rar

[SQB]

للأسف عندي نص عربي

راح أحاول بطريقة split يمكن تضبط 

لكن الملف يحتوي على أكثر من 13 ألف سطر

 

شكرا أخي

تم تعديل أكتوبر 15, 2014 بواسطه SQB

[ياسر خليل أبو البراء]

سنحاول أن نبحث مرة أخرى لربما نجد الحل إن شاء المولى لا تيأس