نجوم المشاركات

بس للعلم ، كود تغيير الاسم فيه شئ جميل للنظر فيه ، فالسؤال هو : اذا فتحت ملف اكسس مثلا ، فهل تستطيع ان تغير اسمه وهو مفتوح؟ الجواب لا ، فهنا انا ، غيرت اختيار الصورة (يعني كأنّي كبست على صورة ثانية) 'select another file in the listbox, so that this file is no longer in-use عندها ، طلبت من الاكسس ان لا يسمح لك ان ترى ما يحدث (يعني لما اكبس الزر لرؤية صورة اخرى ، فالمفروض ترى صورة اخرى في النموذج ، مما قد يربك المستخدم) ، وذلك بعدم تغيير آخر شكل للنموذج ، والامر هو Me.Painting = False ، وعندها عملت التغييرات ، ولما خلصت ، طلبت من اكسس ان يعرض الشكل الصحيح للنموذج Me.Painting = True للعلم جعفر

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

أخي الحبيب ياسر العربي بردو رميت الملف من غير ما تقول عملت ايه ..؟؟! عموماً جزاكم الله خير الجزاء على هذه المساعدات القيمة والتي أرجو دائماً أن تتوج بالشرح لما قمت بعمله ، ولو فيه وقت شرح لأسطر الكود التي تم التعامل معها أخي الكريم حماده سعد الله الحمد لله أن تم المطلوب على خير بس يا ريت تجرب الملف مرة تانية وتالتة عشان موضوع العفاريت دا بدأ يقلقني .. وبعدين ولا يهمك إذا كان الملف فيه عفاريت فمعانا العربي بيحضرهم ويصرفهم (كله تحت الطلب) تقبلوا وافر تقديري واحترامي

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

أبي الحبيب أبو يوسف حاشا لله أن تكون مقصوص الجناح ولديك إخوان في كل مكان ..فنحن لك أجنحة حلق بها إلى حيث تشاء إليك الملف فيه المثال المذكور مرتين مرة بدون مسافات قبل وبعد الاسم ومرة بمسافة قبل وبعد الاسم .. والمعادلات تعطي نفس النتيجة أي لا تتأثر المعادلة بالمسافات قبل وبعد إذا أردت أن تكون النتائج بشكل مختلف أخبرنا في الحال تقبل تحياتي Test.rar

أخى الفاضل أولا : يرجى تغيير اسم الظهور الى اللغة العربية لسهولة التواصل ثانيا : استخدم المعادلة الآتية فى الخلية B2 ثم اسحبها الى بقية الخلايا =MID($A2;COLUMNS($B2:B2);1)

العنوان الموضوع من قبل كلمة واحدة فقط "سؤال" وكما تعلم "السؤال لغير الله مذلة" .. طبعاً إلا السؤال لطلب العلم فهو أمر محبوب تقبل تحياتي

بارك الله فيك أخي الغالي سليم وجزاكم الله خيراً ما بال الدالة المعرفة التي تقوم بالأمر دون تحديد إذا ما كان الاسم مركب أو غير مركب ..فمن غير المنطقى أنه إذا كان لدي 1000 اسم أن أقوم بتحليل الاسم لتحديد ما إذا كان الاسم مركب أم لا ..

اسف خطأ متوقع ركزت ع الترتيب فقط لم تاتي فكرة لعلاج المشكلة بطريقة احترافية المهم عدلت بفكرة بسيطة كدا تقوم باللازم لعلها تناسبك وبعدين يامعلم حمادة متقولشي كدا براحتك احنا معاك لو ظهر الف مشكلة وسعت مني صح خليهم ميت مشكلة كويس كدا وشكرا نتيجة بالدرجات.rar

