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

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب محمد ابو البراء بارك الله فيك عمل رائع جعله الله في ميزان حسناتكم اخي العزيز ابو طارق اليك الملف المرفق اخيرا ( العمل بكامله) وفيه الاحصاء وان شاء الله تكون المعادلات صحيحة وتاتي بنتائج صحيحة انا اقتبست الفكرة من معادلة الاستاذ الفاضل محمد ابو البراء جزاه الله خيرا في المشاركة 10 لكن بمعادلات عادية وليست صفيف تقبلوا فائق احترامي وتقديري العمل بكامله.rar

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

الأستاذ / أبو البراء السلام عليكم ورحمة الله وبركاته المشكلة في الأكواد تم إعادة تسمية كود واشتغل الملف والحمد لله. شيت 22 صنايع.rar

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

أخى الحبيب ( محمد نت ) وبعد إذن أخى الحبيب ( حمادة باشا ) وأعذرنى لم أستطع فتح مرفقك لأن على جهازى أوفيس 2003 وعلى العموم زيادة فى الخير أنظر أخى لهذا المرفق لعله المطلوب أسف تم أضافة المستلزمات الخدمية فى الباب الأول وبعد قرائة مرفقك الأخير قمت بإضافتها للباب الثانى والمرفق الثانى به طلبك قوائم منسدلة.rar قوائم منسدلة 2.rar

السلام عليكم شاهد المرفق 2010 قائمة منسدلة.rar

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

السلام عليكم شاهد المرفق 2010 قائمة منسدلة تتغير بتغيير الخلية من قائمة إلى قائمة.rar

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

أخى الحبيب / ابراهيم شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

تفضل أخى المصنف 4.rar

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

تفضل أخى Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.ScreenUpdating = False x = Val(Sheets(1).Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Move After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Cells.Copy ActiveSheet.Range("A1").PasteSpecial xlPasteFormats ActiveSheet.Range("A1:G1").Value = Sheets(1).Range("A1:G1").Value Application.CutCopyMode = False Sheets(1).Select Application.ScreenUpdating = True End Sub المصنف 4.rar

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

يا أخي كما قال الأستاذ محمد ابو البراء أنا أنصحك بالبحث عن طريق رقم التسجيل

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

السلام عليكم تفضل أخى Sub ragab() Application.ScreenUpdating = False x = Val(ActiveSheet.Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Select Application.ScreenUpdating = True End Sub المصنف3.rar

أخي العزيز / أبو طارق هل جربت الملف الذي رفعته لك في المشاركة رقم 15#

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك بعد اذن اخي الفاضل / وليد فتحي ... جزاه الله خيرا استخدم التعديل التالي علي الكود الخاص بك لتنفيذ طلبك Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo) If sama = vbYes Then '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i '============================= For Each Sh In Worksheets If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _ Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next Else MsgBox "!! لم يتم التفريغ" End If '============================= On Error Resume Next For i = 2 To Sheets.Count Sheets(i).Select Sheets(i).Select ActiveSheet.Protect ("1") Next i '============================= Application.ScreenUpdating = True Sheets("عام").Select End Sub وان شاء الله سينفع معك او قم بوضع ملف كمثال للعمل عليه تقبل خالص تحياتي وجرب علي المرفقات تنفيذ كود مسح بيانات من شيتات مع حماية هذه الشيتات.rar

السلام عليكم يرجي تجربة الكود التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Name = Range("a1").Value End Sub

أخي الحبيب //أبو غريب الحل بإذن الله بسيط فحضرتك عندك 6 شروط فقط بست نسب بمعنى خمس شروط مختلفة النسب بالاضافة الى 4 مسميات هتاخد نفس الشرط وهو 0 يبقي العدد 6 شروط =IF(C8="معلم";D8*0.5;IF(C8="معلم اول ا";D8*1;IF(C8="كبير";D8*1.5;IF(C8="خبير";D8*1.25;IF(C8="معلم اول";D8*0.75;"0"))))) 3دالة IFbraa.rar

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

الأستاذ / أيمن السلام عليكم ورحمة الله وبركاته عذراً فهمت أن نطاق اللون هو عنده التغيير .إليك الملف بعد التعديل. برنامج المقاومات (4).rar

أستاذه أم عبد الله ماهي الطريقة التي تم فتح الملف بها

الأستاذ / أيمن السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. برنامج المقاومات (2).rar

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

ما شاء الله في كل مرة تبدع أكثر الله يوفقك ملاحظة : أحد الموظفين تأخر في يوم السبت ساعة وفي يوم الأحد ساعة وعشر دقائق المجموع = 2.10 والبرنامج يعطيني 2.17 ليش ؟ وتقبل تحياتي السلام عليكم ورحمة الله وبركاته أتفضل أخي الفاضل جرب المرفق تحويل مجموع الساعات لايام معدل_22.rar

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

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

مرفق لكم ــ بفضل الله عز وجل ــ برنامج الشؤون 3 وبه الاتى : 1) قاعدة بيانات تفصيلية لجميع التلاميذ شاملة الاتى : أ) اسم التلميذ ولقبه وسنه وفصله . ب) الرقم القومى وتاريخ ميلاده . ج) حالة القيد ورقمه . 2) قوائم الفصول بطريقة جديدة . 3) كشوف أعمال السنة . 4) قاعدة بيانات تفصيلية لجميع العاملين . 5) إحصاء شامل وعام . 6) إحصاء فصول وتلاميذ . وقد أضيف إليه الإضافات الاتية : 1) بيان حالة قيد لكل تلميذ 2) بيان حالة لكل موظف . 4) نماذج إدارية مثل : أ ) نموذج الغياب اليومى ب) نموذج للتامين الصحى ج) نموذج الإشراف اليومى أسأل الله عز وجل أن يكون هذا العمل خالصا لوجهه تعالى وان يغفر لى ولكم ولكافة المسلمين إنه هو الغفور الرحيم لتحميل البرنامج اضغط هنا

