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

السلام عليكم الشروط عندك في المعادلة (من نص موضوعك) وفي المعادلة في ردك الأخير مختلفة (متناقضة) فمثلا : حالة "مبدع" في المعادلة الأولى شرطها Z7>=100 وفي المعادلة الثانية Z7<=100... والمعادلات التي تم اقتراحها أو تصحيحها صالحة لنطاقات أعداد بين رقمين كما تريدها أنت... الشرط الذي وضعته في معادلتك الأخيرة AND(Z74<=89, Z74<=70) يمكن تعويضه بـ Z74<=70 فقط، أي ليس معناه قيمة محصورة بين 70 و 89 إنما معناه قيمة أقل من 70... وبالتالي فالمعادلة لا تفي بالغرض المطلوب... والمعادلة التي اقترحها الأخ أبو عبد الإله تفي بالغرض المطلوب وزيادة ويتعين عليك تحديد نطاقات الأعداد في الجزئية {0,70,90,100} حسب الشرح الذي قدمه مع المعادلة... بن علية

السلام عليكم ورحمة الله أو قم بالتعديل على معادلتك بالكيفية التالية: =IF(Z7>=100,"مبدع",IF(Z7>=90,"اجتاز",IF(Z7>=70,"ناجح","لاشي"))) بن علية

السلام عليكم ورحمة الله وبركاته حسي ما فهمت من 0 إلى 69 لاشيء 70 إلى 89 ناجح 90 إلى 99 اجتاز 100 مبدع تفضل إن كان فهمي صحيحا : =LOOKUP(Z7;{0,70,90,100};{"لاشيء","ناجح","اجتاز","مبدع"})

بارك الله فيك أخي العزيز أبو عبد الباري اسمح لي بالتعديل قليلاً على الكود المقدم منكم حيث تم جمع الشروط في جملة Select Case لثلاثة شروط كنوع من الاختصار (وكمعلومة جديدة للأخوة الأعضاء) Sub Test() Dim I As Integer, Last As Integer Last = Cells(Rows.Count, "D").End(xlUp).Row For I = 6 To Last Select Case Range("M" & I) Case "ناجح" Range("O" & I) = 1 Case "مكمل بدرس", "مكمل بدرسين", "مكمل بثلاث دروس" Range("O" & I) = 2 Case "راسب" Range("O" & I) = 3 End Select Next I End Sub تقبلوا تحياتي

أخي الكريم أحمد جرب الكود التالي عله يفي بالغرض (راعي أن تكون أسماء أوراق العمل كما في العمود الثالث .. حيث وجدت ورقة العمل صنف 1 مكتوبة بمسافة بعد كلمة صنف .. ولذا يجب أن تكون كما باقي أوراق العمل صنف1 بدون مسافة بينهما) Sub Test() Dim Ws As Worksheet Dim cel As Range Dim LR As Long Dim Last As Long Set Ws = Sheet1 LR = Ws.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False For Each cel In Ws.Range("C2:C" & LR) On Error Resume Next Last = Sheets(cel.Value).Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets(cel.Value).Range("A" & Last).Resize(1, 7).Value = Ws.Range("A" & cel.Row).Resize(1, 7).Value Next cel Application.ScreenUpdating = True End Sub تقبل تحياتي

السلام عليكم أيها الاخوه , غالبا ما يكون لدينا جدول فيه أحد الحقول مرتبط بحقل آخر في جدول ثاني , و نريد أن نستعرض البيانات التابعه لهذا الحقل من الجدول الآخر ضمن نفس الجدول الذي نحن فيه , مثلا : لدينا قاعدة بيانات فيها جدولين : جدول اسماء الدبلومات الجامعيه - و يتألف من حقلين : رقم الدبلوم - اسم الدبلوم جدول حركة الطلاب و يحتوي الحقول التاليه رقم مسلسل - رقم الطالب - رقم الدبلوم الآن نريد من خلال حقل رقم الدبلوم من هذا الجدول استعراض اسم الدبلوم من الجدول الثاني و يتم ذلك كما يلي : ضع المؤشر على اسم الحقل المطلوب و هو هنا اسم الدبلوم ( بعد تغييره الى رقم ) , تجد في الأسفل مربعين الأول تنسيق – الثاني بحث , اضغط على زر البحث , ثم اختر مربع تحرير و سرد فتظهر مجموعة حقول من الحقل الثالث و الذي اسمه مصدر عناصر البيانات اضغط على النقاط الثلاث بجنب بعض فيظهر لك صفحة تصميم استعلام جديد , اختر منها الجدول دبلومات و اختر منه الحقلين : رقم الدبلوم – اسم الدبلوم ثم اغلق الاستعلام من مربع الاغلاق مباشرة و بدون حفظ , فتظهر رساله تفيد بأنه تم تغيير مصدر عناصر البيانات هل تريد الحفظ , اختر نعم , فيرجع المؤشر الى الحقول الأولى التي كنا فيها , من السطر الخامس , عدد الأعمده , اختر قيمتها تساوي 2 بدلا من 1 ثم من السطر السابع عرض الأعمده , اجعل القيمه كما يلي : 0cm;2.5cm ثم احفظ , الجدول افتح الآن جدول المواد في صفحة ادخال بيانات و حاول ادخال أي سجل جديد , تجد في حقل رقم الدبلوم يظهر لك اسم الدبلوم مباشرة مع أنه يحفظ رقم الدبلوم و فيما يلي بيان تفصيلي بالرسم للشرح أعلاه MakeFiledCombo.rar

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