السلام عليكم ورحمة الله وبركاته باب بيان أنه لا يدخل الجنة إلا المؤمنون وأن محبة المؤمنين من الإيمان وأن إفشاء السلام سببا لحصولها 54 حدثنا أبو بكر بن أبي شيبة حدثنا أبو معاوية ووكيع عنالأعمش عن أبي صالح عن أبي هريرة قال قال رسول الله صلى الله عليه وسلم لا تدخلون الجنة حتى تؤمنوا ولا تؤمنوا حتى تحابوا أولا أدلكم على شيء إذا فعلتموه تحاببتم أفشوا السلام بينكم وحدثني زهير بن حرب أنبأنا جرير عن الأعمش بهذا الإسناد قال قال رسول الله صلى الله عليه وسلم والذي نفسي بيده لا تدخلون الجنة حتى تؤمنوا بمثل حديث أبي معاوية ووكيع قوله - صلى الله عليه وسلم - : ( لا تدخلون الجنة حتى تؤمنوا ، ولا تؤمنوا حتى تحابوا أولا أدلكم على شيء إذا فعلتموه تحاببتم : أفشوا السلام بينكم ) وفي الرواية الأخرى : ( والذي نفسي بيده لا تدخلون الجنة حتى تؤمنوا ) هكذا هو في جميع الأصول والروايات ولا تؤمنوا بحذف النون من آخره وهي لغة معروفة صحيحة . وأما معنى الحديث فقوله - صلى الله عليه وسلم - : ولا تؤمنوا حتى تحابوا معناه لا يكمل إيمانكم ولا يصلح حالكم في الإيمان إلا بالتحاب . وأما قوله - صلى الله عليه وسلم - : لا تدخلون الجنة حتى تؤمنوا فهو على ظاهره وإطلاقه فلا يدخل الجنة إلا من مات مؤمنا وإن لم يكن كامل الإيمان ، فهذا هو الظاهر من الحديث . وقال الشيخ أبو عمرو - رحمه [ ص: 228 ] الله - . معنى الحديث لا يكمل إيمانكم إلا بالتحاب . ولا تدخلون الجنة عند دخول أهلها إذا لم تكونوا كذلك . وهذا الذي قاله محتمل . والله أعلم . وأما قوله : ( أفشوا السلام بينكم ) فهو بقطع الهمزة المفتوحة . وفيه الحث العظيم على إفشاء السلام وبذله للمسلمين كلهم ;من عرفت ، ومن لم تعرف ، كما تقدم في الحديث الآخر .والسلام أول أسباب التألف ، ومفتاح استجلاب المودة . وفي إفشائه تمكن ألفة المسلمين بعضهم لبعض ، وإظهار شعارهم المميز لهم من غيرهم من أهل الملل ، مع ما فيه من رياضة النفس ، ولزوم التواضع ، وإعظام حرمات المسلمين وقد ذكرالبخاري - رحمه الله - في صحيحه عن عمار بن ياسر - رضي الله عنه - أنه قال : ( ثلاث من جمعهن فقد جمع الإيمان : الإنصاف من نفسك ، وبذل السلام للعالم ، والإنفاق من الإقتار. روى غير البخاري هذا الكلام مرفوعا إلى النبي - صلى الله عليه وسلم - . وبذل السلام للعالم ، والسلام على من عرفت ومن لم تعرف ، وإفشاء السلام كلها بمعنى واحد . وفيها لطيفة أخرى وهي أنها تتضمن رفع التقاطع والتهاجر والشحناء وفساد ذات البين التي هي الحالقة ، وأن سلامه لله لا يتبع فيه هواه ، ولا يخص أصحابه وأحبابه به . والله سبحانه وتعالى أعلم بالصواب .

أخي الكريم سامي الحميدي جرب الكود التالي عله يفي بالغرض Sub LoopThroughSheets() Dim Ws As Worksheet, Sh As Worksheet, I As Long, Cell As Range Set Ws = Sheet1 For Each Sh In ThisWorkbook.Worksheets For Each Cell In Sh.Range("E7:E" & Sh.Cells(Rows.Count, "B").End(xlUp).Row) If Not IsEmpty(Cell) And IsDate(Cell) And CLng(Date) - CLng(Cell) >= 30 Then Ws.Cells(I + 6, 1).Value = I + 1 Ws.Cells(I + 6, 2).Value = Sh.Name Ws.Cells(I + 6, 3).Value = Cell.Offset(, -3).Value Ws.Cells(I + 6, 4).Value = Cell.Value I = I + 1 End If Next Cell Next Sh End Sub تقبل تحياتي Loop Through Sheets & Check Date Condition YasserKhalil.rar

بسم الله الرحمن الرحيم يا فتّاح يا عليم يا رزّاق يا كريم

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

بسم الله الرحمن الرحيم الحمد لله والصلاة والسلام على اشرف خلق الله سيدنا محمد صلى الله عليه وسلم وعلى اله واصحابة اجمعين اولا:اقدم بكل تواضع هذا الملف البسيط الى الساده المحاسبون ووظيفته اعداد قائمة التدفقات النقديه بالطريقه الغير مباشره لعدد 5 سنوات من خلال ادخال قائمة الدخل والميزانيه . ثانيا : اقدم شكرى لكل القائمين على هذا المنتدى العظيم حيث لايبخلون على احد فى تقديم اى مساعده مهما كانت صغيره او كبيره . اسال الله العلى العظيم ان يجزيهم خيرا قائمة التدفقات النقديه.rar

بسم الله الرحمن الرحيم إخوانى الأعزاء السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم ( سلسلة الفارس فى شرح دوال الإكسل عن طريق الفيديو ) والهدف من هذه السلسلة ( التى أرجو من الله أن أستطيع إكمالها ) هو الآتى : 1- رد جميل هذا المنتدى الذى أدين له ولأساتذته بكل ما لدى من معلومات 2- تقديم مادة علمية شيقة لكل من يحاول تعلم دوال الإكسل تقوم على التفاعل المباشر عن طريق الفيديو لكى يسهل وصول المعلومة فى أبسط صورة 3- صدقة جارية ( أرجو من الله القبول ) وكل ما أرجوه دعوة بظهر الغيب والله من وراء القصد وهو يهدى السبيل بداية السلسلة شرح الدالة IF http://youtu.be/h--yP3NRaQQ if function 1.rar

تحياتى للجميع و اعضاء منتدانا و اهداء خاص و تحية خاصة لصاحب الفضل و العلامة الاستاذ / عبدالله باقشير _ ادام الله عليه وافر الصحة مرفق برنامج يومية و ميزان مراجعة مع الشرح و قد تم دمج دليل حسابات 4 مستويات من اعمال استاذ / عبدالله باقشير مع يومية و ميزان مراجعة فى ملف واحد تم ادخال التعديلات على الملف بعد الدمج ليعطى ترصيد لميزان مراجعة مرن مع طريقة بحث سريعة مهما كبر حجم دليل الحسابات مميزات البرنامج تكويد دليل الحسابات 4 مستويات بفورم _ _ دليل حسابات اربعة مستويات_KH البحث و اضافة الحسابات بفورم بحث و اضافة استدعاء قيد و طباعته كشف حساب بين تاريخين الفضل الاول و الاخير يرجع لمنتدانا و روائع الاستاذ / عبدالله باقشير التى لا تنتهى لمتابعة الاصدار السابق _هدية2_يومية و ميزان_بدليل حسابات_kh_SumProduc_معدلG_2014 و لا تنسونا من صالح الدعاء يومية و ميزان مراجعة_حسابات_معدل_KH_G_ابو ادهم.rar

أخي الحبيب محمد حسن أبو يوسف قم بتجربة المعادلات على ملف مرفق وضع مسافات قبل وبعد الكلمات وجربها ..وشوف النتائج وأخبرنا .. في انتظار التجربة ونتائجها

قم بضغط ملفك ثم قم برفع الملف لتتضح صورة طلبك وتجد استجابة من إخوانك بالمنتدى

حاشا لله أن يعاندني الحق ..أخي الغالي أحمد عاندك حق !!! ومن أنا حتى أقف في وجه الحق .. وفقني الله وإياكم لما فيه الخير والصلاح تقبل هزاري

الأساتذة الكرام / أعضاء المنتدى لا يسعوني إلا أن أتقدم لكم بالشكر وكما قال الرسول الكريم صلى الله عليه وسلم " من قدم لكم معروفا فكافئوه فإن لم تجدوا فقولوا له جزاك الله خيرا " أو كما قال الرسول صلى الله عليه وسلم فجزاكم الله خيرا وعفوا إن كنت قد كلفت عليكم

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

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

ما شاء الله تبارك الله قلت لك انك ساحر .. ما شاء الله تبارك الله Private Sub cmd_Rename_Click() newpathANDname1 = InputBox("Please insert a new name") If Len(newpathANDname1 & "") = 0 Then Exit Sub newpathANDname = Me.lst_Files.Tag & newpathANDname1 & ".jpg" oldpathANDname = Me.lst_Files.Tag & Me.lst_Files.ItemData(Me.lst_Files.ListIndex) 'make a copy of the fie, with the new name FileCopy oldpathANDname, newpathANDname 'select another file in the listbox, so that this file is no longer in-use For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) <> newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'now delete the old file name Kill oldpathANDname 'don't refresh the Form Me.Painting = False 'read the folder files Call Form_Current 'select the same file name For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) = newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'refresh the Form Me.Painting = True End Sub كود عبقري يدرس ..

