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

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 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 إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

السلام عليكم 🙂 الفكرة اللي استعملتها ، هي معادلات الاكسس ، وبدون تحديد عدد ايام للشهر ، عندنا تاريخ المباشرة ، ومن تاريخ اليوم ، نضيف اليه الخدمة المضافة ، سنة ، ثم شهر ، ثم يوم ، بحيث نتوصل الى تاريخ جديد ، ومن التاريخ الجديد ، نستقطع ، سنة ، ثم شهر ، ثم يوم ، بحيث نتوصل الى تاريخ جديد ، ثم في النهاية ، نوجد الفرق بين تاريخ المباشرة وبين هذا التاريخ الجديد 🙂 : Private Sub cmd_Cal_Click() Dim Y As Integer: Dim M As Integer: Dim D As Integer Dim Y_Add As Date: Dim M_Add As Date: Dim D_Add As Date Dim Y_Ded As Date: Dim M_Ded As Date: Dim D_Ded As Date Dim Y_Fin As Date: Dim M_Fin As Date: Dim D_Fin As Date 'Now Me.dmy_Now = YMDDif(Me.ddd, Date, Y, M, D) Me.Y_Now = Y Me.M_Now = M Me.D_Now = D 'Add Y_Add = DateAdd("yyyy", Me.yerr, Date) M_Add = DateAdd("m", Me.mann, Y_Add) D_Add = DateAdd("d", Me.dyy, M_Add) Me.dmy_Add = D_Add 'Deduct Y_Ded = DateAdd("yyyy", -Me.yerrr, Me.dmy_Add) M_Ded = DateAdd("m", -Me.mannn, Y_Ded) D_Ded = DateAdd("d", -Me.dyyy, M_Ded) Me.dmy_Deduct = D_Ded 'Final Me.dmy_Final = YMDDif(Me.ddd, Me.dmy_Deduct, Y, M, D) ' Me.Y_Fin = Y ' Me.M_Fin = M ' Me.D_Fin = D End Sub Private Sub Form_Current() Call cmd_Cal_Click End Sub . والوحدة النمطية YMDDiff : Public Function YMDDif(ByVal sDate1 As Date, ByVal sDate2 As Date, _ ByRef Y As Integer, ByRef M As Integer, ByRef D As Integer) As String 'sdate1 earliest date sdate2 later Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 'YMDDif = CStr(Y) & " Years " & CStr(M) & " months " & CStr(D) & " days" YMDDif = CStr(D) & " ي/" & CStr(M) & " ش/" & CStr(Y) & " س" End Function . والنتيجة: . ويمكننا عمل كل هذه المعادلات في الاستعلام ، بالاضافة الى مناداة الوحدة النمطية 🙂 رجاء التأكد من الارقام اولا. جعفر Database1.zip

1- ليس من الضروري ان يقوم الماكرو بحلقة تكرارية على 250 صف لأنه يمكن ان يكون اكثرها فارغة يكفي ان يتوقف عند أول خلية فارغة في العامود الأول 2-هذا الماكرو يقوم بتجميع الصفوف التي تحتوي على صفرين في الذاكرة تم يخفيها دفعة واحدة اسرع يكثير للبيانات الكبيرة (اكثر من 1000 صف) 3-كودين على نفس الزر الكبسة الاولى تقوم باخفاء الصفوف و كبسة اخرى باظهارها (مما يسمح بالتعديل على البيانات) Option Explicit Private Sub ToggleButton1_Click() If ToggleButton1 Then hid_rows ToggleButton1.Caption = "اظهار الكل" Else show_all ToggleButton1.Caption = "اخفاء الأصفار" End If End Sub '+++++++++++++++++++++ Sub hid_rows() Dim Hide_range As Range Dim i% i = 2 Range("A1").CurrentRegion.EntireRow.Hidden = False Do Until Cells(i, 1) = vbNullString If Cells(i, 2) = 0 And Cells(i, 3) = 0 Then If Hide_range Is Nothing Then Set Hide_range = Cells(i, 1) Else Set Hide_range = Union(Hide_range, Cells(i, 1)) End If End If i = i + 1 Loop If Not Hide_range Is Nothing Then Hide_range.EntireRow.Hidden = True End If End Sub '+++++++++++++++++ Sub show_all() Range("A1").CurrentRegion.EntireRow.Hidden = False End Sub الملف للمعاينة abo_has_hide.xlsm

بهذه الطريقة سوف تضيع صف العناوين تم التعديل على الملف الاساسي لتبدأ البيانات من االصف 11 مع الاحتفاظ بالصف العاشر كعنوان Extra_Filter _ziad.xlsm