اخواني الافاضل ارجو من الله ثم منكم مساعدتي عندي جدول شئون موظفين فيه بيانات الموظف وجدول رواتب الوظفين فيه متغيرات الموظف الشهرية وفيه حقل رقم السند وهو بخاصية المفتاح الاساسي وكمان رقمي ليس ترقيم تلقائي وكمان غير قابل للتكرار وبعمل كل شهر استعلام الحاق لنقل جميع الموظفين من الجدول الاول الي الجدول التاني بس مش قابل لان حقل رقم السند مش قابل انه يتكرر فايه الطريقة او ايه اللي ممكن احطه في الاستعلام بحيث يشوف اخر رقم سنده ويضيف عليه 1 عشان مش يتكرر ارجو مساعدتي مع الشهر

=IF((C2-INT(C2))>0.75;(INT(C2)+1);LOOKUP((C2-INT(C2));{0,0.25,0.5,0.75};{0,0.25,0.5,0.75})+(INT(C2))) او جرب المعادلة التالية

اسمحوا لي باضافة هذا الكود Sub EXEMLPE() i = 6 Do Until Cells(i, "M") = Empty With Cells(i, "M") If .Value = "ناجح" Then x = 1 Else x = 0 If .Value = "مكمل بدرس" Then y = 2 Else y = 0 If .Value = "مكمل بدرسين" Then t = 2 Else t = 0 If .Value = "مكمل بثلاث دروس" Then m = 2 Else m = 0 If .Value = "راسب" Then Z = 3 Else Z = 0 End With Cells(i, "O") = Application.Max(x, y, Z, m, t) i = i + 1 Loop End Sub ود

جرب التعديل البسيط على معادلة أخونا الرائع سليم =IF($B8<>"",IF(OR(MOD($B8/12,1)<3/10,MOD($B8/12,1)<6/10,MOD($B8/12,1)<9/10),FLOOR($B8/12,0.25),CEILING($B8/12,0.5)),"")

لا عدمناك يا رجل .. و لا حرمك الله أجر نفع الناس فقط يوجد ملاحظة واحدة و هي أن الدالة تحول ال 5 إلى 0.25 و المطلوب تحويل ال 5 إلى 0.5 نصف درزن

حرب هذه المعادلة في الخلية C2 واسحب نزولا" =IF($B2<>"",IF(OR(MOD($B2/12,1)<3/10,MOD($B2/12,1)<6/10,MOD($B2/12,1)<9/10),FLOOR($B2/12,0.25),CEILING($B2/12,0.25)),"")

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

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

الأخ الكريم ياسر خليل أبو البراء أوفيت وأوجزت (علمني الصيد خير من ان تعطيني سمكه كل يوم ) abo_abary_المقارنة2.rar

اخى الكريم ياسر خليل أبو البراء تعودنا فى هذا الصرح الشامخ ومن اساذتنا ان نتعلم كل يوم المزيد لك كل الشكر وشكرا لمرورك العطر .

جرب هذا الملف المصنف2 Salim.rar

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

السلام عليكم الملف ينقصه البيانات...

السلام عليكم ممكن حفظكم الله منع تكرار الترحيل اذا كانت البيانات متشابه مع الاحتفاظ بالبيانات في شيت يومية عامة جزيتم خيرا

تفضل الحل Filter_for_me.rar

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

مجدداً بعض المعادلات التي تتعلق بالتاريخ عسى ان تنال الاعجاب exacte d m y.rar

أخي الكريم حسين لما لا تطرح موضوع جديد بطلبك الجديد لتجد الاستجابة من إخوانك بالمنتدى يفضل طرح موضوع جديد لطلب واحد فقط + ملف مرفق + شرح بالتفصيل للمطلوب

جرب المرفق 2.rar

مشكور لكلماتك الرقيقة الملف يعمل عندي ولكن جرب هذا الملف abo_abary_اضافة ارقام بشرط.rar

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

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

اخى الكريمعامر ياسر واثراءاً للموضوع جرب الملف التالى لعلك تجد فيه غايتك abo_abary_اضافة ارقام بشرط.rar