السلام عليكم أخى ياسر حصلت ألف بركة نشكركم على تشريفكم بمروركم ومتابعتكم أنتم العلماء أما نحن كما يقال بندأدأ لكم وافر احترامى وتقديرى

أخي العزيز سامي الحميدي الحمد لله أن تم المطلوب على خير ..فلله الحمد والفضل والشكر أولاً وأخيراً وجزيت خيراً بمثل ما دعوت لي وزيادة وبوركت على دعائك الطيب تقبل تحياتي

1- مستحيل احد يتريق عليك ... لاننا كلنا هنا لنتعلم .... 2- لو ترفق مثال بسيط ليتمكن الاخوة و الاساتذة الافاضل من مساعدتك ...

تفضل أخي الحل في الملف المرفق رقم الصفحات في الملف.rar

استاذي جعفر .. هل تذكر هذا البرنامج ( الصورة المرفقة )

1. ما عملها ، حيث الصورة تُعرض في النموذج بدون الزر ، 2. يعني انتشر الخبر اني عُماني وساحر وبدون برمجة جعفر

الف الف مليون شكر. المطلوب تماما . الله يجزاك الف خير اخوي . وسلمت ايدك ونفعك بما علمك

اخى ياسر ابوالبراء بالنسبه لموضوع حفظ الصفحات على هيئةصفحة وب انا مع ياسر ابو اسيل فى انك تشتغل على الوورد وتحفظ بامتداد صفحة وب بمعنى index.html لان كده كده اللى يهمك فى الاول والاخر محتوى الصفحه اى الشرح الموجود اشتغل ع الوورد ونسق واحترف فى كل شىء واحفظ بالامتداد ده اه وفى حاجه تانيه من غير ما تنزل الفرونت بيج ل٢٠٠٣ فى عاندك مع الاوفيس اللى عاندك حاجه اسمها انفوباث ولها قسم بالمنتد ى http://www.officena.net/ib/forum/126-انفو-باث-infopath/ وتقريبا برضه ده زيهم اسمه الناشر مع الاوفيس برضه وله قسم هنا http://www.officena.net/ib/forum/145-الناشر-بابليشر-publisher/ زى الفرونت بيج والله اعلى واعلم ده مجرد راى وانت لك مطلق الحريه فى العمل كما تحب بالتوفيق اخى ابوالبراء وجزاك الله كل خير فيما تفكر به للصالح العام من اجل إفادة الاخرين بارك الله فيك وفى وقتك وعملك

