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

السلام عليكم اقدم لكم نسخه من برنامج كاشير للمطاعم حسب ارقام الطاولات رقم المظلل بالاحمر يعني ان الطاولة رقم ... محجوز يمكنك رجوع اليها وعمل اوردر من تعديل البرنامج سهل للغايه يعمل فقط على الماوس * - الجدول : _ الفواتير المسدده يمكنك رجوع وتعديل عليها عن طريق الجدول وضغط دبل كليك على المراد تعديله * - التقرير :_ *- حذف الفواتير :_ يمكنك حذف الفواتير عن طريق تحديد الرقم وضغط على حذف يمكن استعلام على الفواتير المحذوفه من التقرير - فواتير محذوفه *- نقل الطاولة :_ يمكن نقل الطاولة حسب طلبك بتحديد على الطاولة المراد نقلها واختيار امر نقل الطاولة يظهر مربع تختار رقم الطاولة الجديد بحيث لا يكون مظلل بالاحمر . *- تعديل على الفاتورة : _ في حال رغبت الزبون طلب اوردر تختار رقم الطاولة المظلل بالاحمر وتغضط تعديل الفاتورة وتضيف الاوردر الثاني ويمكنك تكرار العملية في حال تكرار الصنف تضغط دبل كليك على الصنف +1 في حال الغاء -1 يوجد زر بجانب الشاشة الاصناف -1 في حال الغاء الصنف يوجد زر بجانب الشاشة * * - الاصناف : _ يمكنك اضافة اصناف رئيسية واصناف فرعيه الاصناف لا تحتاج الى كود لانها تختار كود اتوماتيكي طباعه الفواتير بشكل جديد دينماكيه صلاحية كامله للبرنامج الدخول : الدعم الفني كلمة سر : 123 يمكنك اضافت صلاحيات ومستخدمين كما قلت لكم نسخه قيد تطوير ... الحقوق النشر محفوظه ... اتنمنى ان ينال اعجابكم لتحميل : _ ‫كاشير-توزيع.xlsb

تفضل لأنك لم تطبق المعادلة بطريقة صحيحة تقاطع العمود مع السطر OK.xlsx

أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

حبيبي أبا بسملة بل الشكر لك علي حسن متابعتك من فضلك قم بازالة علامة التعجب من الكود وضع بدلا منها النقطة ليصبح الكود هكذا If Me.PrintBillCount = 0 Then Me.Picture = CurrentProject.Path & "\Original.jpg" Else Me.Picture = CurrentProject.Path & "\Copy.jpg" End If وعند وضع النقطة تأكد من أن كلمة Picture موجودة بالفعل في خيارات الاكمال التلقائي في محرر الأكواد في 2003 ثم قم بعمل compile مرة أخري وتأكد من وجود الصورتين فى نفس مسار قاعدة البيانات ووافنا بالنتائج

تفضل ملفك بعد التعديل .... تجربة برنامج خطابات متعددة.rar

يمكنك استخدام هذا الكود فسوف يتم عمل ملف منفصل برقم الفاتورة عند الضغط على ترحيل فبذلك يمكنك طباعة اى فاتورة تريدها Sub Splitbook() Dim xPath As String ActiveSheet.Name = ActiveSheet.Range("AP2") & " NO" & Range("E6") xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True Range("E6") = ([E6]) + 1 End Sub Invoice.xlsm

أحسنت استاذ أنس عمل رائع جعله الله فى ميزان حسناتك وبالتوفيق ان شاء الله

بارك الله فيك

وعليكم السلام-دائما وابداً باتأكيد لابد من رفع الملف لإستجابة الأعضاء والأساتذة فى مساعدتك تفضل يمكنك استخدام هذه المعادلة =IF(A13<20,25,IF(AND(A13>=20,A13<=30),25+(A13-20)*1.5,IF(AND(A13>30,A13<=40),25+(9*1.5)+(A13-31)*2,IF(A13>40,25+(9*1.5)+(9*2)+(A13-41)*2.5,"")))) مثال توضيحي1.xlsx

اهلا بك فى المنتدى-تفضل DG Inv Empty.xlsm

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

تفضل لك ما طلبت Split & Search.xlsx