انظر هنا. ولكن استخدم في حالتك: \# "0.0" بدلاً من: \# "0.00"

جرب هذا الملف يمكنك اختيار التصفية حسب الاسم / اسم الاب / او اسم الام القوائم المنسدلة في الخلايا E1 I1 & M1 مطاطة (تستجيب لأي تغيير في البيانات ولا تذكر المكرر الا مرة واحدة تتسع لغاية 100 اسم) ويمكن الزيادة عسى ان يكون المطلوب تحياتي Nam_Pap_Mam.rar

جرب الكود بهذا الشكل Sub Test() Range("C1:C5").Value = Date End Sub ويمكن تعيين مقتاح إختصار لتنفيذ الكود (ولكن يجب الابتعاد عن الاحتصارات المعروفة فالـ Ctrl + S تستخدم لحفظ المصنف .. يمكن استخدام Ctrl + Shift + S بدلاً منها)

جرب أخي الكريم المرفق التالي تسجيل.rar

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

السلام عليكم كل عام وانتم بخير الشكر واصل لجميع المشاركين.....حفظكم الله معادلة الاخ الفاضل محمد عبد الغني اوحت لي هذه المعادلة البسيطة =VALUE(TRIM(SUBSTITUTE(B2;CHAR(160);""))) ارجوا ان فيها الفائدة تحياتي

السلام عليكم عملنا دالة بكود ادناه لاستخلاص التاريخ الهجري من النص وتحويله الى ميلادي Option Explicit Function kh_HijToMilady(Textdate As String) Dim dt As String Dim kh_Calendar As Integer dt = Trim(Mid(Textdate, InStr(Textdate, " "), 255)) dt = Replace(dt, "هـ", "") kh_Calendar = Calendar Calendar = vbCalHijri If IsDate(dt) Then kh_HijToMilady = CDate(dt) Calendar = kh_Calendar End Function شاهد المرفق2003 تحويل التاريخ الهجري الى ميلادي.rar

ثالثا : النماذج أنواع النماذج و طريقة انشاءها بواسطة المعالج التحكم في عدد سجلات النموذج الفرعي كود منع تكرار السجلات في النموذج كيفية طباعة سجل محدد من النموذج الفرعي كود لاضافة عنصر الى قائمة مربع التحرير و السرد كيفية منع المستخدم من اغلاق النموذج الا من خلال زر خاص كيفية عمل شريط القوائم كيفية فتح النموذج عند آخر سجل تم تحريره كيفية الحصول على الأرقام الشاغره بين رقمين كود لاضافة أرقام محصورة بين رقمين تلقائيا كيفية فتح نموذج آخر على قيمة معادله لها في النموذج الحالي مثال على الفهرسه اختيار الحروف كيفية مواصلة تنفيذ الكود بعد اغلاق نموذج يستدعى ضمنه كيفية تعطيل زر أمر بعد الضغط عليه مباشرة بحث تلقائي عن قيمة ضمن لائحة قيم List-Box تنسيق حجم النموذج ليتناسب مع حجم عناصره كيفية اعادة ضبط حجم النموذج حسب حجم الشاشة و دقتها كيفية اعادة ترقيم سجلات حقل بناء على قيمه معينه كيفية الغاء سجلات قديمه اذا وصل عدد السجلات الكلي الى رقم معين اعطاء رقم في النموذج ( ف ) يحسب بموجبه مجموع آخر ( ف ) سجل من الجدول تشغيل كود أو تعطيله من خلال زر أمر كود لاخفاء الحقول الفارغه في النموذج كود لتحديد حد أقصى لعدد أحرف مربع النص عند الادخال المجموع التراكمي في النموذج ما هي العلاقه البرمجيه بين مربع النص و العنوان المرافق له تحريك الكائنات ضمن النموذج مجموع نموذج فرعي في نموذج رئيسي ادراج صوره في النموذج كيفية فتح نموذج له مصدر بيانات مختلف في كل مره كيفية فتح نموذج في قاعدة بيانات أخرى كيفية ادراج وقت متناقص في النموذج كيفية عرض سجل بلون و الآخر بلون في النماذج المستمرة كيفية عمل تلميح يومي يتغير في كل مرة تفتح فيها النموذج مثال على شريط التقدم - نموذج يرجى الانتظار مثال لاخفاء و اظهار شريط الأزرار على النموذج استخدام الزخارف يؤدي لاهتزاز عناصر النموذج استخدام شروط في قاعدة التحقق من الصحه تغيير عنوان النموذج حسب قيمة الزر الذي يفتحه تحديد احدائيات النموذج على الشاشه التحكم في أعمدة و صفوف النموذج الفرعي ربط نموذجين بالكود كود جعل النموذج متاح للاضافة فقط و يقبل التعديل بكلمة سر