السلام عليكم وبعد جهد جهيد ، وللتحدي فقط الاستعلام الرئيسي الذي يقوم بكل شي هو qry_Certificate_ALL2 ، ولكنه لا يعمل بدون النموذج الرئيسي frm_Certificate رجاء لا تمسح ولا استعلام فيه كلمة Certificate ، فكلهم مهمين اما الشكل النهائي للنموذج ، فاتركه لك تعمله بالطريقة التي تريد شكل النموذج الفرعي ، وهذه معاني مسميات المواد: 1= محصلة1 ، 2= نصفي ، 3= محصلة2 ، 4= نهائي ، T= المجموع وتستطيع ان تبحث باي فصل شئت ، ولما حقل الفصل الدراسي يكون فاضي ، فهذا معناه جميع المراحل جعفر 294.المعلم اليمني2.mdb.zip 294.المعلم اليمني2.mdb.zip

أستاذى الفاضل يوسف يسعدنى وجود اى ملاحظات من حضرتك طبعا وان شاء الله يتم مراجعة هذه النقطة ثم الرد ان شاء الله

أستاذنا الكبير رجب جاويش بعد التحية الرجاء إعادة النظر فى مجموع الطالب بعد إمتحان مواد الدور الثانى حيث يفترض التالى فى حالة نجاح الطالب فى الدور الثانى مهما كانت الدرجة التى يحصل عليها الطالب فى إمتحان الدور الثانى فهى ترصد كما هى فى الشيت ولكن لا يحتسب منها فى المجموع الا 50 % فقط كحد أقصى بحيث إذا كان مجموع الطالب الكلى فى الدور الأول أقل من 50 % فمهما كانت درجته فى الدور الثانى فى المادة أو المواد التى إمتحنها فى الدور الثانى فمجموعه الكلى يكون فقط 50 % من النهاية الكبرى لدرجة المجموع الكلى أما لو كان مجموعه فى الدور الأول أكثر من أو يساوى 50 % من النهاية الكبرى للمجموع الكلى ففى هذه الحالة يضاف على مجموعه الكلى الأصلى فقط ما يكمل الـ 50 % فقط فى كل مادة من مواد الدور الثانى أتعشم أن تكون وجهة نظرى وصلت لحضرتك و منكم نستفيد يا أستاذنا القدير