الأخ الكريم/ محمدنت912 السلام عليكم ورحمة الله وبركاته لم أستوعب المطلوب بشكل كامل من حيث كيفية ظهور الباب الأول والباب الثاني قائمة مثلا - ثم ماذا بعد ذلك ؟ أين ستذهب بنا هذة القائمة ؟ علي أية حال - أرفقت تصور للحل - فإن نال إستحسانك يمكن التعديل عليه بما يتوافق مع المطلوب - تقبل تحياتي . استمارات.rar

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

اخى الجموعى Lr = Cells(Rows.Count, "A").End(xlUp).Row تحديد اخر سطر به بيانات فى العمود الاول If Me.ComboBox1.Value = "" Then: Exit Sub هنا نقول انه لو ان قيمة الكومبوبوكس1 فارغه ليس بها بيانات لا يتم تنفيذ شيئا If Me.ComboBox1.Value = "جدول1" Then هنا نقول ان لو قيمة الكومبوبوكس1 = جدول1 يتم تنفيذ الاتى For r = 1 To 9 Rمتغير تم تعريفه على انه من 1 الى 9 وتم تعريفه بذلك لاننا قمنا بتسميه التيكست بوكس فى البدايه من 1 الى 11 بالتسلسل Sheet1.Cells(Lr + 1, r).Value = Me.Controls("TEXTBOX" & r) Sheet1.Cells(Lr + 1, r).Value-----هنا نقول ان قيمة اخر خليه بها بيانات+1(اى الخليه التى تلى اخر خليه بها بيانات) تساوى Me.Controls("TEXTBOX" & r----قيمة التيكست بوكس من رقم 1 الى رقم 9 (المتغير الذى تم تعريفه سابقا R) Next Next----تقوم بتكرار العمليه السابقه من 1 الى 9 End If هنا يتم انهاء عمل القيد طالما بدئناه ب IF -------------------------------------------------------------------- وهكذا بالنسبه للباقى ------------------------------------------------------------------- LR1 = Cells(Rows.Count, "J").End(xlUp).Row If Me.ComboBox1.Value = "جدول2" Then For rr = 1 To 9 Sheet1.Cells(LR1 + 1, rr).Offset(0, 9) = Me.Controls("TEXTBOX" & rr) Next End If LR2 = Cells(Rows.Count, "S").End(xlUp).Row If Me.ComboBox1.Value = "جدول3" Then For rr = 1 To 9 Sheet1.Cells(LR2 + 1, rr).Offset(0, 18) = Me.Controls("TEXTBOX" & rr) Next End If LR3 = Cells(Rows.Count, "AB").End(xlUp).Row If Me.ComboBox1.Value = "جدول4" Then For rr = 1 To 9 Sheet1.Cells(LR3 + 1, rr).Offset(0, 27) = Me.Controls("TEXTBOX" & rr) Next End If ComboBox1_Change أتمنى ان اكون استطعت توصيل المعلومه فكما قلت سابقا ان اشرح على قدر فهمى

الشكل المقصود بعد الادارج كالتالي

onlyDate:Format([generalDate];"short date") onlyTime:Format([generalDate];"short Time")

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

اذا اردت الجمع مع بقاء التاريخ والوقت فهذا يمكن تحقيقة داخل النماذج المستمرة او في التقارير حيث ستكون حقول الجمع غير منضمة اما سؤالك الرئيس وهو طلب تصفية بين وقتين فهذا يمكن الحصول عليه داخل الاستعلام باستخدام الدالة Between شريطة : 1-ان يكون نوع الحقل ( وقت/تاريخ) 2- فرز الوقت عن التاريخ العام بعمود مستقل ، وضع فيه المعيار التالي مثلا : Between #06:00:00# And #08:00:00# ويمكنك استخدام حقلين في النموذج لكتابة الوقتين المراد التصفية بينهما بعد هذه العمليات يمكنك الجمع وستضطر حينها الى انشاء استعلام جديد للجمع واستبعاد التواريخ والاوقات آمل ان اكون وفقت في الايضاح وفقك الله لكل خير ،،،

حقيقة المقصود غير واضح ولكن هذه الدالة لاستخراج الفرق بين الوقتين بالدقائق lateN:DateDiff("n";[startDate];[EndDate])) وهذه لتحويل الناتج الى ساعات ودقائق lateH: IIf([lateN]<=0;0;[lateN]\60 & ":" & [lateN] Mod 60)

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

