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

تفضل ... جمعية خيرية.accdb

تفضل .... New (1).rar

في الحقل النموذج الرئيسي اجعل قيمته تساوي =IIf(Not IsNull([m]);DSum("[a]*[b]";"جدول3";"[المعرف1]=" & [المعرف] & "and [se]=-1");0) في حدث بعد التحديل للحقل se Forms![ÌÏæá2].Refresh النلف مرفق واختبرة زين راسي مصدع وعملتة بشكل سريع بدون اختبار للتأكد time(1).accdb

بالامكان التحكم بابعاد النموذج الطول والعرض عن طريق الكود في حدث عند الفتح Me.InsideHeight = 7500 Me.InsideWidth = 7000 او هكذا Me.Form.InsideHeight =7500 Me.Form.InsideWidth = 7000 غير الرقم وفقا للحجم المناسب للفورم ارتفاع.accdb

حياك الله .... بالتوفيق

New (1).rar

تفضل ... New (1).rar

كلنا في نفس الطريق ههههههه كم خطأ املائي في مشاركتي السابقة هذا بعد التعديل 😭

جزاك الله خيرا اخى واستاذى خالد @kha9009lid 💐 كنت على وشك رفع المثال ووجدتك رفعت نفس الحل الا اننى قد اغفلت شرط المعرف 😀 ع ما يبدو اننى مازلت نائم ههههههه

بعد اذن استاد سليم جربي هذا الملف حماية اعمدة محددة بالكود‬.xls

ممكن تجربة هذا الملف Prevent Type in non_empty.xlsm

بعذ اذن استادنا الكبير سليم واثراء للموضوع Sub coundat() Dim lrD As Long Dim lrC As Long Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("ورقة1") 'change as needed lrD = ws.Range("D" & Rows.Count).End(xlUp).Row lrC = ws.Range("C" & Rows.Count).End(xlUp).Row If lrD >= lrC Then Exit Sub With Range(Range("D" & lrD), Range("D" & lrC)) .Formula = "=Today()-C" & lrD .Value = .Value .NumberFormat = "General" End With End Sub الايام المتبقية.xlsm

جرب هذا الكود Option Explicit Private Sub Workbook_Open() With Sheets("ورقة1") .Select If .Range("A1").CurrentRegion.Rows.Count = 1 Then Exit Sub .Range("A1").CurrentRegion.Offset(1). _ Resize(Range("A1").CurrentRegion.Rows.Count - 1) _ .Columns(4).Formula = _ "=IF(AND(C2>=TODAY(),C2<>""""),C2-TODAY(),"""")" .Range("A1").CurrentRegion.Value = _ .Range("A1").CurrentRegion.Value End With End Sub الملف مرفق Autodate.xlsm

شكرا استاذ

بارك الله فيك اخي

وعليكم السلام اخى الفاضل يرجى وضع مثال لما تريد اتفضل هل هذا ما تريد؟ جدول ITEMS به حقل c قيمته 0 التقرير مبنى على الاستعلام q استعلام التحديث مبنى على الاستعلام q عند الطباعه بنشيك على الحقل c اذا كان قيمته 0 بنطبع ويتم تحديث 0 الى 1 فعند الضغط ع زر الطباعه مره اخرى تظهر الرساله تخبرنا انه تم الطباعه من قبل هذا مثال يمكنك فهم الفكره وتطويره حتى يتناسب مع ملفك بالتوفيق اخى test.accdb

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد ؟ DSum("nummed";"MED";"idlad=" & [idlad] & "and [TYPEMED ]='onestar '") azhr_test_ahmed (4) (1).accdb

