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

وعليكم السلام ورحمة الله وبركاته أخي الحبيب محي الدين أبو البشر بارك الله فيك وجزيت خيراً على الترحيب الحار .. والمنتدى منور بيكم إخواني وللأسف سأغيب عنكم فترة لأنني في أعمال امتحانات الثانوية العامة ولا أتواجد إلا نادراً كل عام وأنتم بخير

السلام عليكم ورمضان مبارك تقبل الله صيامكم وقيامكم وبعد عاد النور إلى منتدانا الحبيب بعودة الأستاذ ياسر حمداً لله على السلامة

السّلام عليكم و رحمة الله و بركاته مرحبا بالحبيب الغالي .. حبيب الكل .. " ياسر خليل أبو البراء " رمضان كريم كل سنة و أنت إلى الله أقرب عودة ميمونة بإذن الله خالص محبّتي و تحياتي

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 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

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد حتي تخدم شريحة كبيرة من المستخدمين مع حركات اخي الحبيب / شوقي ربيـع الجديد في النموذج فورم واحد ولكن يمكنك من خلاله الاختيار بين لغة الفاتورة (عربي - انجليزي ) ولغة الايصال (عربي - انجليزي) اختيار سهل للاصناف اختيار طريقة السداد بيان رصيد العميل واترككم مع النموذج أدعو الله سبحانه وتعالي ان يكون النموذج فيه الفائدة لكم ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب فاتورة مبيعات اوفيسنا_2.rar

الا خ ياسر خليل أبو البراء عودا حميدا كل سنة وانت طيب اعاد الله رمضان عليك وعلي امة الاسلام باليمن والبركات نورت المنتدي

حازل ان تستبدل الفاصلة الغادية بفاصلة منقوطة بالمعادلة لتصبح هكذا =TEXT(DATE($A$2;1;1)+ROWS($A$1:A1)-1;"dddd yyyy/mm/dd")

جرب هذا الملف تم تغيير اسماء الصفحات لحسن عمل الكود مع اللغة الاجنبية العمل يتم مع الصفحة Sheet1 نتيجة الدور الأول salim.rar

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب أحمد "أبو بسملة" جزاكم الله خيراً على الجهود الحثيثة لرفد المنتدى وخصوصاً ما يتعلق بسلسلة دروس الفيجوال بيسك دوت نت بكل ما هو مفيد راجياً من الله أن تكونوا بخير وعافية كلكم جميعاً ...وأن يجعله شهر رحمة و مغفرة وبركة علينا جميعاً والسلام عليكم ورحمة الله وبركاته السلام عليكم ورحمة الله وبركاته أخي الحبيب عبد العزيز البسكري وأنتم لكم وحشة فمحل إخوتي الكرام هو القلب دائماً لا تنسونا بصالح دعائكم... راجياً من الله أن تكونوا بخير وعافية كلكم جميعاً ...وأن يجعله شهر رحمة و مغفرة وبركة علينا جميعاً والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته اخوانى واحبابى مثال اخر منقول للفائده البرنامج يفيد كمثال لبعض الأشياء في الفيجول بايزيك مثل: 1- عمل برامج ثنائية الواجهة عربي/انكليزي و التنقل بين الواجهتين بسهولة 2 - قراءة شجرة المجلدات والملفات الكاملة لقرص أو مجلد معين 3 - استخدام Progress Bar 4 - حفظ البيانات إلى ملفات نصية وقراءتها منها 5 - حفظ الإعدادات إلى الريجستري وقراءتها منه 6 - استخدام open Dilaog و Save Dialog 7 - استخدام error provider 8 - استخدام LinkLabel لتوفير وصلة للبريد الالكتروني أو لعنوان موقع أرجو أن تجدوه مفيدا تقبل الله منا ومنكم صالح الاعمال وجزاه الله كل خير صاحب المثال ListFolderTree.zip

ربما كان مثالاً للمطلوب find_max.rar

منور الاستاذ الكبير ياسر خليل صراحة هو ملح المنتدى بغيير وجودة المنتدى بدون طعم عوداً حميدا نورت

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

اخي وائل عز الدين المشكلة في الخطوط قم بنسخ الخطوط المرفقة مع البرنامج وضعها في المسار C:\Windows\Fonts تحياتي

راجع الصورة جيدا وانظر اين تم وضع الكود اما المرفق فقد وضعت الكود داخل الحدث SelectionChange فكل ما تضغط في مكان تطلع الرسالة دي تم وضع الكود في مكانه الصحيح تفضل طباعة.rar

السلام عليكم ورحمة الله وبركاته ،،، اخي الكريم كل عام وانت بالف خير على حسب ما فهمت ... جرب ووافني بالنتيجة :: تحياتي Alwazeer-listBox.rar

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

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

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

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