استاذ ابو صلاح معادلة الأستاذ سليم تعمل بكل كفاءة ,فهى لا تحتاج اى تعديل -فاذا اعطت لك خطأ فمنك انت:-وذلك لأحد سببين, فهذه معادلة مصفوفة لابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كما اخبرك استاذنا سليم و الأخر اذا مازالت لا تعمل معك فعليك باستبدال الفاصلة العادية بفاصلة منقوطة ; فربما نظام الكمبيوتر لديك مختلف

وعليكم السلام -تفضل ~$زيادة او نقصان سنة في عدة صفوف عن طريق زر.xlsm

هل هذا المطلوب مقارنة واحتساب الفرق عند تساوي رقم الايصال مثال.accdb

جرب هذا الكود Option Explicit Sub get_data() Application.ScreenUpdating = False Dim S As Worksheet Dim Cus As Worksheet Dim m%: m = 3 Dim R% Set S = Sheets("Summary") With S .Cells.Clear For Each Cus In Sheets If Cus.Name Like "Customer" & "#" Then R = Cus.Range("B9").CurrentRegion.Rows.Count Cus.Range("B9").CurrentRegion.Copy .Cells(m, 1) With .Cells(m - 1, 1) .Value = Cus.Name .Interior.ColorIndex = 6 End With m = m + R + 2 End If Next Cus .Range("C:C,D:D,H:H").EntireColumn.Delete End With Application.ScreenUpdating = True End Sub الملف مرفق My project.xlsm

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

مشكور وما قصرت وبيض الله وجهك استاذي القدير

أخى عبدالعزيز محمد هل هذا ما تريده؟ Database1.accdb

وعليكم السلام-جرب هذا ولا يوجد سوى ذلك https://business.tutsplus.com/ar/tutorials/convert-google-sheets-to-excel-spreadsheets--cms-30503

موفق اخي الفاضل من دواعي سروري حصولك على الحل المطلوب

شوف المرفق عدلت عليه جدول غياب5.xlsm

في الطريقة السابقة سوف تجد ان حقل id سوف يكون مكرر لبعض السجلات نفس الترقيم للسجلات السابقة فاذا رغبت في ترتيب تلقائي غير مكرر نستبدل استعلام 2 الخاص بانشاء جدول الى استعلام الحاق ونقوم بانشاء جدول tbl4 فارغ ثم ننفذ استعلام الحاق INSERT INTO tbl4 ( n_name ) SELECT استعلام1.n_name FROM استعلام1; انظر المرفقات توحيد.accdb

ممكن هذا الكود تم تغيير اسماء الصفحات للغة الاجنبية لسهولة التعامل مع الكود من حيث النسخ واللصق دون ظهور احرف غير مفهومة Option Explicit Sub Extract_by_16() Rem Created by Salim Hasbaya On 12/10/2019 Application.ScreenUpdating = False Dim my_rg, i%, X, last_range As Range Dim S As Worksheet Dim T2 As Worksheet Set S = Sheets("sheet1") Set T2 = Sheets("Templete_2") Dim lra%: lra = S.Cells(Rows.Count, 1).End(3).Row Dim m%: m = 13 For i = m To 2500 Step 37 T2.Cells(i, 4).Resize(16, 2).ClearContents Next m = 13 For i = 2 To lra Step 16 If lra - S.Cells(i, 1).Row < i Then X = lra - i Set last_range = _ S.Cells(i, 1).Resize(X + 1, 2) Exit For End If Set my_rg = S.Cells(i, 1).Resize(16, 2) T2.Cells(m, 4).Resize(16, 2).Value = _ my_rg.Value m = m + 37 Next i If Not last_range Is Nothing Then T2.Cells(m, 4).Resize(X + 1, 2).Value = _ last_range.Value End If Application.ScreenUpdating = True End Sub الملف مرفق VIVA_Mia.xlsm

ضع الكود في حدث اغلاق الملف Private Sub Workbook_BeforeClose(Cancel As Boolean) With Sheets("main") .[d3] = Val(.[d3]) + 1 .[d4] = Format(Now(), "dd-mm-yyyy hh:mm:ss") End With End Sub

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

هذه بضاعتكم اردها اليكم يا دكتور اسأل الله ان اكون وفقت فى فهم وتنفيذ طلبكم يا دكتور @حلبي ترقيم حسب المدير والتاريخ (1).accdb

بعد اذن استاذنا بن علية حاجى وذلك لأن هذه معالات مصفوفة وليست معادلات عادية فلابد بعد نسخ المعادلة الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات

