SQB

السلام عليكم ورحمة الله وبركاته

ياريت يا جماعه لو حد يقدر يساعدني في عمل ربط بين مجموعة شيتات لعمل احصائية في شيت واحد 

مرفق نموذج من الملف

وجزاكم الله خير

اخي الكريم لا يوجد مرفق !

ممكن شرح اكثر بالنسبة للنقطة الاولى

اي خانة تتكلم عنها المفروض تنتقل لأي مكان ؟

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

"could not load the object because it is not available in this machine"

بعدها فتح الملف مو مبين انه في مشكلة !

ممكن من خلال إضافة كود التقريب

Round ( expression, [decimal_places] )

ولكن للأسف لم اطلع على كود الاستاذ عبدالله باقشي لمعرفة مكان اضافتها .

مع جزيل الشكر

تم ذكر بعض البرامج من قبل الاخوة في هذا الرابط :

http://www.officena.net/ib/index.php?showtopic=56105

اذا كان هذا قصدك ممكن يفيدك هذا الرابط :

http://www.ozgrid.com/forum/showthread.php?t=73446

تقصد داخل خلية في آخر سطر بالصفحة ؟

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

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

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

شكرا أخي

السلام عليكم

 

لو سمحتهم اواجه مشكلة عند فتحي لليوزر فورم لا استطيع فتح اى ملف اكسيل اخر 

وقد حاولت استخدام الكود userform1.show false اصبح يمكنى من التنقل بين الشيتات ولكن لم يمكنى من فتح اى ملف اكسيل اخر 

 

ارجو المساعدة وشكرا

تأكد من خصائص الفورم تلاقي "Showmodal" تأكد إنها False

 

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

 

الملف

findkey.rar

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

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

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

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

 

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

 

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

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

• 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 بها كلمة "عقد"

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

مع جزيل الشكر

السلام عليكم 

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

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

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

مع جزيل الشكر