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

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم الاشكالية غاليا في 1- تجاهل قيمة المخزون ( باقي البضاعة التي لم يتم بيعها ) 2 - حساب ما لي وما علي في الارباح لذلك استخدم الطريقة التالية لحساب الارباح ( سعر البيع - سعر الشراء ) ( 700 - 1000 ) = -300 + قيمة الموجود بالمخزن = 400 الربح = - 300 + 400 = 100 - المصروفات = 30 الربح = 100 - 30 = 70 تحياتي

جربي هذا الكود Option Explicit Sub del_zeros() Dim sh As Worksheet Dim curt As Range Dim rg_to_del As Range Dim F_rg As Range Dim Ro%, i% Set sh = Sheets("sheet4") Ro = sh.Cells(Rows.Count, 1).End(3).Row If Ro < 5 Then Exit Sub Set curt = sh.Range("E5:I" & Ro) curt.Interior.ColorIndex = xlNone For i = 1 To curt.Rows.Count Set F_rg = curt.Rows(i).Find(0, lookat:=1) If F_rg Is Nothing Then GoTo next_row If rg_to_del Is Nothing Then Set rg_to_del = curt.Rows(i) Else Set rg_to_del = Union(rg_to_del, curt.Rows(i)) End If next_row: Next '+++++++++++++++++++++++++ If Not rg_to_del Is Nothing Then ' rg_to_del.EntireRow.Delete rg_to_del.Interior.ColorIndex = 6 End If Set rg_to_del = Nothing End Sub الكود يقوم بتلوين الصقف المطلوب اذا اردت حذفها استبدلي ما موجود في المربع المربع الأجمر بما هو موجود في المربع الأزرق (الصورة)

ربما لم افهم المطلوب لاني بهذه الطريقة لا اجد تكرار باسماء العملاء

لو وضعت جدول للعملاء ولكل عميل معرف ثابت وفي نموذج المشتريات او المبيعات يكون لديك كمبو للاختيار للعميل فلن يكون هناك تكرار وبالامكان بسهولة طباعة فواتير العميل او عرضها بشكل افضل

شوف هذا اوفسنا كومبو بوكس.accdb

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

وعليكم السلام ورحمة الله وبركاتة تفضل اخي لعلة المطلوب ,,,,, inter.accdb

سألني صديق عن اعداد ماكرو يساعده فى توفير وقت عدة جمل يحتاج لكتابتها كثيرا فى الوورد واول ما خطر ببالي أن أبدأ كما طلب فى كتابة بعض الاكود، و تطرق ذهني أيضا لاعداد نموذج يحوي الجمل المتكررة، ليختار منه و لكن بفضل الله تذكرت حل يعرفه الكثير ، و لكن ربما لا يستخدمه الكثير، فاحببت مشاركتكم به ساضيف حلان الاول فى هذه المشاركة يخص الاستبدال الالى دون تدخل منك و الثاني ساضيفه فى مشاركة تالية هنا فى نفس الموضوع يخص الاستبدال يدويا اولا الاستبدال الالي فعلى سبيل المثال مثلا بدلا من كتابة جملة "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" اريد ان اختصر كتابتها على سبيل المثال ، و عليه فاختار كلمة لا تحتاج كتبتها كثيرة و يحبذ كونها مزيج من كلمة و حرف مثلا نختار هنا هذ1 لنكتبها كمفتاح للحصول على الجملة أو أي عبارة يسهل عليك استخدامها على الا تكون عبارة يتوقع استخدامها فى الكتابة العادية. مع ملاحظة أن الحد الاقصى لعدد حروف الجملة هو 255 حرف و الخطوات كالتالي: File Options ثم اتباع الخطوات التالية: 1- Proofing 2- Auto correct 3- نكتب هنا هذ1 4- نكتب الجملة الكاملة : "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" 5-add و نكرر ذلك لما نرغب من حالات ثم 6- ok و الان فى الوورد اذا كتبت هذ1 يليها مسافة أو Enter ستستبدل اليا ب "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" و هذا طبعا يوضح لماذا اخترنا جملة عبارة غير معتادة مثل هذ1 حتي لا يتم عمل استبدالات غير مرعوب بها اذا اخترنا جملة عادية و في المشاركة التالية ساضيف الطريقة الثانية

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

ليست المرة الأولى التي اقول فيها يجب رفع ملف فيه بيانات لا أوراق فارغة

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

السلام عليكم شكرا لك استاذنا العزيز @ابو ياسين المشولي بارك الله فيك

اتغضل DoCmd.OpenReport "report1", acPreview, , "[تاريخ الترقية الجديد]Between [Forms]![form1]![StartDate] And [Forms]![form1]![EndDate]"

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

ارفق مثال افضل يمكنك استدعاء العميل من جدول العملاء

تفضل حركة المبيعات.xlsb

تم معالجة الأمر مع تغيير بسيط في تصميم اليوزر New_UNIQ_DATA.xlsm

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