بسم الله الرحمن الرحيم السلام عليكم اخواني الكرام الموضوع كيف يعامل مجموعة مستخدمين مع قاعدة البيانات من خلال الانترنت بدلا من الشبكة المحلية ( الداخلية ) لتباعد المسافات بين المستخدمين الفكرة سهلة كنا بنجمع الاجهزة علي الشبكة المحلية عن طريق وسيط وهو اسلاك بتربط الاجهزة ببعضها خلاص بيقي عايزين وسيط غير الاسلاك الوسيط هو موقع وله برنامج هننزله عنوان الموقع https://my.zerotier.com/login صفحة تحميل البرنامج https://www.zerotier.com/download/ 1 – نحمل البرنامج من صفحة التحميل 2 – نسطب البرنامج زي اي برنامج نسيب البرنامج بقي كدة خلاص نروح الموقع ونسجل فيه ندوس علي المربع الاصفر دي الصورة طبعا احنا عضو جديد ندوس علي ريجستر زي الصورة 1 2 اذهب الي الايميل بتاعك وفعل العضوية بعد ما تفعل العضوية هيدخلك علي الصفحة دي دوس علي نتوورك زي الصورة من اول هنا بقي يبدأ الجد ركز مع الصور اتبع الارقام الموجودة علي الصورة ونفذ الموجود بها وتوصل لرقم 3 وتضغط كما هو موضح بالصورة هيدخلك علي الصورة اللي جاية -- دي صفحة اعدادات الشبكة بتاعتك اتبع ما جاء بالصورة انسخ الرقم وضعه كما في الصورة القادمة كدة شبكتك تمام وجاهزة للشغل بس فيه سؤال هو كل واحد من المستخدمين هيعمل الدوشه دي كلها ؟؟؟ الاجابة : لا طبعا دي انت بس علشان انت صاحب الشبكة اما المستخدمين يعني الاجهزة التانية يا دوب هيسطب البرنامج ويحط الرقم اللي انت اديتهوله وهو بالنسبة للشبكة دي اللي عملناها دلوقت 885033839097d605 وكل شبكة طبعا ارقامها بتختلف عن غيرها أي واحد هيسطب البرنامج ويضيف الرقم ده في مكانه مثل الصورة وانا اقبله من عندي يبقي مشترك معايا علي الشبكة وممكن احذفه واضيف غيره يعني الاضافة والحذف براحتك سؤال تاني هو كام جهاز ممكن يشتركوا في الشبكة بتاعتي ؟ طبعا لان حضرتك عضو مجاني عندهم لك تضيف لغاية 100 جهار بعد كدة بفلوس طبعا انت مش محتاج كل ده المشاريع الصغيرة اللي عندنا يا دوب من 3 : 10 اجهزة يعني انت تبعنا في ابو بلاش ------------------------------------------------------------------------------------------------------------------------------------------------------------- كدة اللي فاضل نجهز قاعدة البيانات ونقسمها ونشيرها نفتح قاعدة البيانات بتاعتنا حدد مكان التقسيم في جهازك وخلاص اتقسمت اصبحت جزء باسم قاعدة البيانات لو اسمها مثلا ( اشرف ) والجزء الثاني اشرف ) وهو ده اللي فيه الجداول ده هو اللي هيتشير فقط _be ( يفضل اعدادات الشير – شوف يا باشا دي سهلة بس ركز مع الصور في جهازك روح علي Control Panel Network and Internet Network and Sharing Center Advanced sharing settings تلاقيها بالشكل ده يفضل ازاي نشير قاعدة البيانات اول حاجة نضع جزء الجداول في مجلد ونسميه اي حاجة ثم نضغط كليك يمين علي المجلد ونختار Give access to Specific people بكدة يبقي احنا شيرنا الملف اللي فيه الجداول نعطي بقي نسخة من الجزء الثاني من قاعدة البيانات للاحهزة المراد ضمها للشبكة وكل مستخدم يعدل مسار الجداول المرتبطة علي مكان الشير في جهازك اللي يعتبر سيرفر للتجربة انا مشير نموذج علي جهازي اللي عايز يجرب اولا يحمل البرنامج ويسطبه كما في الصور اعلاه ويضع الرقم 885033839097d605 وانا ان شاء الله هقبل اضافته للشبكة اللي عملناها دي ولما اقبله جهازي هيظهر عنده باسم اشرف ويحمل النموذج من الموضوع هنا ونتواصل مع بعض علي القاعدة دي عن بعد و يمكن من بلاد مختلفة لتوضيح الفكرة ولمعرفة سرعة استجابة القاعدة في التعامل وذلك بعد العاشرة مساء بتوقيت القاهرة او لما تلاقيني متواجد بالموقع ولمدة يومين فقط للتجربة بعدها ساغلق الشبكة ملاحظة : الجهاز اللي متشيره عليه الجداول يعتبر زي سيرفر يعني لو مغلق او النت مفصول فلا يمكن التواصل انتهي الموضوع اتمني ان يعجبكم اسف علي الاطالة لكن كان لازم التفصيل احتراما وتقديرا لطلب الاساتذة ( حلبي - Barna - أحمد الفلاحجى - الأمير هشام ) واي استفسارات انا معاكم ان شاء الله اشرف.accdb

أنت عملت في التقرير control Source لمربع نوع الانذار الكود السابق وهو تقريبا صحيح لكن طبعا لن يتم تنفيذه لأن الشرط في جميع حالات Switch يحتوي على معامل مقارنة + قيمة المقارنة ولكن لا يحتوى على العنصر المراد تطبيق الشرط عليه بمعنى اكتبه في التقرير هكذا : =Switch([S]>=26;"راسب بسبب الغياب";[S]>=25;"انذار نهائي";[S]>=20;"إنذار رابع";[S]>=15;"إنذار ثالث";[S]>=10;"إنذار ثاني";[S]>=5;"انذار اول") وفي الاستعلام هكذا : A: Switch([All_Sum]>=26;"راسب بسبب الغياب";[All_Sum]>=25;"انذار نهائي";[All_Sum]>=20;"إنذار رابع";[All_Sum]>=15;"إنذار ثالث";[All_Sum]>=10;"إنذار ثاني";[All_Sum]>=5;"انذار اول")

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP(H7,$B$9:$C$13,2,0),"") 1mohd.xlsx

جربي هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:j4")) Is Nothing Then _ Range("a5").Select End Sub الملف مرفق Protect_without_Protect.xlsm

لكن طريقة حماية الصفخة نخسرنا الكثير من مميزات اكسل

