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

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

من other Modal= yes

انسخ هذا في موديول اليوزرفورم ( اكتب الرقم في التيكست بوكس فعل التشيك بوكس) Private Sub CheckBox1_Click() If CheckBox1.Value = True Then TextBox1.Value = Val(TextBox1.Value) * -1 ElseIf CheckBox1.Value = False Then TextBox1.Value = Val(TextBox1.Value) * -1 End If End Sub

المعادلة تعمل تمام ... ولكن جربها هكذا =CEILING(ROUND(IF(BL10>10000,(AI10-10000)*0.003+(10000-50)*0.008,IF(AND(BL10>5000,BL10<=10000),(AI10-50)*0.008,IF(AND(BL10>1000,BL10<=5000),(AI10-50)*0.0075,IF(AND(BL10>500,BL10<=1000),(AI10-50)*0.007,IF(AND(BL10>250,BL10<=500),(AI10-50)*0.0065,IF(AND(BL10>50,BL10<=250),(AI10-50)*0.006,0)))))),2),0.05)

في البرنامج الموجود عندك ، افتح التقرير في وضع الثصميم ، وفي اعدادات Order By ، رجاء تحذف الموجود هناك ، وتحفظ التقرير ، ثم تجربه مرة اخرى. انا نادرا ما استعمل On Error Resume Next ، وانت ما شاء الله تستعمله في كل حدث!! لهذا السبب ، لم احصل على خطأ لما شغلت التقرير من الكود ، وانما تحصل على الخطأ لما تفتحه مباشرة. الامر On Error Resume Next لا يجعلك ترى اي خطأ ، بينما في واقع الامر تكون هناك اخطاء ، ولهذا السبب ترى ان البرنامج لا يعمل بطريقة صحيحة ، ولن تعرف السبب. 1492.not in select.accdb.zip

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

وعليكم السلام 🙂 مثل ما قال اخوي موسى ، استعمل جدول 🙂 يعتمد على طبيعة هذه الارقام : 1. فاذا كانت موجودة في جدول ، فاعمل حقل اضافي في الجدول ، فلنسمية Printed ونوعه نعم/لا ، 2. واذا هذه الارقام مو موجودة في جدول ، فاقترح عمل جدول خاص لهذا الغرض ، يكون فيه الرقم التسلسلي ، وحقل Printed ، وعليه : 1. قبل امر الطباعة ، تتاكد بأنه لم يتم طباعة الرقم ، فالمعيار يكون الرقم التسلسلي ، و Printed <> -1 ، 2. وبعد امر الطباعة ، مباشرة تعمل تحديث للجدول ، فالمعيار يكون الرقم التسلسلي ، والتحديث Printed = -1 ، جعفر

وعليكم السلام ورحمة الله وبركاته .. 1- إذا كان الهدف عدم الطباعة أكثر من مرة خلال فترة فتح البرنامج .. يعني يمكن يغلق البرنامج ويفتحه من جديد ويطبع .... : >> في هذي الحالة تعمل متغير عام X في موديول يخزن عدد مرات الطباعة وتعمل شرط إذا كان X>1 لا يسمح للطباعة وإذا كان X<1 يمكن الطباعة بس عيبه أنه ال X تتصفر لما يغلق البرنامج. 2 - و إذا التقرير بس يطبع مرة وحدة في العمر 😁 فتعمل جدول لحفظ عدد مرات الحفظ وممكن تستدعيها بدالة Dloockup مثلا وبناءا على القيمة تحط الشرط 🙂 >> لكن لو صار خطأ في طباعة النسخة الأولى مثلا واحتجت تعيد الطباعة .. يحتاج تحط مخرج للإدارة للسماح بإعادة الطباعة .. 🙂

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

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

المعادلات بالصفحة الاولى كانت للتجربة المعادلات والنتائج بالصفحة الثانية بعد ادخال الموظفين بالصفحه الاولى

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

ليس من المعقول 15 مشاركة لا زلت تجهلين قوانين المنتدى اين الملف 😱 ضعي بياناتك الرئيسية قبل وكيف تكون بعد حتى يساعدك باقي الاعضاء . تحياتي.

السلام عليكم تفضل أخي الكريم Private Sub CommandButton1_Click() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" ActiveCell = TextBox4.Value End Sub Private Sub CommandButton2_Click() For i = 1 To 3 Me("textbox" & i) = "" Next i End Sub Private Sub TextBox1_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub Private Sub TextBox2_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub Private Sub TextBox3_Change() For i = 1 To 3 Sum = Sum + Val(Me("Textbox" & i)) Next i Me.TextBox4.Value = Sum & ".00" End Sub active cell.xlsm

السلام عليكم أخي الكريم يمكنك إضافة عمودين لكل جدول رصيد سايق المحموع بعد الحالي تضع بدءاً من الشهر الثاني في الورقة 2 في عمود الرصيد السابق المعادلة التالية: =IF(C10<>"";VLOOKUP(C10;ورقة1!$C$9:$F$39;4;0);"") وفي عمود المجموع: =SUM(D10:E10) وعند انتقالك لشهر جديد نغير بالمعادلات حسب رقم الورقة السابقة والله أعلم .. والسلام عليكم 1.xlsx

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل : 1. =[Forms]![f_1]![txta] 2. =[Forms]![f_1]![txta]-[Forms]![f_1]![txt] . جعفر

=IF(D18=11,(IO9),IF(D18=11.3,(IP9),IF(D18=11.7,(IQ9),IF(D18=12,(IR9),IF(D18=12.3,(IS9),IF(D18=12.7,(IT9),IF(D18=13,(IV9)," "))))))) PT.xlsx

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

تم الحل بواسطة الجداول المحورية مع المعادلات الشرطية انظري للمرفق واي استفسار او تعديل خبريني من فضلك SSS3- pivot.xlsx

شكله برنامج مكتبة الأكواد جاي في وقته 😅✋🏻 متشكرين يا مولانا 🙂

السلام عليكم حسب فهمي لطلبك تفضل الملف بعد التعديل اتمنى ان يكون المطلوب test.accdb

زادك الله من فضله اخى اكثر الله خيرك احترامى

وعليكم السلام-يمكنك استخدام معادلة المصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(LIST!$A$12:$A$230,SMALL(IF(MONTH(LIST!$G$12:$G$230)=MONTH($C$2),ROW(A$12:A$230)-ROW(A$12)+1),ROWS($A$6:A6))),"") 1قائمة.xlsx

تفضل جرب هذا الملف رسائل واتس كصورة للنطاق1.xlsm

كان الاولى ان تعمل نماذج حسب فكرتك ليتم التطبيق عليها تفضل التعديل db1.mdb

السلام عليكم ورحمة الله فى الكود الاول اجعل آخر سطرين هكذا End With Call Macro2

جرب هذا Book1.xlsx

الله يرحمك ويحسن اليك .. بحق الله يدخلك فسيح جناته كنت حقا فارسا للاكسيل وخلوقا الله يرحمك استاذ الحسامي لم تغلق اعمالك وتركتها لنا مفتوحه لنتعلم وندعو لك Sub Macro1() SpreadsheetPassword = 123 ActiveSheet.Unprotect Password:=SpreadsheetPassword Rows("10:15").EntireRow.Hidden = True ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True ActiveSheet.EnableOutlining = True End Sub Sub Macro2() SpreadsheetPassword = 123 ActiveSheet.Unprotect Password:=SpreadsheetPassword Rows("10:15").EntireRow.Hidden = False ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True ActiveSheet.EnableOutlining = True End Sub كود الحسامي رحمة الله عليه

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

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