أخي الحبيب ومعلمي الكبير أبو تامر بارك الله فيك وجزيت خيراً .. والمنتدى نور بوجودك فيما بيننا فقد أرجعتنا لأيام زمان ، ونرجو تواجدك الدائم فيما بيننا وكل عام وأنت بخير وجميع الأخوة والأحباب بالمنتدى تقبل وافر تقديري واحترامي

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

أخي الكريم محمد حمدان كل عام وأنت بخير جرب الملف التالي علك تجد فيه ضالتك إن شاء الله تقبل تحياتي NoToTxt Spell Numbers UDF Function.rar

جرب التالي Private Sub Text482_AfterUpdate() If Me.Text482 = 0 Then Me.Qproduced.Enabled = False MsgBox "Can not produce becuase the avalialbe limit of raw material is equal to zero", vbOKOnly, "Attention" Else Me.Qproduced.Enabled = True End If End Sub

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

وعليكم السلام ورحمة الله وبركاته ،،، ولماذا تقوم بتسجيل العلامات من اكسل؟ لماذا لا يتم تسجيلها من نفس البرنامج؟

ألا يوجد رد واحد على طلبي هذا ..؟

جزيت خيرا وشكرا على الشرح الجميل وتم تغيير العنوان بما يناسب الموضوع

تفضل غير المعادلة بهذه =Sum([Minutesum])/Sum([Minutesum2])

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

تم تعديل المرفق استخدم الدالة UpdateCO لتنفيذ المطلوب , مع التحية . DB.rar

تفضل صنعت لك ساعة بسيطة باسطر قليلة ومفهومة Private Sub Form_Timer() Label3.Caption = Label3.Caption - 1 If Label3.Caption = 0 Then Label2.Caption = Label2.Caption - 1 Label3.Caption = 60 ElseIf Label2.Caption = 0 Then Label1.Caption = Label1.Caption - 1 Label2.Caption = 60 ElseIf Label1.Caption = 0 Then Me.TimerInterval = 0 End If End Sub بالنسبة للاحداث يمكنك وضعها ذاخل كود المؤقت لاحظ الشرط الاخير وهو حين يصل حقل الدقائق الى صفر يقف المؤقت ElseIf Label1.Caption = 0 Then Me.TimerInterval = 0 يمكنك وضع شروط اخرى مثلا : حين يصل حقل الدقائق الى رقم معين يحدث صوت معين عداد تنازلي.rar

تفضل اخي الكريم ،،، اسال ما تريد :: تحياتي

وعليكم السلام ورحمة الله وبركاته رمضان كريم ،،، وتقبل الله منك اخي الكريم في المرفق : - يتم انشاء ملف اكسل على سطح المكتب يحتوي على جميع قوائم الصفوف كل حسب صفه - الملف الناتج فيه خلايا محمية وانا قمت بتحديد خلايا العلامات فقط وتستطيع التغيير حسب ما تريد من الوحدة النمطية - لا حاجة لاختيار القسم قبل التصدير كما هو معمول في مثالك -وضعت لك وحدة نمطية للتحكم بتنسيق ملف الاكسل تستطيع تصميمه حسب ما تريد -لحماية الورقة بكلمة سر فقط فعل امر الحماية الموجود في الوحدة النمطية الخاصة بالتنسيق -اي استفسار انا في الخدمة ... :: تحياتي Alwazeer-Tangeet.rar

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

السلام عليكم الاخ الفاضل/ خالد القدس-------- حفظه الله ولك امثال دعائك اضعاف مضاعفة تقبل شكري وتقديري ============================= الاخ الفاضل/ obad65-------- حفظه الله تقبل شكري وتقديري ============================= الاخ الفاضل/ احمد-------- حفظه الله ولك امثال دعائك اضعاف مضاعفة تقبل شكري وتقديري ============================= الاخ الفاضل/ قصي-------- حفظه الله تم التغيير بحيث انه يتم لصق البيانات بثلاثة معايير لصق عرض الاعمدة لصق التنسيقات لصق القيم يمكنك حذف مالا تريده ما عدى القيم طبعا في الكود التالي: Private Sub Kh_Start(iColumn As Integer) Dim RCount As Long, C As Integer C = Cells(iRow, Columns.Count).End(xlToLeft).Column + 1 With MyRng RCount = .Rows.Count .Cells(1, iColumn).Resize(RCount, 1).Copy ' لصق عرض الاعمدة Cells(iRow, C).PasteSpecial xlPasteColumnWidths ' لصق الفورمات Cells(iRow, C).PasteSpecial xlPasteFormats ' لصق القيم Cells(iRow, C).PasteSpecial xlPasteValues Application.CutCopyMode = False End With End Sub تقبل شكري وتقديري خبور خير اعداد تقرير حسب اختيار الاعمدة اتوماتيكيا1.rar