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

تفضل ... جمعية خيرية.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) هنا فى الموقع لا نسمح بانتهاك حقوق الملكية الفكرية نعتذر عن عدم تلبية طلبك ، و سيتم اغلاق الموضوع

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

تم التعديل Sub Other_Macro() Range("A4").CurrentRegion.Sort Key1:=Range("C4"), _ Order1:=1, Key2:=Range("D4"), Order2:=1, Header:=1 End Sub

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

الشكر لله استاذ @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

بعد ازالة الضفوف الفارغة من الجدول (ضروري جداً حتى يعرف الاكسل اننا نتعامل مع جدول كامل ) جرب هذا الماكرو Sub Sort_me() Range("A4").Sort Key1:=Range("C4"), _ Order1:=xlDescending, Key1:=Range("d4"), _ Order2:=xlDescending, Header:=xlYes End Sub

اعتذارى للجميع على سوء التفاهم الذى حدث منى

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

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

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

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

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

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

Me.Recordset.FindFirst "[inv_id_h] = 0 And [inv_type_h] = 2" Me.Recordset.FindFirst "[inv_id_h] = " & Me.inv_id_h & " And [inv_type_h] = " & Me.inv_type_h & "" شغال ، جرب المرفق مثال اوفيسنا الانتقال الى سجل محدد 2.accdb

السلام عليكم اخواني الاعزاء لقد افردت الشرح في موضوع مستقل وهذا رابطه https://www.officena.net/ib/topic/103170-مشاركة-قاعدة-البيانات-علي-الانترنت-بدلا-من-الشبكة-الداخليه/

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

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

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

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

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

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

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

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

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