اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم 

 

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

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

 

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

 

مع جزيل الشكر

قام بنشر

 

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

 

 

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

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

  • 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 ثم حدد مكان الملف المضغوط ثم انقر على رفع الملف ..

 

الملف

findkey.rar

قام بنشر (معدل)

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

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

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

 

شكرا أخي

تم تعديل بواسطه SQB

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information