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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

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

دائماً يلزم بيانات لتجربة الكود فليس من المعقول ان يقوم احد بتعبئة عدة أعمدة(6) في 50 صف اي اكثر من 300 رقم لاجراء اختبار كود عنك على كل حال جرب هذا الكود Option Explicit Sub talween() Dim my_rg As Range, CEl As Range Set my_rg = Range("AE9:AJ59") my_rg.Interior.ColorIndex = 0 Dim my_colore As Byte For Each CEl In my_rg If IsNumeric(CEl) Then Select Case CEl.Value Case Is < 15000: my_colore = 0 Case Is <= 50000: my_colore = 19 Case Is <= 75000: my_colore = 6 Case Is <= 100000: my_colore = 44 Case Else: my_colore = 3 End Select CEl.Interior.ColorIndex = my_colore End If Next End Sub

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

بارك الله فیك استاذي العزيز وجزاك الله خير الجزاء...نعم هذا هو المطلوب..

عمل رائع جداااا استاذ سليم و اعجبنى جداااا معادله الترقيم جزاك الله خيرا على مساعدتك الاخرين " خير الناس أنفعهم للناس "

أرفق مثال للتعديل عليه

تم التعديل كما تريد الورقة Salim من هذا الملف Choose_Winner.xlsm

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

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

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

السلام عليكم المعادلة التي تريد شرحها والتي هي: =DECALER(AV1;(N6-1)*26+6;0) وبالإنجليزية: =OFFSET(AV1;(N6-1)*26+6;0) هي دالة تقوم بتغيير (إزاحة أو نقل) عنوان نطاق معين بعدد صفوف أو أعمدة وبارتفاع أو عرض معينين... والدالة تحتاج إلى 5 وسائط (الثلاثة الأولى ضرورية) وهي بالترتيب: 1- النطاق (خلية واحدة، عدة خلايا، صف، عمود، جدول)، 2- رقم الصف، 3- رقم العمود، 4- ارتفاع النطاق (غير ضروري)، 5- عرض النطاق (غير ضروري)... وفي المعادلة المراد شرحها نجد 3 وسائط فقط (النطاق-رقم الصف-رقم العمود) فهي تقوم بإزاحة (نقل أو إزاحة) الخلية AV1 إلى الصف الذي يلي الصف الذي رقمه تعطيه الجزئية : N6-1)*26+6) من العمود AV نفسه باعتبار أن "رقم العمود" في المعادلة يساوي 0 (الإزاحة تمت وفق الصفوف فقط)، وناتج المعادلة يكون مضمون الخلية الجديدة بعد الإزاحة... لو فرضنا أن قيمة الخلية N6 هي 2 فإن عنوان الخلية الجديدة هو بإزاحة الخلية AV1 بالعدد (2-1)*26+6 أي 32 فتكون هي الخلية AV33... وناتج المعادلة هو مضمون الخلية AV33... ليس لي شرح آخر... بن علية حاجي

السلام عليكم ورحمة الله تم تعديل الكود حسب ما تريد مع إضافة فاصل الصفحات بعد كل 10 وريقات، وتعديل تنسيق الورقة (ارتفاع الصفوف) حتى تحوي كل صفحة 10 كوبونات... بن علية حاجي طباعة أرقام الجلوس.xlsm

شكرا اخى الحبيب على هذه الكلمات الغالية ولكم بمثل مادعوت لى وزيادة

جرب هذا الكود Option Explicit Private Sub Worksheet_Activate() data_val1 End Sub '================================== Private Sub ComboBox2_Change() ComboBox1.Clear Dim I% I = 4 With Sheets("العقود") Do Until .Cells(I, "c") = vbNullString If .Cells(I, "c") = ComboBox2.Value Then ComboBox1.AddItem .Cells(I, "d") End If I = I + 1 Loop End With End Sub '==================================== Sub data_val1() Dim I%: I = 4 Dim arr Dim rg As Object Set rg = CreateObject("system.collections.arraylist") With rg Do Until Sheets("العقود").Range("c" & I) = vbNullString If Not .contains(Sheets("العقود").Range("c" & I).Value) Then .Add Sheets("العقود").Range("c" & I).Value I = I + 1 Loop .Sort arr = .toarray End With Sheets("كشف عميل").OLEObjects("Combobox2").Object.List = Application.Transpose(arr) End Sub الملف مرفق AouKoud_22.xlsm

بارك الله فيكم واثابكم الجنة ونعيمها

اتقضل اخى الحبيب الملف بعد التعديل عليه وعمل ترقيم تلقائى متسلسل للعمود A رئيس اللجنة.xlsm

بسم الله الرحمن الرحيم لاعداد تنصيب لملف الاكسيل كاى برنامج تقوم بتنصيبه على جهازك يحتاج الامر الى خطوتين الخطوه الاولى : تحويل ملف الاكسيل الى ملف تنفيذى ,و يعتبر هذا التحويل من افضل الطرق لحمايه اكواد الملف من كسر الحمايه حيث يصعب جدا كسر حمايه كلمه السر و قد قمت باستخدام برنامج XLtoEXE (البرنامج بالمرفقات) كما هو واضح بالصور الان قمت بتحويل ملق الاكسيل الى ملف تنفيذى . الخطوه الثانيه: اعداد تنصيب ببرنامج InnoSetup (البرنامج بالمرفقات) لهذا الملف و الظهور مع Start او سطح المكتب و اضافه ملفات اخرى قد يحتاجها الملف و يمكن استخدام هذا البرنامج مع اى ملف بامتداد exe لتنصيبه مرفق ملف بعد فك الضغط ستجد ثلاثه ملفات الاول : XLtoEXE و هو البرنامج الذى يقوم بالتحويل من أكسيل الى exe الثانى : InnoSetup و هو البرنامج الذى يقوم بالتنصيب الثالث : setup ملف تطبيق للشرح السابق السلام عليكم Excel.rar