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

جرب هذا الملف Saef.xlsx

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

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

جرب هذا الملف UNIQ_DATA.xlsm

على حسب معطياتك اعتقد هذا المطلوب بالكود لا يظهر التاريخ الا في حالة سداد قسط معين بناء على تاريخ اليوم ولن يتغير في الايام القادمة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Row > 6 Then If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 11 Then If Target.Value = "سدد" Then Target.Offset(0, 1) = Date Else Target.Offset(0, 1) = "" End If End If End If End Sub حسابات (1).xlsb

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

عند شغال مافيه اي مشكلة و يتكرر الصوت بطريقة ممتازة لكن جرب هذا التعديل المرفق مثال_للرسائل_عند_عداد_الوقت.zip

الموضوع جاهز أستاذ جعفر عليك بالذهاب للموضوع و الإطلاع على هذه الخاصية

ابو غريب أين الضغط على الإعـــجــــاب لهذه الإجابة الممتازة ؟!!💙

معادلات ممتازة لكنها كثيرة 12 معادلة (كل 6 أعمدة يجب تغييرها) يمكن اختصار الكل الى معادلة واحدة تكتب في الخلية G4 وتسحب ييميناٌ ثم نزولاً =IFERROR(OFFSET(INDIRECT("'"&OFFSET($G$2,,INT((COLUMNS($A$1:A1)-1)/6)*6)&"'!"&"C$"&ROWS($A$1:A5)),,CHOOSE(MOD(COLUMNS($A$1:A1)-1,6)+1,35,36,37,38,39,40)),"") Saef _Extra.xlsx

السلام عليكم استاذ سليم انا عملت تعديل على معادلة حضرتك وارغب فى ان تتطلع علية وابداء راى حضرتك وشكرا Saef.xlsx

السلام عليكم الف شكر يا استاذ سليم وجعلة الله فى ميزان حساناتك

ياليت لو انتك تحدد الجدول او الاستعلام الي تحتاج عليه التعديل لأنه بدون التحديد يصير الموضوع يحتاج تحليل لكن بشكل عام موضوعك بسيط جدا ضع في معيار الاستعلام تحت العمود الي تحتاج عليه الفرز و الفلترة IsNull Or 0 بالتالي ما راح تظهر امامك اي سطور فيها قيمة اكبر من الصفر

تفضل أخي الكريم لاحظ إضافة عمود البلد في آخر الجدول ويمكن إخفاؤه وتم استعمال معادلات countifs للعد باكثر من شرط وهو البلد ونوع المسكن ومعادلة sumifs لجمع عدد الذكور باكثر من شرط وكذلك مع الاناث واضافة صف للمجموع mas_Exc 04.xlsx

بما انك ضيف جديد : تم تعديل العنوان الرجاء في مشاركاتك القادمة ان تهتم بعنوان الطلب

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

بارك الله بجهودك الطيبة.

تفضل اخي الكريم متاخرات (2).rar

مشكور اخي علاء

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

تكمن المشكلة في عدد الحروف في السطر البرمجي حيث يتعدى الكود الخاص بإضافة جميع الأسماء في مصفوفة array العدد المسموح في السطر والحل هو تقسيم السطر إلى مجموعة من السطور البرمجية عن طريق المسافة و underscore ولقد قمت بعمل إجراء يقوم بإنشاء الكود الخاص بموديول1 في ملف نصي bas حتى يمكن استيراده لمحرر الأكواد بعد ذلك خالص دعواتي بالتوفيق mas_TransA2E.xlsb

لديك حقول بها عمليات حسابية فلا تضع لها قيمة "" لتفريغ محتواها فقط اتركها بدون قيمة وستاخذ قيمتها تلقائيا من العملية الحسابية مثل [Text98] = "" [Text99] = "" [Text24] = "" فاتورة معدلة.rar تحياتي

وعليكم السلام-جرب هذا الموقع https://convertio.co/ar/xls-csv/ أو هذا https://onlineconvertfree.com/ar/convert-format/xls-to-csv/

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

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

وعليكم السلام - تفضل 1الارقام الطويلة.xlsm

اصدار جديد من برنامج الملاحظة وفق الضوابط والشروط المعمول بها عندنا في اليمن برنامج_الملاحظة5.xlsm التعريف ببرنامج الملاحظة.pdf

توكل وابدأ على بركة الله

تفضل-يمكنك استخدام هذه المعادلة =SUMIF(Sheet1!$B:$B,$B2,Sheet1!$F:$F) Total.xlsx

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

أحسنت استاذ منير .. مجهود رائع بارك الله فيك

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

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

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

تفضل اخى الكريم شفافية اليوزرفورم.xlsm

لاحظ المعادلات الموجودة فى كل الخلايا معادلة Index & Match

اهلا بك اخ كريم فى المنتدى -تفضل مرتبات.xlsx2.xlsx

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

جرب هذا تم ضبط معادلة الرصيد 4455888.xlsm

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

تفضل لك ما طلبت 4455888.xlsm

السلام عليكم ورحمة الله اكتب الكود الاول فى موديول عادى اما الكود الثانى فضعه فى حدث ولرقة العمل Sub SortData() Range("C2:E" & Range("D" & Rows.Count).End(xlUp).Row).Sort key1:=Range("E2"), _ order1:=xlDescending, key2:=Range("D2"), order2:=xlAscending End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then Call SortData End If End Sub

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم شريط طباعة accde.rar شريط طباعة.rar

السلام عليكم ورحمة الله ضع فى الخلية "P1" ترتيب اول شهادة تريد طبعها و الخلية "P2" آخر شهادة تريد طبعها ثم انسخ هذا الكود وضعه فى موديول وخصص له زر و سيقوم الكود بتعديل القيم تلقائيا Sub PrintArea() Dim i As Integer, j As Integer, x As Integer, y As Integer x = Sheet3.Range("P1").Value y = Sheet3.Range("P2").Value i = (x * 12) + 1 j = (y + 1) * 12 Sheet3.PageSetup.PrintArea = Sheet3.Range("B" & i & ":L" & j).Address Sheet3.PrintPreview Sheet3.PrintOut from:=1, to:=2, Copy:=1 x = x + 2 y = y + 2 Sheet3.Range("P1").Value = x Sheet3.Range("P2").Value = y End Sub

السلام عليكم لقد اضفت بعض الخصائص و التحسينات على شريط الطباعة و أحببت ان أطلعكم عليها و من أهمها النقاط التالية: 1- التصدير إلى الوورد و pdf 2- تشغيل الشريط حتى في وضعية إخفاء شاشة الأكسس و عمل أزرار التنقل بكل مرونة. و هذا مثال عليه أتمنى تجربته و إطلاعنا على النتائج. شريط طباعة.rar