تم قسمة مجموع الهروب على 4 راجع النتيجة غياب 7.mdb

الله يصلح حالك ويجازيك كل خير 💐

ربنا يكرمك يارب من خير موقع أوفيسينا

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

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

شكراً اخي هذا هو المطلوب بارك الله بجهودك

الشكر لله استاذ @warvin raviny 🌹

يمكنك استخدام معادلة المصفوفة لإيجاد أقل قيمة (Ctrl+Shift+Enter) =MIN(IF((ALL!$A:$A=$A2),ALL!$D:$D,"")) ولأكبر قيمة استخدام هذه المعادلة =MAX(IF((ALL!$A:$A=$A2),ALL!$F:$F,"")) AnnualVacation1.xlsx

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

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

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

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

جرب المرفق AA1.mdb

بالتوفيق ....

استخدم هذا الكود a=nz([Text1];"لم يباشر")

السلام عليكم مشاركة مع استاذنا ابو ياسين ملاحظة : الكود تعديل على كود الاستاذ ابو ياسين test (2).rar

تم الحل بهذا الكود للاستاذ المبدع @محمد احمد لطفى Application.SetOption "Auto compact", True

جرب هذا الملف (نموذج عما تريد) مع امكانية تغيير مفدار الضريبة والحدين الافصى والادنى Taks.xlsx

السلام عليكم 🙂 تم مراجعة قوانين المنتدى الى هذه : جعفر

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

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

جرب هذا الملف Joulous.xlsm

بعد كل نوع فقط ضع OR

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

السلام عليكم إخواني الكرام .. ***************************** الشكر موصول للأخ الفاضل شوقي ربيع ، والذي له الفضل بعد الله عزوجل في إلهامي بهذا الموضوع إلى مدخلي البيانات في موقع وزارة التربية والتعليم .. بشرى !! هل عانيت من تكرار كتابة اسم المستخدم والرقم المسلسل وكلمة السر .. والموقع أحيانا لا يقبل بالبيانات وتضطر إلى إعادة الكرة من جديد .. وبعد العمل على الموقع لبعض الوقت تجد نفسك خارج الموقع مرة أخرى ... الآن أصبح بمقدورك الدخول على الموقع عن طريق الإكسيل .. بضغطة زر واحدة .. نعم بنقرة واحدة فقط تدخل الموقع ... ومش بس كدا هيقفلك صفحة الدخول (إغلاق الصفحة) ومش بس كدا هيضغطلك على (تعديل بيانات التلميذ) لتجد نفسك أمام القائمة الأولى للصف الأول ... كل ذلك بنقرة واحدة إلى العمل : أولا قم بتحميل البرنامج المرفق في الرابط أسفل الموضوع ثانيا قم بتنصيب البرنامج ... بعد الانتهاء من التنصيب قم بالدخول على محرر الأكواد بالفيجوال بيسك ومن قائمة Tools قم بإضافة المكتبات : SeleniumWrapper Type Library قم بإدراج موديول جديد ثم أضف الكود التالي : كل ما عليك عمله أن تضع بيانات مدرستك في الخلايا B1 لاسم المستخدم ، وC1 للرقم المسلسل ، و D1 لكلمة السر .. يمكنك أن تسبتدل الجزء في الكود Range("B1") مثلا لكتابة اسم المستخدم مباشرة في الكود ، ولكن لا تنسى أقواس التنصيص... بعد تنفيذ الكود سيقوم الكود بفتح الفايرفوكس نيابة عنك وإدخال بياناتك نيابة عنك والضغط على إغلاق الصفحة نيابة عنك والضغط على تعديل بيانات التلميذ نيابة عنك ... رابط البرنامج اضغط هنا للتحميل لا تنسونا من صالح دعائكم Test.rar

اخى الكريم كاسر الامواج والاخ الكريم صالح جرب المرفق تم التعديل على الكود ليناسب مطلبكم عند التعديل سيطلب رقم سرى وهو 123 ويمكنك تغييره ان شئت من خلال هذا السطر بالكود x = "123" تقبلوا تحياتى Book1.zip

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب أبو أحمد، يمكنك استعمال المعادلة التالية في الخلية B1 : =SUMPRODUCT((A3:A11=A1)*(B3:B11)) كما في الملف المرفق... أخوك بن علية SUMPRODUCT بدل VLOOKUP.rar

السلام عليكم أخي جبريل مرفق حل سريع يوجد دالة من دوال الإكسل مخصصة لهذا الغرض ولكنها تتعامل مع الأرقام وليس مع الحروف هي دالة MODE لذلك يمكنك التحايل علي ذلك كالتالي تستبدل كل حرف من حروف الإتجاه برقم مثلا 1 = E 2 = W 3 = N 4 = S عن طريق Ctrl-h كما فعلت أنا في المثال المرفق في الورقة الثانية ثم تستخدم الدالة MODE ومن الممكن أن تستبدل مرة أخري كل رقم بحرف من حروف الإتجاه تفضل المرفق الجزء الثاني من السؤال غير واضح اكبر قيمة مكررة.rar