تفضل هذا التعديل اخي الكريم ستلاحظ اولا و الأهم بأن الادراج اصبح اسرع من قبل كذلك مع كثرة العمل على البرنامج ستلاحط بأنه السرعة لن تتأثر كثير بسبب عدم تحميل القاعدة للمرفقات لأن المرفقات ستكون في ملف خارجي بجوار قاعدة البيانات لأن فقط عليك استخراج الملفات من الملف المضغوط و جرب ملاحظة كثرة الضغط على قاعدة البيانات بالمرفقات تتسبب في ثقلها و احيانا في عطبها كذلك انصحك بانشاء نسخة احتياطية يومية و الكود الخاص بذلك سهل كماهو موضح ادناه فقط انسخ و الصق لا اكثر من ذلك Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select Programe.zip

وعليكم السلام 🙂 Dim X As Integer X = DCount("*", "[TBvirus]", "[virusid]='" & Me.idvirus & "' AND [idlaboratory]=Forms![Flaboratory]![idlaboratory]") If X > 0 Then MsgBox "error87", 48, "error" DoCmd.CancelEvent End If جعفر

جرب هذا الكود Option Explicit Dim sh As Worksheet Dim Other_sh As Worksheet Dim Rg As Range Dim All_RG As Range Dim lc%, i%, Ro%, Arr(), itm '+++++++++++++++++++++++ Sub creat_shett() Set sh = Sheets("Sheet1") lc = sh.Cells(Rows.Count, 3).End(3).Row For Each Rg In sh.Range("C2:C" & lc) If Rg.Value <> "" Then If Not Application.Evaluate("ISREF('" & Rg.Value & "'!A1)") Then sh.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Rg.Value End If End If Next add_data End Sub Sub add_data() Set sh = Sheets("Sheet1") For Each Other_sh In Sheets If Other_sh.Name <> "Sheet1" Then ReDim Preserve Arr(i) Arr(i) = Other_sh.Name i = i + 1 End If Next For Each itm In Arr Set Other_sh = Sheets(itm) With Other_sh Set All_RG = .Range("A1").CurrentRegion Ro = All_RG.Rows.Count If Ro > 1 Then Set All_RG = All_RG.Offset(1).Resize(Ro - 1) All_RG.Clear End If .Range("Z1") = sh.Cells(1, 3) .Range("Z2") = .Name sh.Range("A1").CurrentRegion.AdvancedFilter 2, _ .Range("Z1:Z2"), .Range("A1:d1") .Range("Z1:Z2").Clear End With Next End Sub الملف مرفق Hasan_rady.xlsm

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

الطريقة الثانية هنا الاستبدال بالاختيار ، عن طريق بلوكات يتم حفظها و تستدعي يدويا او كما يسمي Building Block و الطريقة كالتالي لنفرض أنك تريد توفير وقت كتابة جملة السلام عليكم و رحمة الله وبركاته اكتبها فى الملف لاول مرة ثم اخترها و اضغط ALT+F3 سيظهر لك المربع التالي و سنحفظها باسم السلام ضمن العبارات المحفوظة Building Block و هكذا تم حفظها و لاستدعاءها من قائمة Insert اختار Quick Parts Building Blocks organizers ثم اختار الجملة التي تريد ادراجها و سيتم ادراج الجملة المحفوظة المطلوبة و طبعا يمكنك اختصار الخطوات عن طريق اضافة ال quick Parts الى قائمة الاختصارات السريعة فتظهر كايقونة يمكن الوصول اليها سريعا و اختصار الخطوات السابقة كما هو مبين فى الصورة التالية ثانياً : من ناحية اخرى ستجد الوورد يقترح عليك الاستبدالات المسجلة عندما تكتب بعض الجروف دون الحاجة لادراج المكونات يدويا مثلما هو مبين فى الصورة التالىة و كل ما عليك هو ضغط Enter ليتم ادراج الجملة بالكامل 😄 ثالثاً: أيضا هناك حل آخر اذا لم يظهر لديك الاقتراح كما سبق ان تكتب كلمة السلام ثم تختارها دون زيادة مسافات فى النهاية ثم تضغط F3 و سيتم الاستبدال مباشرة من القائمة المخزنة

عرفت هذه المعلومة من زميل ، و لم اكن اعرفها سابقا و يبدو أن الاوفيس مازال يخبىء لنا الكثير فى دهاليزه عند كتابة تاريخ في نهاية السطر قد يأتي منقسما فيأتي اليوم فى سطر و باقي الشهر و السنة فى الشهر التالي ، و هذا و ان كان مقبولا ، الا انه ليس وضعا مثاليا و الحل المعتاد قد يكون التغيير فى المسافات او المحاذاة او حجم الخط او خليط بينها و لكن الحل السليم هو اختيار المسافة التالية لمحل الفصل ( بعد ال 28 فى هذه الحالة) ثم ضغط مايلي Ctr+Shift+Space فيصبح الوضع كالتالي:

السلام عليكم ورحمة الله أخي الكريم جمال، المعادلة التي وضعتَها باستعمال COUNTIF لا تصلح مع التصفية فهي تبقي العدد ثابتا وقد وضعت المعادلة طويلة بعض الشيء للحصول على العدد المناسب لكل حالة من حالات التصفية الفردية حسب كل لجنة أو الجماعية لكل اللجان (دون حالات التصفية المتقدمة) وهنا تدخل مهمة الدالة SUBTOTAL... والله أعلم وتقبل الله منكم الصيام والقيام وكل أعمال الخير... أخوك بن علية