شرح للحل الذي وضعته 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)) مع تحياتي

شرح الحل المقدم اولا:تم عمل قائمة منسدلة فى العمود نوع المورد وهذا رابط يوضح اليك طريقى عمل القائمة المنسدلة اضغط لعرض المزيد ثانيا :تم اعداد معادلة صفيف لفرز المحلى والتصدير فى العمود فى n3 و o3 والبحث عن البيان المرتبط بالقائمة المنسدلة فقط {=IFERROR(INDEX($B$2:$B$31;SMALL(IF($A$2:$A$31=N$2;ROW($A$2:$A$31)-1;"");ROW(1:100)));"")} ثالثا : تم اعداد قائمة منسدلة ووضع هذه المعادله فىها =INDEX($N$3:$O$19;;MATCH($H2;$N$2:$O$2;0)) رابعا : فى عمود المديونية تم اعداد معادلة للبحث عن عن القيم بشرط القوائم المنسدلة {=IFERROR(VLOOKUP($H2;IF(($A$2:$A$31=$H2)*($B$2:$B$31=$I2);$A$2:$C$31;"");3;0);"")} هذا شرح مختصر وارجو ان اكون قد وفقت فى ايصال المعلومه تقبلوا منى جميعا تحياتى

أخي الحبيب الغالي محمد الريفي وأخي الغالي المتميز سليم بارك الله فيكما وجزاكما الله كل خير ... ********** الرسالة إلى كلاكما أخي الحبيب سليم إخواني وأحبابي أكرر ..لا تقدموا الحلول وفقط .. شرح مبسط لما تم عمله بالملف ليستفيد الجميع تقبلوا تحياتي

بعد اذن اخى وحبيبى ابو البراء هذه المعادله لمنع ادخال يوم الجمعه رائيتها مع الاستاذ يحي حسين حدد النطاق وضع المعادله =weekday(a1)<>6 بالتوفيق

انسخ هذه المغادلة الى الخلية C2 و اسحب نزولاً =IF(A2<>"",MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),1,FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))-1)&" "&B2&" "&MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))+1,50),"") او هذه للاسماء المركبة =IF($A2="","",MID(SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)),1,FIND("|",SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)))-1)&" "&B2&" "&MID(SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)),FIND("|",SUBSTITUTE(A2," ","|",IF(LEN(A2)-LEN(SUBSTITUTE(A2," ",""))=1,1,2)))+1,20)) وضع اسم الاب قبل الكنية.rar

انسخ هذه المغادلة الى الخلية C2 و اسحب نزولاً =IF(A2<>"",MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),1,FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))-1)&" "&B2&" "&MID(SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))),FIND("|",SUBSTITUTE(A2," ","|",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))+1,50),"")

