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

تفضل ... جمعية خيرية.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

أنت عملت في التقرير 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

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

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

ممتاز اخي عبد الفتاح لكن لا بد من وضع شرط ان تكون الخاية C أكبر من تاريخ اليوم وان لا تكون فارغة والا سيظهر لك خطأ

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

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

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

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

10/10 حفظك الله ورعاك وجزاك الله عنا خير الجزاء بوركت استاذ

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

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

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

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

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

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

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

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

جهازك أصيب بأحد أنواع البرمجيات الخبيثة Malware اختصار ل Malicious Software وهذا النوع يسمى : فيروسات الفدية Ransomware و يقوم بالدخول الي جهازك و تشفير ملفاتك علي القرص الصلب و يطلب منك فدية او مال لفك تشفير ملفاتك وعندما تتواصل إما تدفع الفدية وتحصل علي مفتاح فك التشفير وإما تتعرض لضرر أكبر وعملية نصب واختراق جديد وبرامج الحماية من الفيروسات المفترض لا تزيل الفيروسات فقط وإنما تحتوى على أدوات لازالة باقي أنواع المالوير Malware والمعروف منها : Virus Worm Trojan Spyware Adware Crimeware Crapware Bot والحل : أقترح تبحث في الانترنت عن أداة لإزالة Ransomware pezi أو قم بتحميل برنامج قوي للحماية من الفيروسات أو نظام تشغيل به جدار ناري محدث Firewall وبعض الأحيان تجد ملفات تم تغيير امتداداها ولم يحدث لها تشفير لكن هذا احتمال ضعيف بس جرب تغير الامتداد مش هتخصر حاجة

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

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

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

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

السلام عليكم أخي الكريم بعد خليتي الأساسي والحافز في الخلية C1 ضع هذه المعادلة وإن شئت نزولاً اسحبها لتحصل على النتائج المرجوة بإذن الله تعالى وقم بتحديد التنسيق نسبة مئوية % =IF(SUM(A1:B1)>=5000;0.08;IF(SUM(A1:B1)>=1000;0.075;IF(SUM(A1:B1)>=500;0.07;IF(SUM(A1:B1)>=250;0.065;IF(SUM(A1:B1)>=50;0.06;"معفاة"))))) تقبل تحياتي العطرة والسلام عليكم

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

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

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

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

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

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

السلام عليكم اخوانى ورحمة الله وبركاته اليوم أقدم لكم كودا تستطيع من خلاله حماية الشيت ( بكلمة سر أو بدون ) مع ترك نطاق محدد مسموح للمستخدم بتعديله الطريقة التى أعتمد عليها AllowEditRanges والتى تسمح لمستخدمى اكسل التعديل فى نطاقات محددة رغم وجود حماية على الشيت لاحظ أيضا أنه يمكن عمل رقم سرى خاص بالنطاق المسموح بالتعديل عليه بخلاف الرقم السرى الخاص بحماية الشيت ان وجد . الكود وعليه الشرح وبعض الملاحظات : Sub ProtectSheetExceptRange() ' Protect ActiveSheet , but allow user edit Range("A1:A4,B1:D1") ' By Mokhtar 11/10/2015 On Error Resume Next ' فى حالة حدوث خطأ تجاهله وانتقل للأمر التالى ' تحديد اسم الزر المشغل للكود فى حالة حماية الشيت النشط With ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame2.TextRange.Characters If .Text = "Protect ActiveSheet Except" Then .Text = "UnProtect ActiveSheet " ' حذف النطاق الاول المسموح بالتعديل فيه فى الشيت ActiveSheet.Protection.AllowEditRanges(1).Delete ' تحديد اسم و مدى النطاق المراد التعديل فيه أثناء حماية الشيت ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=Range("A1:A4,B1:D1") ' فى حالة الرغبة فى حماية النطاق المراد التعديل عليه برقم سرى بخلاف الرقم السرى الخاص بحماية الشيت ' ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=Range("A1:A4,B1:D1"), Password:=123 ' حماية الشيت بدون كلمة سر ActiveSheet.Protect ' حماية الشيت بكلمة سر ' ActiveSheet.Protect Password:=123 ' تعريف المستخدم بالنطاق المسموح بالتعديل فيه With ActiveSheet.Protection.AllowEditRanges.Item(1) MsgBox "ActiveSheet is Protecting" & vbNewLine & "Except Range : " & .Range.Address & vbNewLine & vbNewLine & "Regards ...Mokhtar " End With Else ' اذا لم يكن هذا فان ' فك حماية الشيت المحمى بدون كلمة سر ActiveSheet.Unprotect ' فى حالة فك حماية الشيت المحمى بكلمة سر ' ActiveSheet.Unprotect Password:=123 ' اسم الزر المشغل للكود فى حالة عدم حماية الشيت النشط .Text = "Protect ActiveSheet Except" End If End With End Sub تفضلوا المرفق وأتمنى أن تستفيدوا به فى أكوادكم وبرامجكم . تحياتى Protect Sheet Expect Range .rar

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

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