سليم حاصبيا

جرب هذا الماكرو Sub show_sheets() For i = 2 To Sheets.Count If Sheets(i).Visible = False Then Sheets(i).Visible = True Next End Sub

اخي ياسر اذا كنت تستطيع ان تحصي جميع الاسماء العربية المركبة فأن الدالة المعرفة ممتازة جداً حتى الاسم المركب يمكن ان يختلف بين وجود الهمزة مثلاً و عدمها بين التاء الطويلة والقصيرة الى ما هنالك من اشياء يصعب حصرها بالنسبة للاسماء الرباعية او الخماسية يمكن غمل ذلك لكن ذلك يتطلب مجهوداً

اخواني في المنتدى كما نعرف هناك مشاكل في اللغة العربية لا يتقبلها الاكسل بسهولة و منها مشكلة الاسماء المركبة تم البحث بهذا الموضوع مكرراً و لكن يبقى الموضوع معقداً اذ لايمكن ان نحصي جميع "ابو.. الدين .. عبد... الخ..." لذا وضعت هذا الموضوع الذي يتحاشى كل هذه المشاكل ارجو ان ينال الإعجاب فرز اسماء.rar

استعمل هذه المعادلة (اذا انت البيانات في العامود A) لمعرفة عدد الخلايا التي نحنوي على نصوص =COUNTA(A:A)-COUNT(A:A) و هذه لمعرفة عدد الخلايا التي نحنوي على ارقام =count(A:A)

تأكد فبل القيام بعملية النسخ ان الكيبورد موضوغ غلى اللغة العربية

=LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1)," ",""))+1 لمعرفة عدد الكلمات هذه المعادلة لمعرفة عدد الفراغات هذه الثانية =LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1)," ",""))

استعمل هذه المعادلة لتعمل على اللغتين معاً =IF($A3="","",IFERROR(MID(LEFT($A3,FIND(CHAR(161),$A3)-1),FIND(CHAR(58),$A3)+1,500),MID(LEFT($A3,FIND(CHAR(44),$A3)-1),FIND(CHAR(58),$A3)+1,500)))

جرب هذه النسخة 2003 MID OF TEXT1.rar

لا حاجة لذلك فان المعادلة لموجودة يفهمها 2003 بسهولة

جرب هذا الملف MID OF TEXT.rar

تفض المرفق مع الدالة المناسبة Num_Of_Words 1.rar

هذا الملف انا من وضعه و هو يعمل بالكود

يمكن عمل ذلك بواسطة الماكرو اذا اردت

لا اعتقد انه يمكن عمل ذلك بواسطة المعادلات

=IF(A1-B1>=0,A1-B1,A1-B1-$H$2) استبدل المعادلة بهذه يمكنك تغيير الرقم في h2 الى اي رقم تريد

لا اعرف اذا كان هذا المطلوب SALIM.rar

استبدل المعادلة بهذه =IF(OR(LEN(TRIM($A3))-LEN(SUBSTITUTE(TRIM($A3)," ",""))=0,$B3=""),"",(LEN($A3)-LEN(SUBSTITUTE($A3,$B3,"")))/LEN($B3))

جرب هذه المعادلة =IF(ISNUMBER(A1),A1,OFFSET(A1,1,0))

شرح للحل الذي وضعته 1- في الورقة رقم 2 تم وضع معادلة في العامود C لاستخرج جميع الموردين (محلي) بواسطة المعادلة التالية (صفيف) =IF(ROWS($C$2:C2)>COUNTIF(Sheet1!$A$2:$A$100,$J$1),"",INDEX(Sheet1!$B$2:$B$100,SMALL(IF(Sheet1!$A$2:$A$100=$J$1,ROW($A$2:$A$100)-ROW($A$2)+1),ROWS($C$2:C2)))) 2-من هذاالنطاق وضعت Define name اسميته (MouwaredM) بواسطة المعادلة التالية (الخلية 1$J$ تحتوي على كلمة "محلي") =$C$2:INDEX($C$2:$C$100,COUNTIF(Sheet1!$A$2:$A$100,$J$1)) 3- نفس الشيء بالنسبة للموردين (صادر) في العامود G اسميته (MouwaredT) 4- تم اخفاء الورقة 2 لعدم العبث بها غن طريق الخطأ 5- ننتقل الى الصفحة الاولى في العامود (data validation ( I غلى كل الخلايا تم وضغ المعادلة التالية =IF($H2="","",IF($H2=Sheet2!$J$1,MouwarredM,MouwaredT)) 6- في العامود J هذه المعادلة =IF($I2="","",SUMIF($B$2:$B$100,$I2,$C$2:$C$100)) مع تحياتي

الرجاء ان تذكر الى من توجه الرسالة

تفضل ربما كان المطلوب انشاء_قائمه_منسدله_في_كل_خليه salim.rar

بعد اذن اخي احمد (لا حط الخلية C3 التي تحتو ي على معادلة) ترحيل المحذوف 1.rar

بارك الله فيك اخي ياسر انا ليس عندي الخبرة الكافية بوضع الفيديوهات وتحميلها و يا ليت ترشدني كيف ارفع موضوعاً مشروحاً مثل الذي تفعله انت

جرب هذا الملف كنموذج Notes.rar

جرب هذا الملف واضغط اعجبني Num_Of_Words.rar