تفضل يتم ذلك بمجرد الضغط على ترحيل كارت الصنف 2018 (1).xlsm

Index,Match,if

أعتذر خطأ صغير جدا فى المعادلة تفضل 2الانشطة.xlsx

تفضل Microsoft Excel Worksheet2.xlsm

تفضل اصناف.xlsm

بالفعل هناك كلمة سر ولا استطيع الدخول الى الملف

اهلا بك فى المنتدى يمكنك رفع اى ملف تصورى لما تريد وشرح بالتفصيل ما تريد عليه

اهلا بك اخى الكريم تفضل تم ضبط الملف ولكن عليك فتح الصفحات الذى تريدها للأصناف المطلوبة بأخذ كوبى من الصفحة المفتوحة ,وعمل نفس المعادلات للصفحة الجديدة كما هو الحال فى المعادلات الموجودة بصفحة Reference للصنف المفتوح حاليا وهو 15003 بارك الله فيك كارت الصنف 2018 (1).xlsm

اهلا بك اخ كريم فى المنتدى لك ما طلبت 11حساب العملاء.xlsm

اخى الكريم كل البيانات الناتجة تمام بالنسبة للمعطيات فعل سبيل المثال ليس للصف الأول المتوسط اجمالى اقساط للمدرسة م8 ,فمنطقى ان لا يعطى نتيجة ,فلمل تقول النتائج غير دقيقة النتائج بالنسبة لما هو معطى مع المعادلة 100 % صحيحة ولكن سأنفذ لك الملف على المرحلة فقط كما تريد تفضل لك ما طلبت اقساط طلاب.xlsx

مثال على استعمال And: If UserName="أبو خليل" And Password=2017 Then MsgBox"مرحبا أستاذ أبو خليل" End If في هذا المثال إذا كان اسم المستخدم هو أبو خليل و كلمة المرور هي 2017 سوف يقوم البرنامج بعرض رسالة ترحيبية MsgBox"مرحبا أستاذ أبو خليل" و إذا إختل أحد الشرطين فلن يتم تنفيذ التعليمة. يعني لتنفيذ التعليمة يجب تحقق الشرطين في نفس الوقت. مثال على استعمال Or: If Died_Father=true Or Died_Mother=False Then MsgBox "يتيم" End If في هذا المثال يكفي تحقق أحد الشرطين ليتم تنفيذ التعليمة (رسالة تخبرنا بأن هذا الشخص يتيم) و إذا تحقق الشرطين معا أيضا يتم تنفيذ التعليمة إذا هناك شخص أبوه متوفي فهو يتيم و إذا كانت أمه متوفية فهو يتيم و إذا كان كلا والديه متوفيين فهو أيضا يتيم. ((((((اللهم أرحم جميع موتى المسلمين يا أرحم الراحمين يا رب العالمين))))))