السلام عليكم ورحمة الله وبركاته دعوة للتمعن بآيات الله إخوتي الكرام آيتين كريمتين الأولى: أَفَحَسِبْتُمْ أَنَّمَا خَلَقْنَاكُمْ عَبَثًا وَأَنَّكُمْ إِلَيْنَا لَا تُرْجَعُونَ (115) سورة المؤمنون: قوله تعالى : أفحسبتم أنما خلقناكم عبثا وأنكم إلينا لا ترجعون قوله تعالى : أفحسبتم أنما خلقناكم عبثا أي مهملين كما خلقت البهائم لا ثواب لها ولا عقاب عليها ؛ مثل قوله تعالى : أيحسب الإنسان أن يترك سدى يريد كالبهائم مهملا لغير فائدة . قال الترمذي الحكيم أبو عبد الله محمد بن علي : إن الله تعالى خلق الخلق عبيدا ليعبدوه ، فيثيبهم على العبادة ويعاقبهم على تركها ، فإن عبدوه فهم اليوم له عبيد أحرار كرام من رق الدنيا ، ملوك في دار الإسلام ؛ وإن رفضوا العبودية فهم اليوم عبيد أباق سقاط لئام ، وغدا أعداء في السجون بين أطباق النيران . و ( عبثا ) نصب على الحال عند سيبويه وقطرب . وقال أبو عبيدة : هو نصب على المصدر أو لأنه مفعول له . وأنكم إلينا لا ترجعون فتجازون بأعمالكم . قرأ حمزة ، والكسائي ترجعون بفتح التاء وكسر الجيم من الرجوع . الثانية: أَيَحْسَبُ الْإِنسَانُ أَن يُتْرَكَ سُدًى (36)سورة القيامة: قوله تعالى : أيحسب الإنسان أي يظن ابن آدم أن يترك سدى أي أن يخلى مهملا ، فلا يؤمر ولا ينهى ; قاله ابن زيد ومجاهد ، ومنه إبل سدى : ترعى بلا راع . وقيل : أيحسب أن يترك في قبره كذلك أبدا لا يبعث . وقال الشاعر : فأقسم بالله جهد اليمين ما ترك الله شيئا سدى أخوكم أبو يوسف عن موقع(مشروع المصحف الإلكتروني)...

أخي الكريم حسين بلال اطرح الفكرة التي تريد طرحها ..هنا في الموضوع وسنوافيك بإمكانية طرح الموضوع من عدمه تقبل تحياتي

اتفضل ادخل هنا الفريق الادارى للموقع هتلاقى فيه مشرفين ومديرين وخبراء قسم الاكسيل بالتوفيق اخى

أخي وحبيبي في الله الأستاذ الكبير عبد الباري .. أنت الأستاذ وأنا التلميذ ... وأشكرك على كلماتك الرقيقة في حقي والتي لا أستحقها أبدا إن أعمالك تنم عن أستاذ كبير لا يستهان بقدراته أبدا وكان كلامي مجرد رأي شخصي ، ولكن أقصد منه المصلحة العامة ، حيث أن العاملين على هذه البرامج يهمهم في المقام الأول أن يؤدي البرنامج كل المطلوب وأن يكون البرنامج خفيف وسريع في التعامل مما يسهل العمل عليه ... تقبل تحياتي

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

اين كشوف المناداه ؟ اين ارقام الجلوس ؟ اين كشوف رصد ملف الانجاز ؟ اين الله يجزيك الخير

مجهود تشكر عليه ولكن اخي الكريم الم تعلم ان اغلب كمبيوترات المدارس تعمل على 2003 وكثره الباسوردات تجعل العمل غير محبب اجعل الباسوورد رقم 1 في اي شيء يبقى سهل واللي عايز يغيره يغير جزاك الله الف خير وبارك فيك عايزين من هذا العمل الرائع نسخه 2003

يكفينا منك أخي وحبيببي وأستاذي طارق مرورك بالموضوع فهذا شرف لنا جميعاً ، وكلماتك تعتبر محفزة لنا على المضي قدماً في المشروع ولن أطلب منك أكواد ، طالما أن وقتك لا يسمح ولكن إذا سمح وقتك ، فأطلب منك ألا تنسانا والحمد لله أنك فكرت بكودين ووجدتهما بالمكتبة (هذا في حد ذاته يعتبر إنجاز كبير للمشروع ...لقد بدأت زهوره تتفتح) مشكور على مروك العطر يا باشمهندس ، وبارك الله فيك