جرب هذا الكود لعله يفي بالغرض Sub Consolidation() Dim CurrentBook As Workbook Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("sheet1") Dim IndvFiles As FileDialog Dim FileIdx As Long Dim i As Integer, x As Integer Set IndvFiles = Application.FileDialog(msoFileDialogOpen) With IndvFiles .AllowMultiSelect = True .Title = "Multi-select target data files:" .ButtonName = "" .Filters.Clear .Filters.Add ".xlsx files", "*.xlsx" .Show End With Application.DisplayAlerts = False Application.ScreenUpdating = False For FileIdx = 1 To IndvFiles.SelectedItems.Count Set CurrentBook = Workbooks.Open(IndvFiles.SelectedItems(FileIdx)) For Each Sheet In CurrentBook.Sheets Dim LRow1 As Long LRow1 = WS.Range("A" & WS.Rows.Count).End(xlUp).Row Dim LRow2 As Long LRow2 = CurrentBook.ActiveSheet.Range("A" & CurrentBook.ActiveSheet.Rows.Count).End(xlUp).Row Dim ImportRange As Range Set ImportRange = CurrentBook.ActiveSheet.Range("A2:d" & LRow2) ImportRange.Copy WS.Range("A" & LRow1 + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next CurrentBook.Close False Next FileIdx Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

هنا تجد طريقة سهلة لذلك

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

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

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

نعم راجعتها، وصححتها، فقط القوس الاخير نقدمه لكي يكون الطرح قبل الضرب بالنسبة، شاهد المرفق =IF(H3="";"";((I3-IF(H3="SP350";296;IF(H3="T300";1038)))*20%)) مبيعاتي 2.xlsx

في الحقل الاخير محسوب كود تحويل السالب الى موجب في الجدول.accdb

اخي احمد ياريت تشوف هذا الرابط ، والذي فيه نقاش عميق عن حساب العمر ، وانا استعملت الموقع الذي اشرت اليه انت : والافضل ان تقرأ الموضوع كاملا 🙂 جعفر

جزاكم الله كل خير وجعله في ميزان حسناتكم اخي الكرم وكل عام وانت بالف خير

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

السلام عليكم احمد الحسيني جرب المرفق لعله يكون طلبك اسم الخط موجود عب النمودج المرفق عنوما هو IDAutomationSC128XS DEMO باركود.accdb

مثال اخر (استعمال الفلتر) وتلوين الأصفار Option Explicit Private Sub CommandButton1_Click() Static t% With CommandButton1 If t Mod 2 = 1 Then show_all .Caption = "اخفاء الأصفار" .BackColor = RGB(0, 176, 0) Else Hide_by_flter .Caption = "اظهار الكل" .BackColor = RGB(255, 0, 0) End If End With t = t + 1 End Sub '++++++++++++++++++++++++++++++++ Sub Hide_by_flter() Dim Rg As Range, ro Dim Hd_rg Set Rg = Range("A1").CurrentRegion ro = Rg.Rows.Count If ro = 1 Then Exit Sub With Rg .Interior.ColorIndex = 35 .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 16 .AutoFilter 2, "=0" .AutoFilter 3, "=0" Set Hd_rg = Range("A2:C" & ro - 1).SpecialCells(12) .AutoFilter Hd_rg.Interior.ColorIndex = 6 Hd_rg.EntireRow.Hidden = True End With Range("A1:c1").Interior.ColorIndex = 40 End Sub '+++++++++++++++++ Sub show_all() Range("A1").CurrentRegion.EntireRow.Hidden = False End Sub abo_has_hide_by_filter.xlsm

اخي ابو الحسن لقد قمت بتحديث الكود وقمت بتعطيل سطر حتى تعلم ما هو التعديل انشاء الله الكود سيكون افضل من قبل

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

احد الاخوة من دول الخليج العربي طلب مني تصميم برنامج واشترط ان تكون الواجهة ذات رموز المهم هذا كان طلبة ما رأيكم في هذه الواجهات ؟؟

الخبير الفاضل husamwahab عيد اضحى سعيد خالص الشكر على تعبك

الناس الذين يضهر عندهم الخطاء راجع إلى استعمالهم وندوز٧ وذلك راح إلى الايقونات الموجودة في الأزرار لذى ارجو من أحد الاعضاء أصحاب وندوز ١٠ ان يقوم بمسح جميع الايقونات الموجودة في الأزرار الخاصة بكل فورم ثم يعيد رفع الملف سيشتغل عند الجميع ان شاء الله اما الذين يستفسرون عن طريقة تشغيل البرنامج فل يتعلمو ان البرنامج غير منتهي بالكامل و انا طرحته ليستفيد منه و لكم حرية التعديل عليه كما تشاؤن

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

الأخ الكريم ابو حنين مشكور على التوضيح التام للمطلوب .. هكذا يكون التوضيح إليك الملف التالي (تم الاستعانة بعمود مساعد لجمع الشروط) العمود المساعد هو العمود H إليك الكود مع شرح الأسطر لتتمكن من التعديل عليه Sub MultipleCriteriaFilter() 'يقوم الكود بفلترة البيانات طبقاً لعدة شروط '[H5] لتسهيل العمل تم عمل معادلة في العمود الثامن '=IF(AND(E5>$D$1-1,E5<$D$2+1),C5&F5,"") 'المعادلة تتحقق من وقوع التاريخ بين تاريخي الشرط ، فإذا تحقق 'ليشمل الشروط الأخرى [F5] و [C5] يتم ربط النصوص في الخلايا '------------------------------------------------------------ 'تعيين المتغيرات Dim WS As Worksheet Set WS = Sheets("General") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل With WS 'إزالة الفلترة إذا ما كانت موجودة مسبقاً .AutoFilterMode = False 'الفلترة بناءً على العمود الثامن أي العمود المساعد .Range("A4:H4").AutoFilter field:=8, Criteria1:=Range("H3").Value End With 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Filter Data By Multiple Criteria YK.rar