الــدرس الثاني : الجملة الشرطية ( IF ) تعتبر الجملة IF من أشهر الجمل الشرطية و أكثرها استعمالا في جميع لغات البرمجة ولها عدة صيغ كلها تبدأ بــIf و تنتهى بكلمة End If ما عدى صيغة واحدة. وتستخدم الجملة IF لتنفيذ عمليات معينة حسب شرط محدد, يعني إذا تحقق الشرط ينفذ و إلا فلا. طرق استعمال الجملة ((if: 1- الصيغة ( If –Then ) : - وصيغتها العامة : IF condition THEN statements - ومعنى هذه الصيغة : انه اذا تحقق الشرط (condition ) فسيتم تنفيذ الامر ( statements ) مثال : " مسن" IF age >=65 THEN category = 2- الصيغة ( If – Then – End If ) : صيغتها العامة : IF condition THEN statements1 Statements2 END IF تقوم هذه الصيغة بتنفيذ مجموعة من الاوامر اذا تحقق الشرط (Condition) بدلا من تنفيذ امر واحد. مثال : If age >= 25 Then category ="شباب" travail ="السن مقبول" End if 3- الصيغة ( If – Then – Else ) : صيغتها العامة : If condition Then statements1(التعليمات المنفذة في حال تحقق الشرط ) Else statements2(التعليمات المنفذة في حال عدم تحقق الشرط) End If - هذه الصيغة تنفذ مجموعة الأوامر (statements1 ) عندما يتحقق الشرط (condition ) و عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر (Statements2). مثال : If grade >= 50 Then Text1 ="ناجح" Else Text1 ="راسب" End If 4- الصيغة ( If – Then –ElseIf ) : - صيغتها العامة : If condition1 Then statements1( التعليمات المنفذة في حال تحقق الشرط الأول) ELSEIF condition2 THEN statements2(التعليمات المنفذة في حال عدم تحقق الشرط الأول و تحقق الشرط الثاني) ELSE statements2(التعليمات المنفذة في حال عدم تحقق جميع الشروط السابقة) End If مثال : If grade >= 90 Then Text1 ="ممتاز" ElseIf grade >= 80 Then Text1 ="جيد جدا" ElseIf grade >= 70 Then Text1 ="جيد" ElseIf grade >= 60 Then Text1 ="مقبول" Else Text1 ="راسب" End If ملاحظات: - في الصيغة الأخيرة ( If – Then –ElseIf ) اذا تحقق احد الشروط فان البرنامج ينفذ العملية ثم يذهب الى نهاية الجملة و لا يتحقق من الشروط الباقية. - في حالة أردنا إستعمال شرطين معا أو أكثر نستعمل العبارة And. - في حالة أردنا تحقق أحد شرطين ليتم تنفيذ العملية نستعمل Or

ملاحظاتك ممتاز و في محلها و متممة للمعنى ربما هنا من يستعمل اللغة العربية في تعريف المتغير بهذا الشكل : Dim الرقم_الأول As Integer ملاحظة: - القيمه الإفتراضية للمتغيرات النصيه هي فراغ " " - أما القيمه الإفتراضية للمتغيرات الرقميه هي صفر 0

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

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

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

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

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

السلام عليكم الموضوع جميل وشيق تسلم أخي الحبيب ياسر (أبا البراء) علي الفكرة الحلوة ============== أخي الغالي / سليم الفكرة في سؤالك أن الأرقام المتتالية من 2 إلي 6 حاصل ضربهم بالمعادلة Fact سيكون 720 و Fact لمن لايعلم هي إختصار للدالة Factorial أي المضروب باللغة العربية وهي تعني حاصل ضرب الرقم (في حالتنا 6) من أول 6 إلي 2 (أي 6 × 5 × ... ×2) صيغتها كالتالي =FACT(6) الجزء التالي من السؤال أول 10 أرقام تقبل القسمة علي ذلك وهذا يعني 720×1 ، 720×2 ، 720×3 ، 720×4 ،،، ، 720×10 مع إضافة 1 لكل من النواتج إذن ستحتاج إلي 10 صفوف لإظهار الناتج وتحتاج لمعادلة صفيف كالتالي في عشرة صفوف {=ROW(INDIRECT("1:10"))*FACT(6)+1} وستجد النواتج 721 1441 2161 2881 3601 4321 5041 5761 6481 7201

تفضل الملف بعد التعديل PubsLite.rar

Message Boxes في المرفقات منقول Message Boxes.rar

سأعرض الحل هنا مع توضيح بعض النقاط المهمة فالجملة البرمجية التي تستخدم لفتح ثم طباعة الصفحات المحددة من التقرير DoCmd.OpenReport stDocName, acPreview DoCmd.PrintOut acPages, pageFrom, pageTo لا تقوم بالمهمة كما ينبغي وكما رسمت له فمن المعلوم ان تنفيذ هذا الكود سيكون من خلال النموذج لذا يصعب التنفيذ بل يمتنع وتظهر بعض العقبات غير المتوقعة فمنها : - طباعة النموذج بدلا من التقرير وقد يتم طباعة الاثنين معا - عدم طباعة الصفحات المحددة وانما يتم طباعة الجميع - هذا الكود يقوم بفتح التقرير وهذه مشكلة بحد ذاتها حيث يستلزم اخفاؤه او تصغيره ثم غلقه وهل هناك بديل ؟ نعم وهو يقوم بكل لطف وصمت بطباعة صفحات محددة من تقارير عدة والحل سطران فقط ومن اراد الزيادة فعليه ان يكررهما ما شاء الاول يقوم بتحديد التقرير لا فتحه DoCmd.SelectObject acReport, "استقطاعات", True والثاني لطباعة الصفحات المحددة DoCmd.PrintOut , 14, 13, , 1 رقم 1 يمثل عدد النسخ في المرفقات تحقيق وتطبيق طباعة واختيار الصفحات من عدة تقارير.rar