أخى الفاضل / عبد الغني تفضل المرفق على أوفيس 2003 نسخ اسم الورقة2.rar

مناقشات ونصائح مشرفى و اعضاء المنتدى على البرنامج هذه النصائح و الارشادات وضعتها ليستفيد منها الجميع ليستفيد الاعضاء والرد على استفساراتهم حول البرنامج ولكى يستفيد المبرمجين من نصائح غالية عند تجربة برامجهم للاستاذ الفاضل الخلوق عبد الله باقشير واليكم المناقشات و النصائح التى كانت حول البرنامج عبد الله باقشير السلام عليكم يجب ان انبهك الى شي مهم لتجربة البرنامج ضع قاعدة بيانات كبيرة تتجاوز 10000 صف وقيس حينها سرعة البرنامج تحياتي هانى بدر استاذنا ومعملنا استاذ عبدالله باقشير إستكمالاً لما تفضلتم به من تعقيب بحسبة بسيطة لو افترضنا متوسط فواتير البيع اليومي فقط 10 فواتير في اليوم في متوسط عدد سطور 20 سطر فيكون لدينا في نهاية العام المالي مايقرب من 72000 سطر داخل قاعدة بيانات البيع فقط دون باقي مستندات الدورة المستندية ونامل من الله عز وجل ان يكون لدى اخونا الكريم عمرو وفقه الله وجزاه خيرا مايبتعد به عن المعادلات داخل الخلايا ليتفادى بطء البرنامج تقبلوا تحياتي عمرو_ الاستاذ القدير عبد الله باقشير الاستاذ القدير هانى بدر شكرا لمشاركتكم ونصائحكم الغالية التى تعمل على اثراء الموضوع وتماما اتفق معكما فى اقتراحاتكم وهذا بالفعل ما اكنت اعمل عليه فى بدايه مشروعى هذا وبالتخصيص فى هذه النسخه لذلك قمت بعمل التالى خلال عملى فى هذا البرنامج 1- لن يتعامل المستخدم نهائيا ولن يشاهد خلايا الاكسيل فالبرنامج بوجهة تطبيقية كامله كل الشاشات معموله بنظام ال userform 2- البعد كل البعد عن المعادلات التى تبطئ من عمل البرنامج وتسطحه وخصوصا انه برنامج مخزون 3- قاعدة بيانات كبيره وبالفعل ما ذكره الاستاذ عبدالله و الاستاذ هانى كان موضوع بعين الاعتبار فى بداية مشروعى لذلك احب ان اطلعكم على طريقتى فى عمل قاعدة بيانات هذا البرنامج ** البرنامج يحتوى على 2 قاعدة بيانات القاعدة الاولى وهى خاصة بالفواتير ويتم حفظ الفواتير بكامل اصنافها بالاضافة الى الاشياء الاخرى من كميات و اسعار وخلافه وهى تسع ل 80000 (ثمانون الف) صف لذلك اذا قام المستخدم بادخال 200 صنف (سطر) يوميا ان شاء الله لن يتم تجاوز قاعدة البيانات وللعلم انه من الممكن فتح قاعدة البيانات الى اكثر من ذلك. ولكنى فى هذة النسخه فضلت ان يكون البرنامج يسع الى تسجيل 220 صنف يوميا حتى نستطيع التجربه بشكل فعال .. مع العلم ان الشهر توجد به بعض العطلات لذلك استطيع انا اقول ان البرنامج معد على تسجيل 220 صنف يوميا او 80000(ثمانون الف) سطرسنويا و اعتقد ان هذا ليس بقليل القاعدة الثانيه ويتم تسجيل فيها جميع الحركات المالية كالسندات و المصاريف و الخصومات ومبالغ الفواتير لكل عميل وهى تسع الى 30000(ثلاثون الف) حركه ماليه فمثلا لو انك تسجل فى اليوم 10 فواتير فيكون فى الشهر عندنا 300 فاتوره ونفرض ايضا ان هناك 300 سند فى الشهر و300 خصومات ومصاريف فى الشهر فيكون عدد السطور او الصفوف بالنسبه للحركات الماليه 900 صف شهريا وفى خلال سنه سوف تستخدم 11 الف تقريبا . فقاعدة البيانات تسع الى 19 الف اخرى وبهذا التقسيم تكون سرعة البرنامج واستجابته ممتازة جدا.. فتقارير الاصناف و الكميات تكون من القاعدة الاولى اما تقارير حسابات العملاء و التقارير المالية تكون من القاعدة الثانيه 4-عمل اختصارات كثيره للمستخدم داخل الشاشه الواحده تمكنه من الوصول الى الهدف المطلوب بضغطة زر واحده وهذا يزيد من سرعة الاستخدام فمثلا فى شاشة الفواتير عندما يقوم المستخدم باختيار ضنف ما او كتابة كوده لكى يدخله فى الفاتورة يمكن للمستخدم بضغطة زر واحده ان يستدعى تقرير حركة الصنف هذا ويوجد زر اخر من اختصارات الاصناف تمكنه من تعديل بيانات الصنف هذا الذى قام مسبقا بادخالها و ايضا قمت بعمل اختصارات لاسم العميل داخل شاشة الفاتورة فبمجرد اختيارك لاسم العميل من القائمه المخصصه لذلك لعمل فاتورة باسمه... يوجد زر يوصلك لكشف حساب العميل فورا ويوجد زر اخر يوصلك الى بيانات العميل التى قمت مسبقا بادخالها...كما يوجد زر لادخال سند مباشرة الى العميل و الذهاب الى شاشة الحركات المالية ليس ذلك فقط بل كل شاشه بها اختصارات سريعه توصلك الى اى شاشه اخرى .. وهذا و الحمد لله تم تجربتة ويعمل بشكل ممتاز ويوفر الوقت على المشتخدم من خلال انتقاله الى عدة شاشات للحصول على التقارير... لذلك كان من المهم جدا عمل شرح للبرنامج ليعرف المستخدم كيف يستطيع الانتقال بسهولة ويسر وذلك ما جعلنى اقوم بعمل شرح للبرنامج الذى اخذ منى وقت كثير جدا لاعداده ** ليس هذا هو كل الاختصارات بل يوجد الكثير و الكثير وقد ادركتها فى شرحى لكى يستفيد الجميع 5-مرحلة التجربه التى انا بصددها الان اقوم بالوصول الى 80000 صف فى قاعدة البيانات وهذا ما تسبب فى تاخير نزول البرنامج حتى الان الذى انتهيت من اعداده فى اول هذا العام 6- يتم تجربة البرنامج الان عند بعض المستخدمين بمحلات تجارية واقوم بمتابعة كافة التقارير و كشوفات الحسابات وسرعة البرنامج و بفضل الله تعالى النتائج كانت مرضية جدا وان شاء الله سوف ينزل البرنامج بصورتة النهائية فى نهاية الاسبوع القادم والصورة التالية توضح من خلال تجربتى التى اقوم بها الان لقد وصلت بقاعدة البيانات الى اكثر من 75000 صف و البرنامج لم تتائر كفاته والحكم ان شاء الله سوف يكون لكم بعد مشاهدة البرنامج عبدالله باقشير السلام عليكم استدراك ايضا يجب اختبار جميع الزرارات الموجوده في البرنامج لما تكون قواعد البيانات فارغة من البيانات يعني بداية استخدام البرنامج لتجنب ظهور رسائل خطا في امان الله عمرو_ الاستاذ الفاضل الخلوق عبدالله باقشير شكرا على نصائحك الغاليه وبالفعل بعد ان انتهيت من اعداد البرنامج منذ شهرين تقريبا اختبرت البرنامج على قواعد بيانات خاليه وعالجت و الحمد لله كافة الرسائل التى كانت تظهر نتيجة ارتباط الاكواد بوجود بيانات و الحمد لله كله على مايرام وهذا خطا كان موجود بالاصدار السابق ففى حالة عدم وجود بيانات كانت تظهر بعض رسائل الخطا هاني بدر قال فى 09 مارس 2013 - 17:48 : هاني بدر قال فى 09 مارس 2013 - 17:48 : عمرو_ نعم ما ذكرته صحيح ولكن هناك اصحاب منشات قد طلبوا بوضع بند للمصاريف يتم وضع فيها اى مبالغ تم فقدها من توالف او غيره دون تاثير على ارصدة الاصناف داخل المخزون وبهذه المناسبة موضوع فى خطة تحديث هذا البرنامج الى النسخه الرابعة و الذى ان شاء الله ساعمل عليه من منتصف هذا العام سوف يتم ادراج بعض من دليل الحسابات كالرواتب ومعدل الانفاق و الايجارات. ويقوم المستخدمين لهذا البرنامج بوضع كل المصروفات كرواتب الموظفين او الايجارات او غيرها كمصاريف.. لحين فصلها فى الاصدار القادم وكنت بالفعل قد بدات فيما يسمى بشجرة الحسابات ولكن عامل الوقت لم يكن فى صالحى للتفرغ لهذا الموضوع خصوصا اننى لست محاسب وكنت اتفقت مع بعض العاملين فى هذا المجال لمحاولة فهم و تفعيل وتقديم هذه الاحداث داخل البرنامج هانى بدر وايضا انت هنا اعتبرت ان لديك مخزن عام ومركز بيع في نفس الوقت اى لا توجد مخازن منفصلة (تعمل كوعاء لدخول وخروج البضائع ) عن مراكز البيع وما قصدته من كلامي هو ان تكون اهم مخرجات البرنامج الشكل المتعارف عليه لحساب المتاجرة وصولآ الى تكلفة المبيعات لمقابلتها بصافي المبيعات للخروج في النهاية برقم مجمل الدخل المرتبط بالنشاط. عمرو_ نعم هذا ما اعتبرته بالفعل انه مخزن واحد وهو فى نفس الوقت مركز البيع الذى يبيع منه المستخدم وتوجد تقارير فى الموازنه تتيح للمستخدم معرفة تكلفة المبيعات وما هو الربح المتوقع على اساس تكلفة المشتريات.. ومن الممكن عمل اكثر من مخزن بنفس الفكره ولكن ذلك يتطلب اضافة قاعدة بيانات اخرى لكل مخزن. او ادراجها داخل القاعدة الرئيسه.وان كنت افضل الطريقة الاولى لسرعة واداء الاكسيل اما عن حساب المتاجره وصولا الى تكلفة المبيعات فان اى مصاريف يصرفها العميل فى سبيل عملية البيع. كرواتب العاملين و المندوبين وايجار المنشاه. واخرى. كل ذلك يستطيع المستخدم ادراجها كمصاريف ويتم خصمها من هامش ربحه النهائى فى تقرير الميزانية هانى بدر وفيما يخص صفحة تسجيل الجرد الافتتاحي لم افهم ماقصدته من صفحة تسجيل الجرد والاكواد فانت تعلم ان صفحة الارصدة الافتتاحية هي صفحة يجب التعامل معها مرة واحدة طوال عمر المنشاة ارجو القاء مزيد من الضوء حول هذه النقطة. عمرو_ نعم اخى هانى صفحة الارصده الافتتاحية يتعامل معها المستخدم مرة واحده. ولكن ليس طوال عمر المنشاه وانما فى نهاية كل سنه يقوم بعمل جرد ويسجل اصناف الجرد كرصيد افتتاحى للسنة القادمه . هذا ما وضعته فى برنامجى ان يكون هناك جرد سنوى او اذا كان معدل الفواتير اليومى قليل فمن الممكن ان يستخدم هذا البرنامج لعدة اعوام دون جرد. فاقصى عدد حاليا عندى لتسجيل الاصناف هو 80000(ثمانون الف) سنويا فيوجد مستخدم يستهلكها فى سنتين واخر فى ثلاث سنوات وهكذا هانى بدر واما فيما يخص تعليق استاذنا الكبير عبدالله بتقشير فالبفعل هذا الخطا موجود في النسخة السابقة وهو امر بسيط يمكنك معالجته كما عالجت ماهو اصعب من ذلك بكثير عمرو_ نعم بالفعل هذا ما حدث وقد تم تجربة البرنامج بقواعد بيانات خالية وتجاوزت الخطا اذا اعتبرنه خطا ( لانه يتلاشى عند تسجيل بيان واحد فقط من كل فئة )الموجود فى النسخة السابقة هانى بدر ويبقى السؤال الاهم وهو كيف يقوم البرنامج باحتساب تكلفة الاصناف المباعة فكما تعلم اسعار الشراء متغيرة فما هي سياسة التسعير هل الوارد اولا ام متوسط السعر ام الوارد اخيرا يصرف اولا عمرو_ بالفعل هذا السؤال مهم جدا واليك طريقة الحساب اولا عند كتابة كود او اختيار اى صنف من القائمة المخصصه لذلك تظهر بياناته فى مستطيل اسفل الفاتورة وهى كالتالى فئة الصنف......الكمية الحالية......الرصيد الافتتاحى .......سعر البيع المسجل .............سعر الشراء وهنا يكون اخر سعر شراء ويمكنك وضع سعر بيع انت تحدده عند بداية تسجيلك للصنف داخل قاعدة البيانات ويظهر هذا السعر داخل مربع سعر الصنف ويمكنك تغييره اثناء ادراج فاتورة اذا اردت انت ذلك ثانيا عند حساب الموازنة وبالاخص عندك طلب تقرير حركة المخزون يتم حساب تكلفة كل صنف على حده بمتوسط السعر فمثلا الصنف 1 تم بيعه فى الفاتورة الاولى بمبلغ 10 وفى فاتورة اخرى تم بيعه بمبلغ 12 فيكون متوسط سعر البيع هو 11 لهذا الصنف وكذلك فى المشتريات فيوجد لكل صنف متوسط سعر بيع ومتوسط سعر شراء بعدها يمكنك حساب الربح و الخسارة لكل صنف للمرة الثالثه اشكرك على اثراك للموضوع بطرحك للاسئلة و الاستفسارات وسوف اشرح هذة الجزئيه وايضا ساشرح نقاط اخرى ربما تفيد اعضاء المنتىدى فيما بعد ومعلومة جديده سوف اقوم بتوضيحها هنا من خلال استفسارتكم الفعاله لافادة الجميع ماهي المعالجة في حالتي الزيادة او النقصان في رصيد المخزون كما تفضلت اخى هانى ووضعت هذا الحل ( الزيادة تعامل كفاتورة شراء ) والمورد فيها هو ايرادات اخرى (بند من بنود الايرادات ) (والنقصان تعامل كفاتورة بيع) والعميل فيها هو المتسبب في النقصان وبالفعل هذا ما كنت اوصى به للمستخدمين فى الاصدارت السابقه للبرنامج ولكن فى هذا الاصدار وجدت طريقه اخرى وذلك لفصل هذه الحاله ووضعها فى موضوع مستقل فى هذا الاصدار قمت باضافة نوعين من الفواتير لم تكن موجوده بالاصدارت السابقة وهى فاتورة مبيعات مجانية وفاتورة مشتريات مجانيه.... لاحظ الصورة التالية وهذا النوع من الفواتير يستخدم لغرضين !- الحالة الاولى اما ان تكون هناك بالفعل بعض السلع التى تقدم من المستخدم الى العميل كتعويض عن توالف او تقدم فى صورة عرض(Offer) فتسجل الفاتورة مبيعات مجانية .. وكذلك الحال فى المشتريات المجانيه عندما تاتى للعميل بعض السلع كعرض او تعويض !!- الحالة الثانية وهنا هو الرد على السوال المطروح فى اول المشاركة فيمكنك معالجة حركة مستودعك سواء زياده او نقصان عن طريق هذا النوع من الفواتير فمثلا فى حالة زيادة رصيد المخزون نقوم بتسجيل فاتورة مشتريات محانية وفى حالة نقص المخزون نقوم بتسجيل فاتورة مبيعات مجانيه وهذه الطريقة افضل من السابقة حيث انها لن توئر على الرصيد النهائى (اجمالى مديونية العملاء و الموردين) ولاحظ كيف يتعامل البرنامج مع هذا النوع من الفواتير 1-فاتورة المبيعات المجانية او المشتريات المجانية تسجل داخل المستودع بدون قيمه فقط يتم تسجيل الاصناف وكميتها ففى فاتورة المبيعات المجانية يتم خصم الكمية من رصيد المخزون وفى حالة المشتريات المجانية يتم زيادة الكمية الى رصيد المخزون 2- فواتير المبيعات المجانية او المشتريات المجانية لا تظهر فى كشف حساب العميل وهذا طبيعى لانها بدون قيمه 3- عند تسجيل هذا النوع من الفواتير ستجد ان البرنامج قام باضافة كلمة " ـــ عرض ـــ" الى اسم العميل او المورد 4- فى حالة انك اردت ان تعرف جميع الفواتير المجانية سواء مبيعات او مشتريات يتم ذلك من خلال التقارير الشامله و اختيار نوع الفاتورة المطلوبه 5- كما يمنكك البحث عن العملاء او الموردين الذين حصلوا على عروض او فواتير مجانية من خلال الذهاب شاشة بحث حركة المستودع و اختيار فواتير العروض لاحظ الصورة التالية 6- عند حساب الموازنه فواتير المبيعات المجانية هى خصم من رصيد كميات المخزون بدون قيمة ماديه فذلك يؤدى الى تقليل متوسط سعر البيع واليك مثال على ذلك الصنف 1 تم البيع منه 100 وحده فى فواتير متعدده بمبلغ 1000 (اجمالى فواتيره) فيكون متوسط سعر البيع هو 10 ونفس الصنف تم تسجيل مبيعات مجانية منه بحوالى 20 وحده و يكون المبلغ صفر لانها مجانيه فيكون اجمالى مبيعات هذا الصنف 120 وحده وقيمة الفواتير ستكون نفسها 1000 فيكون متوسط سعر البيع هو 1000/120 و الناتج سيكون 8.33 فى المثال السابق وجدنا انخفاض فى متوسط سعر البيع وبالتالى سوف يؤدى الى انخفاض الربح و العكس تماما فى حالة المشتريات المجانية التى تؤدى الى زيادة فى الربح ما سبق شرحه كان بالنسبة لمعالجة حركة الكميات داخل المخزون وهذا شرح اخر بسيط لمعالجة الرصيد المالى بالزيادة او النقصان ويتم ذلك عن طريق شاشة الحركات المالية 1- اختيار نوع الحركة مصاريف وكما شرحت من قبل هى عبارة عن اى مصاريف يصرفها العميل فى مقايل عملية البيع 2- اختيار نوع الحركة خدمات قادمه واعتقد كان الافضل تسميتها ايرادات قادمه ( وسوف اقوم بهذا التعديل) وهى خاصة بأى زياده فى الرصيد المالى ... شاهد الصورة التالية وعند حساب تقرير الموازنه العامه تدخل المصاريف فى بند دائن والخدمات او الايرادات القادمه فى بند مدين هانى بدر "مافهمته من معالجة البرنامج هو ان العجز والزيادة حدث مايعني البرنامج في شانه هو ظبط الكميات داخل المخزن لتتوافق مع الجرد الفعلي وهذا غرض سليم لكن دون ايصال المعلومة كاملة الى متخذي القرار" "مايقوم به البرنامج صحيح وسيصل الى رقم مجمل دخل صحيح" عمرو_ معالجتك الحسابيه رائعه وهذا شيئ اكيد فى مثال بقول " اعطى العيش لخبازه" والذى افترضته انت فى عمل البرنامج هو كذلك البرنامج هو برنامج مخزون يتابع حركة فواتيرك داخل المخزون سواء كانت مبيعات او مشتريات ويمكنك البرنامج من تعديل ارصدة مخزونك و ارصدتك المالية كما يعطيك البرنامج تقارير شاملة لكل الحركات داخل المخزون و كما ذكرت يعطى البرنامج تقرير موازنة رقم مجمل نهائى صحيح وان اختلفت المسميات الحسابيه التى اعرف انك تدركها جيدا فالبرنامج يعطيك كافة الخصومات ويطرحها من صافى المبيعات بغض النظر ان كان هناك خصم مسموح به او لا و البرنامج فى هذا الاصدار لم يتعامل مع العمليات الحسابيه بفهومها المحاسبى كخصم مسموح به او خصم مكتسب ولكن يمكنك من الحصول على كافة التقارير كتقرير العروض او الخصومات و ايضا تقرير للمستخدمين الذى قاموا بتسجيل هذه الحركات فتستطيع مراقبة المخزون ومن المتسبب فى النقصان كما نستطيع عمل تقرير لكل مستخدم على حده ثم بعد ذلك تستطيع عمل حساباتك الخاصه اما العمليات الحسابيه التى ذكرتها اخى الكريم هانى بدر.. فتحتاج الى تفريعات اخرى وخصوصا اننى لم ادرك شجرة حسابات ماليه داخل البرنامج انا اكتفيت فقط بكلمة مصاريف و ايرادات وارده دون النظر الى تفاصيلها ولكن توجد تقارير مالية رئيسية داخل البرنامج مثل - تقرير بجميع خصومات السندات -تقرير بجميع خصومات البيع او الشراء لكل مستخدم على حده - وتقارير اخرى توجد فى صفحة الموازنه فكما قلت ان شاء الله فى الاصدار الرابع و اكرر اننى سوف استعين بحضرتك فى بعض الامور الحسابيه بمفهوم المحاسبه ليكون اضافتنا الى الاصدار الجديد هى الحسابات الختاميه