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

السلام عليكم و رحمة الله و بركاته اليوم أقدم الى حضراتكم كودى الجديد الذى تستطيع من خلاله تطبيق التنسيق الشرطى داخل اليوزر فورم أو بعبارة أخرى نقل البيانات بالتنسيقات الشرطية من خلايا محددة الى كنترولات داخل اليوزر فورم مثل التكست بوكس وهذا تحقيقا لطلب أحد الزملاء و هو الأخ ابو راكان العودة على هذا الرابط : http://www.officena.net/ib/topic/65950-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%8A-%D9%81%D9%8A-%D8%A7%D9%84%D9%8A%D9%88%D8%B2%D8%B1-%D9%81%D9%88%D8%B1%D9%85/ الكود و عليه الشرح : Option Base 1 ' التصريح بأن القيمة الافتراضية الصغرى فى المصفوفة = 1 Private Sub UserForm_Activate() ' by Mokhtar 29/12/2015 ' وظيفة الكود ' تطبيق التنسيق الشرطى على كنترول داخل اليوزرفورم ' -------------------------------------------- ' التصريحات والمتغيرات Dim X As Integer Dim myArray As Variant myArray = Array("B2", "C2", "D2", "E2", "F2", "G2", "H2", "I2") ' مصادر التكست بوكس ' فى حالة حدوث خطأ ما تجاهله وانتقل الى الاجراء التالى On Error Resume Next ' حلقة تكرارية على التكست بوكس لتعبئته بالقيم والتنسيق الشرطى من المصادر ' ---------------------------------------------------------------------- For X = 1 To 8 ' عدد التكست بوكس With Me.Controls("Textbox" & X) ' لكل تكست بوكس فى الثمانية ' مصدر نص التكست بوكس .Text = Sheets("ورقة1").Range(myArray(X)).Value ' ' مصدر لون التكست بوكس .BackColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Interior.Color ' ' مصدر لون خط التكست بوكس .ForeColor = Sheets("ورقة1").Range(myArray(X)).DisplayFormat.Font.Color ' End With ' With انهاء جملة Next X ' انتقل الى التكست بوكس التالى ' فى حالة حدوث خطأ ما انتقل الى نقطة البداية On Error GoTo 0 End Sub المرفق : أتمنى أن يكون كودا سهلا و مفيدا لكم فى أعمالكم و برامجكم و أكوادكم بإذن الله تعالى و لا يفوتنى أن أوجه الشكر للأستاذ أبو راكان الذى أوحى لى بفكرة هذا الكود لا تنسونا بدعوة بظهر الغيب تحياتى لكم و كل عام و أنتم أقرب الى الله Conditional Formatting on Userform by Mokhtar.rar

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

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

السلام عليكم ورحمة الله وبركاته . تجربتي في الموضوع ، وتأييدا لأخي عبدالرحمن: طُلب مني عمل برنامج في احد المؤسسات ، وكان عندهم برنامج اكسس حجمه 1.53 GB ، وهو عبارة عن جدول واحد فقط ، وكانوا يدخلون ملفات pdf الموظفين فيه ، مع انه لم يصل الى الحد الاقصى للأكسس وهو 2 GB ، إلا انه توقف عن تسجيل اي سجلات جديدة ، وحتى فتح الجدول اصبح بطيء ، وكذلك التنقل بين السجلات !! وعندما اخرجت الملفات الى مجلد خارجي (نفس نصيحة أخي عبدالرحمن) ، نزل حجم الملف الى 5-10 MB !! جعفر

اخى الحبيب السلام عليكم ورحمة الله اليك ما طلبت شهادات.rar

عبد العزيز البسكري عضو محترف 749 1,058 مشاركات Location:بسكرة - الجزائر Interests:المطالعة - الاكسل - الأوتوبلاي السلام عليكم ورحمة الله وبركاته أخي الحبيب عبد العزيز جزاكم الله خيراً على هذا التشجيع أدعو الله أن يبقيكم ذخراً لنا وأن يبارك بكم وبعملكم أخوكم المحب لكم أبو يوسف

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

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

ادي مثال يامعلم المثال دا بيقولك ان التكست الواحده من الفيجوال بكل التكست اللي في vba يعني 254 اضعاف الvba وصلت الفكرة ولا لا New folder (4).rar

https://youtu.be/EMMe7PzgJc4 السلام عليكم تلاوة آيات كريمة ترقق القلوب ...يجدر بك أن تسمعها ليخشع قلبك وتخضع جوارحك ...فهلا استمعت بإنصات أخي الكريم دعاؤك أخي الكريم أرجو بظهر الغيب...

وعليكم السلام ورحمة الله أهلا بك أخي.. في البداية أنا أتعلم مثلك على يد أساتذتنا الكرام ولست معلما بل هم معلمي جزاهم الله عنا كل خير أخي الفاضل.. عند تصميم أي عمل يجب أولا بأن نسرد تخطيط أولي له ليكون بمثابة القاعدة التي سينشأ عليها البرنامج.. وبالنسبة عن نظام البيع والشراء له طرق وأنظمة متعددة ومتنوعة وقد تكون متشابهة ولكن الغاية في النهاية واحدة.. أما الطريقة التالية فليست حكر ولكنها إحدى الطرق المتداولة ونقطة بداية لإرساء قواعد بناء برنامجك.. والآن إلى الجداول: ◘ جدول رأس الفاتورة: يحتوي على: - رقم الفاتورة [مفتاح أساسي] - تاريخ الفاتورة - كود العميل أو المورد (حقل الربط بجدول العملاء / الموردين) - نوع الفاتورة، وينقسم إلى (بيع – شراء – مرتجع عميل- مردود لمورد) ◘ جدول تفاصيل الفاتورة: ويحتوي على: - رقم الفاتورة (حقل الربط برقم الفاتورة من جدول رأس الفاتورة) - كود الصنف (حقل الربط بجدول الأصناف) - كمية الشراء أو المرتجع - كمية البيع أو المردود - السعر ◘ جدول العملاء / الموردين: ويحتوي على: - كود العميل/المورد [مفتاح أساسي] - اسم العميل/المورد - معرف (عميل – مورد – عميل ومورد) - أية حقول أخرى عن البيانات تريد إضافتها ◘ جدول الأصناف: ويحتوي على: - كود الصنف - بيان الصنف - سعر الشراء - سعر البيع - الكمية المتاحة بالنسبة للعلاقات.. · برقم الفاتورة سنربط جدول رأس الفاتورة بجدول تفاصيل الفاتورة علاقة رأس بطرف · بكود الصنف سنربط جدول الأصناف بجدول تفاصيل الفاتورة علاقة رأس بطرف قم بإنشاء تلك الجداول وبعدها لنا لقاء عن النماذج بإذن الله تعالى * بالطبع قد يضاف بالحداول أية حقول جديدة مستقبلا وسيكون ذلك حسب الحاجة أتمنى أن أكون قد وفقت في عرض فكرة المطلوب

الكود يحدد خلية عشوائية ( فى الصف 47 تحديدا و العمود عشوائى من 1 الى 10 ) جرب الكود عملى هتلا قيه يحدد مرة A47 ومرة B47 ومرة C47 ومرة D47 وهكذا حتى J47

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

السلام عليكم ورحمة الله بارك الله فيك دائم الابداع كل عام انت ومن تحب بخير

تفقيط مبلغ معين (من الأرقام الى الحروف) سواء باللغة العربية أو الإنجليزية طريقةإستخدام معادلتى التفقيط لأى مبلغ باللغة الإنجليزبة أوالعربية:- 1- أبحث عن الـFolder المسمى XLSTART عل ى جهاز الكمبيوتر الخاص بك وغالبا ستجده فى program files وداخل Microsoft office 2- أنسخ الملفين الموجودين داخلالفولدر المسمى معادلة التفقيط (فى المرفقات) وهما Copy of Copy of EHAB و Copy of Copy of PERSONALوضعهما داخل الفولدر المسمى XSTART السابق الإشارة اليه فى الخطوة رقم1 3- انت الأن جاهز لإستخدام المعادلات 4- لاستخدام المعادلة داخل أى Excel sheet كالأتى إذهب الى الخلية التى تريد ان تكتب داخلها التفقيط وأذهب الى Formula tab واضغط على الأيقونة Insert function وفى المكان المخصص لـ Or select a category إختار User Defined بعدها ستجد المعادلات المطلوبة , إختار المعادلة المطلوبة إذا كانت باللغة العربية أو الأنجليزية وستظهر فى الخلية التى أنت واقف عليها وإختار الخلية الى بها الأرقام المطلوب تفقيطها وأضغط Enter ستجد المبلغ بالحروف المطلوبة معادلة التفقيط.rar

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

كثيرا ماتغيب لتعود لنا محملا بالغالى والنفيس لا يحرمنا الله من ابداعاتك

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

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

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

بعد التحية مرفق ملف يوضح كيفية توزيع الارباح Book11.rar

أخي الكريم حسام أهلاً بك في المنتدى ونورت بين إخوانك اذهب للتبويب المسمى View ستجد مربع صغير بجانب الأمر Headings علم عليه علامة صح لتظهر لك أسماء الأعمدة وأرقام الصفوف قم بتحديد الأعمدة المطلوب حذفها ثم كليك يمين ثم Delete .. بس خلاص

أخي الكريم سيف النصر أهلا بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لمعرفة كيفية التعامل بشكل أفضل مع المنتدى بالنسبة لطلبك إليك شرح الكود مع تعديل بسيط ليناسب طلبك كما ذكرت في تعليقات الكود 'تعريف متغير من النوع النصي Dim MyWindow As String Private Sub CommandButton1_Click() 'تعريف المتغيرات Dim xlApp As Application, I As Integer, FilePath 'ليعبر عن تطبيق الإكسيل [xlApp] تعيين قيمة للمتغير المسمى Set xlApp = Application 'تعيين قيمة المتغير النصي ليساوي عنوان النافذة الحالية للملف MyWindow = xlApp.ActiveWindow.Caption 'بدء التعامل مع خاصية نافذة فتح الملفات With xlApp.FileDialog(msoFileDialogOpen) 'عنوان نافذة فتح الملفات .Title = "تحميل الملف" 'إمكانية تحديد أكثر من ملف .AllowMultiSelect = True .Show 'عمل حلقة تكرارية لكل الملفات التي تم تحديدها من قبل المستخدم For Each FilePath In .SelectedItems 'زيادة المتغير بمقدار واحد مع كل حلقة تكرارية I = I + 1 'إذا وجد مسار الملف أي أن الملف موجود يتم تنفيذ السطر التالي If Not FilePath = vbNullString Then Rx3 (FilePath) End If 'الانتقال للملف التالي ضمن الملفات التي تم تحديدها Next FilePath End With 'إغلاق المصنف الحالي مع حفظ التغيرات ThisWorkbook.Close True Exit Sub Err: 'إظهار رسالة خطأ في حالة حدوث خطأ ما MsgBox Err.Description, vbCritical, "Error" End Sub Sub Rx3(Filename As String) 'فتح المصنف عن طريق تحديد مساره Workbooks.Open Filename:=Filename '[Sheet1] تحديد ورقة العمل المسماة Sheets("Sheet1").Select 'وضع نص معين في الخلية الأولى مع جعل الخط أسود عريض With Range("A1") .Value = "YasserKhalil" .Font.Bold = True End With 'إغلاق المصنف النشط مع حفظ التغييرات ActiveWorkbook.Close True End Sub أرجو أن يكون المطلوب .. إليك الملف المرفق فيه شرح الكود مع التعديلات التي تمت تقبل تحياتي Open File Name YasserKhalil.rar

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

مجموعه من اعمال الاكسيل التى وفقنى الله فى تقديمها عام 2015 . نسال الله ان يتقبل منا ومنكم صالح الاعمال . تقبلوا تحياتى Mohamed Elrify . ----------------------------------------------------------------------- مكتبة اكسيل باللغه العربيه http://download-pdf-ebooks.net/49-1-library-books برامج مصممة بالاكسيل ------------------------------------------------------------------------ برنامج المصروفات الاصدار الثالث http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… ملف اكسيل حسابات عامه من قيود اليومية وحتى الميزانية http://www.mediafire.com/…/%D9%85%D9%84%D9%81+%D8%A7%D9%84%… اداره حسابات تكاليف مشاريع المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد المقايسة التقديرية لعملية مقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… برنامج احتساب اجور العماله في شركات المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد قائمة التدفقات النقدية بالطريقة الغير مباشره ل 4 فترات او سنوات بالاكسيل http://www.mediafire.com/…/%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF_%… برنامج توزيع فئات النقديه http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx جدول اعمار الديون http://www.mediafire.com/…/%D8%AC%D8%AF%D9%88%D9%84+%D8%A7%… دفتر الحضور بالاكسيل http://www.mediafire.com/…/%D8%AF%D9%81%D8%AA%D8%B1+%D8%A7%… صيغ متقدمة ------------------------------------------------------------------------ ابجدة الاسماء بالمعادلات http://www.mediafire.com/…/%D8%A7%D8%A8%D8%AC%D8%AF%D8%A9+%… الداله FORCAST والداله TREND http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D8%A8%D8%A4%D… دالة عد الاسماء بدون تكرار http://www.mediafire.com/…/%D8%B9%D8%AF+%D8%A7%D9%84%D8%A7%… دالة HYPERLINK http://www.mediafire.com/…/%D8%AA%D8%B9%D9%84%D9%85+%D8%AF%… انشاء مخطط تكرارى بالمعادلات. بدون انشاء رسم بيانى http://www.mediafire.com/…/%D8%A7%D9%86%D8%B4%D8%A7%D8%A1+%… دالة VLOOKUP بشرطين http://www.mediafire.com/…/%D8%AF%D8%A7%D9%84%D8%A9+VLOOKUP… الترقيم التلقائى بالاكسيل http://www.mediafire.com/…/%D8%AA%D8%B1%D9%82%D9%8A%D9%85+%… القيمة المستقبلية fv http://www.mediafire.com/download/14it43a76cnc7qj/fv.rar الداله LARGE و SMALL http://www.mediafire.com/…/%D8%A7%D9%84%D8%AF%D8%A7%D9%84%D… صيغه تقريب الربع الى اقرب واحد صحيح http://www.mediafire.com/…/%D8%AA%D9%82%D8%B1%D9%8A%D8%A8+%… دالة TRUNK http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx الرصيد التراكمى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D8%B1%D8%B5%D9%8A%D… استخراج البيانات او القيم بدون تكرار بخمس طرق مختلفه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… توليد سلسلة تواريخ http://www.mediafire.com/…/%D8%AA%D9%88%D9%84%D9%8A%D8%AF+%… استخدام دالة VLOOKUP , INDIRECT فى البحث فى العديد من الصفحات http://www.mediafire.com/downl…/oq5dho0m1ykq85o/vlookp_2.rar استخراج بيانات بشروط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D… دالة الجمع الشرطى من صفحات متعدده http://www.mediafire.com/…/%D8%A7%D9%84%D8%AC%D9%85%D8%B9+%… المجموع الفرعى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D9%85%D8%AC%D9%85%D… استخراج اى رقم سواء فى بداية او وسط او نهاية سلسله نصيه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… التقريب لاقرب 10 جنيها http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D9%82%D8%B1%D… حالة عملية لدالة VLOOKUP فى تحديد سعر صنف ضمن مجموعة اسعار لهذا الصنف http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… البحث عن اخر قيمة او نص فى عمود او فى صف حتى مع وجود فراغات http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D9%82%D9%8A%… استخدام الداله max , min بشرط http://www.mediafire.com/…/%D8%AF%D9%88%D8%A7%D9%84+MAX+%2C… البحث عن اخر سعر بناء على شروط كاسم الصنف او المنتج والعميل http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D8%B3%D8%B9%… تنسيق الارقام السالبة باللون الاحمر ووضعها بين قوسين http://www.mediafire.com/…/%D8%AA%D9%86%D8%B3%D9%8A%D9%82+%… حالة عملية متقدمه باستخدام الدالة VLOOKUP , MATCH , IFERROR https://www.youtube.com/watch?v=G5QV4V3OOt0 معامل الارتباط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D9%85%D9%84+%… دالة عد الالوان https://www.facebook.com/…/61…/%D8%A7%D9%8A%D9%85%D9%86.xlsm معادلة للتعامل مع التواريخ الهجريه http://www.mediafire.com/…/7e…/%D9%87%D8%AC%D8%B1%D9%89.xlsx المعادلة frequency https://www.facebook.com/download/441176896082998/aaa.xlsx مخططات استخدام الصور فى الرسم البيانى http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… مخطط بيانى لعرض البيانات الربع سنوية http://www.mediafire.com/download/39owukjsxx4nz41/CHART.xlsx موضوعات ------------------------------------------------------------------------ طريقة عمل نسخه احتياطية من ملف اكسيل https://www.youtube.com/watch?v=1xHS1snXRKs تحليل التعادل بالاكسيل 4 http://www.mediafire.com/…/%D8%AA%D8%AD%D9%84%D9%8A%D9%84+%… تحديد نقطة التعادل في حالة تعدد المنتجات http://www.mediafire.com/…/%D8%AA%D8%AD%D8%AF%D9%8A%D8%AF-%… أدوات التحليل ماذا لو ؟ pdf http://www.mediafire.com/…/%D8%A7%D8%AF%D9%88%D8%A7%D8%AA+%… أدوات التحليل ماذا لو ؟ excel file http://www.mediafire.com/…/%D9%85%D9%84%D9%81%D8%A7%D8%AA+%… فنون وأساليب التنبؤ بالاكسيل فيديو + pdf +excel files https://www.youtube.com/watch… ميزه وخاصية ممتازه وهى Flash Fill (تعبئة سريعة) https://www.youtube.com/watch?v=OZyrmcInZLU الجديد فى اكسيل 2016 http://www.mediafire.com/…/6vda4ed2a27qf…/New+EXCEL+2016.rar وفى النهاية نسال الله ان يعيننا على الاستمرار وان يوفقنا للخير صفحة خبير اكسيل صفحتى على الفيس بوك

انا معك حبيبي تفضل بوضع طريقة عملك لها والمشكلة التي تظهر لك بوضوح

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

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

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

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

أخي الكريم إبراهيم قم بتصميم الشهادة على الإكسيل (أو يمكن أن يتبرع أحد الأخوة المحترفين في تصميم الشهادات) ، وبعدها يمكن مساعدتك في تكملة المطلوب تقبل تحياتي

بارك الله فيك أخي الحبيب محتار أيوا كدا خليك معانا وبلاش تغطس يا غطاس .. مشكور على الشرح البسيط المميز

عليكم السلام ورحمة الله وبركاته اخى مختار ربنا يكرمك اشكرك على السؤال طبعا كلامك بالنسبه لى مظبوط وانا شخصيا استخدمت المعادله rept(0,10) وقامت باداء المطلوب ولكن اذا اردنا عدم وجود معادله بالخليه يبقى لازم نحول الخليه الى نص كمان استخدمت المعادله فى الحلقات التكراريه ونفعت الطريقه والحمد لله ........................................................................... ولكن كما قلت فنحن فى انتظار رد اخونا الفاضل ياسر خليل او اى من الاخوه الافاضل الاخرين تقبل تحياتى

الإحتفال براس السنة هو إحتفال بميلاد إله الشمس فميلاد عيسى علية السلام غير معلوم في الإسلام علينا ان نؤمن طبقا لتعاليم الرسول صلى الله علية وسلم ان عيسى علية السلام هو احد اولي العزم من الرسل ونحن نؤمن بميلادة المعجزه وانة قد وٌلد بدون أي تدخل ذكري ونؤمن بمعجزاتة والتي منها انه أعاد الحياة للموتى بإذن الله وانة أبرأ الأكمة والأبرص والأعمى بإذن الله نحن نؤمن بهذا. سألوا من قبل إن كنا نحتفل بعيد الميلاد فنقول لهم إننا نستمتع بإجازات عيد الميلاد لكننا لانحتفل بعيد الميلاد ،لأننا لا نعلم متى وُلد ، ولو كنا علمنا فسوف نحتفل أيضا بميلادة ولكن متى وٌلد ؟ يقولوا لنا انة ولد في الخامس والعشرون من شهر ديسمبر ولكنة لم يولد في الخامس والعشرون من شهر ديسمبر فاليوم يدركوا علماء النصارى انة لم يولد في الخامس والعشرون من شهر ديسمبر . فالخامس والعشرون من شهر ديسمبر هو تاريخ ميلاد إله الشمس عند الوثنيين ! ليس ابن الله كما يقول النصارى لكنة إله الشمس اتعلمون ماهذا ؟ عندما يقترب الشتاء في شهر ديسمبر .يصبح الجو باردا اكثر وبمرور الأيام من العشرين من ديسمبر يوما بعد يوم كان الرجل البدائي يشعر بتزائد البرودة وكان يرى الشمس في الأفق تتحرك من الشرق للغرب وتبتعد اكثر فكانوا يعتقدون او يشخًصون هذا الامر علي ان الشيطان يأكل الشمس ويبدأون وقتها في قرع الطبول.وتلاوة الصلوات لعل الشمس لاتحجب لأنها لو حجبت لكانت نهاية الخير. ثم يمر الرابع والعشرون من شهر ديسمبر وبعدها يأتي الخامس والعشرون من شهر ديسمبر وهولاء البشر البدائيون في نصف الكرة الآخر كان بإستطاعتهم الإحساس بتغير درجة الحرارة يوما تلوا الآخر وفي اليوم الخامس والعشرون كانو يرون الشمس قد عادت إليهم وبمعنى آخر او حسب إعتقادهم أن الشمس قد إنتصرت والشر لم يحجبها لقد عادت مرة أخرى فهذا يوم ميلاد إله الشمس لأن الشمس قد عادت إليهم مرة أخرى وكانوا يحتفلون بالكريسماس أي عيد الميلاد ليس عيد ميلاد عيسى المسيح ولكنه ميلاد إله الشمس مثل : " بال " و " حورس " و " أبوللو " و " مترا " كان كل هولاء يُعبدون علي أنهم آلهة الشمس في منطقة البحر المتوسط وكان الخامس والعشرون من شهر ديسمبرهو يوم ميلادهم وعندما بدأ الناس يتحولون للنصرانية في عهد قسطنطين فقد أقرًوا أن يوم ميلاد الشمس هو يوم ميلاد " إبن الله "كما يقول النصارى لذا فهو ليس يوم ميلاد المسيح علية السلام ويخبرنا القرآن بوضوح تام انة عند ميلاد المسيح علية السلام أُخبرت والدتة مريم عليها السلام (وهُزَي إليك بجذع النخلة تُساقط عليك رُطبا جنيا) سورة مريم الآية 25 . ومعنى ذلك ان الرطب قد نضجت وبمجرد ما ان تهتز ستسقط (فكلي واشربي وقرًي عينا )سورة مريم 26 . لذا فقد كان ذلك في منتصف الصيف عندما يقول القرآن الكريم ان الرطب ناضج فهذا يعني انة منتصف الصيف وليس منتصف الشتاء ففلسطين تقع في نصف الكرة الأرضية وطقسها في الشتاء يماثل الطقس هناك في الشتاء فعندما يأتي الشتاء هناك يكون الطقس في منطقة البحر المتوسط شتاء أيضا والرطب تنضج في منتصف الصيف ويخبرنا الكتاب المقدس أيضا انة عند ميلاد السيد المسيح كان الرعاة يرعون في الحقول فلو كانوا قابعين في الهواء الطلق هم واغنامهم في فلسطين في منتصف الشتاء لكانوا تجمدوا هم واغنامهم حتى الموت . لوقا ،الإصحاح الثانيى الخلاصة : 1-الخامس والعشرون من ديسمبر في منطقة البحر المتوسط هو اشد برودة في فصل الشتاء 2-نضوج الرطب يكون في الاربعينية في منتصف الصيف 3-وعندما اتى المخاض السيدة مريم عليها السلام أمرها الله بهز جذع النخلة (وهُزَي إليك بجذع النخلة تُساقط عليك رُطبا جنيا)

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب الصقر "حسام عيسى " كل عام وأنتم إلى الله أقرب ..أدعو الله لكم أن يتم لكم فرحتكم وأن يجعلكم ممن يقال لهم :"ادخلوها بسلام ءامنين" فالحياة سجل ضخم مليء بالكتب يثريها كلٌ منا بقربه وخلقه ودينه وورعه أو يجعلها قاحلة ببعده وجفوته والعياذ بالله من خاتمة السوء ...فسبحان الذي أضحك وأبكى وامات وأحيا والأيام شاهدة على كل لحظة عدات قلب المرء قائلة ..إن الحياة دقائق وثواني.. نفرح بقدوم عام جديد نرجو الله أن يكون سعيداً على كل البشرية ...وهذا الفرح ليس بما هو آت بل بما فات من طاعات وقربات فإن لم يكن كذلك فما من داع لهذا الفرح...بل الشعور بالتقصير والعمل على استدراك لحظات الغفلة والتوبة عن كل خطأ أو زلل ...فالأمر جلل ولو نظرنا بتمعن لرأينا سنوات قد طويت بصلاحها ونجاحها أو خيبتها وفشلها.. سعيد بكم إخوتي الكرام والحمد لله هذا العام الذي يشد الرحيل إلى الماضي تعرفت به على أناس كرام ذوي أخلاق عالية وسجايا طيبة وعلمٍ رفيع ...فالحمد لله الذي بنعمته تتم الصالحات ولنقبل على أيامنا الجديدة وقد تخلينا عن كل سوء وتحلينا بسلامة القلب وطهارة السريرة هديتك جميلة جداً أخي الصقر... والسلام عليكم ورحمة الله وبركاته أخوكم أبو يوسف

تاكد ان property sheet داخل Event ان on timer و timer interval فاضي بدون معادلات

شكرا اخي الغالي ياسر على مرورك الكريم باذن الله نضع الشرح قريبا ولكن اولا راجع اخر درس في السلسلة واعطنى مثال حتى تتمكن من معرفته ما هو قادم حبيبي ابو البراء الغالي طبعا حماية الملف بالطريقة دي كويسة ولكن مع الاكسيل نفسه يبقي انت كدا هتتعامل مع ملف عادي لا يوجد به اي اكواد ماكرو وبالتالي فقدنا جزء البرمجة ولكن مع الفيجوال مفيش مستحيل انا تعمدت اني اربط مثال Xlsx حتى تصل فكرة انو بنتعامل مع اي ملف ولو حتى لا يدعم الماكرو يبقي احنا كدا عملنا حماية لملف الاكسيل ممتازة وطبعا حماية الملف التنفيذي جيدة ايضا وربطناهم ببعض وتفضلو كلمة المرور اهي aseel&mohamed&yasser ودي كلمة سر البرنامج التنفيذي وبتبقي محفوظه داخل الاكسيل ونقدر نغيرها بس اللي محدش يقدر يغيرها كلمة سر ملف الاكسيل لانها من ضمن اكواد البرمجة وبنينا عليها خلاص والدرس القادم باذن الله عن كيفية عمل الحماية دي لكم مني كل الشكر والتقدير ياسر العربي

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

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

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

رابعاً:- التعامل مع خصائص الـ ComboBox فى لغة البرمجه فى الدرس قبل السابق عرفنا ازاى نتحكم فى خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم فماذا لو حبينا نتحكم فى خصائص ComboBox ولكن من خلال الاكواد وليس من شاشة الخصائص فى مرحله التصميم هنبدأ على طول بمثال عملى ونشرح عليه اضغط دبل كليك على اى مكان فاضى فى الفورم وهندخل محرر اكواد الفورم ونعمل كود فى حدث فتح الفورم اتبع الصوره هتلاقى الصوره دى فى المكان المظلل باللون الاحمر هنا موضوع كتابه الاكواد ولكتابة اى كود خاص بأى عنصر تحكم فى الفورم يكون على الشكل التالى الخاصيه ( Back Color):- زى ما قلنا قبل كدا ان هذه الخاصيه تتيح للمستخدم تغيير لون خلفية للـ ComboBox عايزين نكتب فى المربع الاحمر كود يجعل لون خلفية الكمبوبوكس (سماوى ) عند فتح الفورم لو حضرتك محترف كتابة انجلش كويس على الكيبورد وسريع خلاص لا تهتم بالقائمة المساعده للخصائص اللى بيعرضها الفيجوال بيسك واكتب انت بنفس سطر الكود ناخد مثال اخر عن الخاصيه ( Back Style):- ناخد مثال اخر عن الخاصيه ( Row Source ):- ComboBox1.RowSource = "A1: b5" سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم المدى المراد اظهاره فى الكمبوبوكس ( المدى تم كتابته بين اقواس تنصيص " المدى " وهذه الاقواس كما قلنا انها تكتب من خلال الضغط على شيفت + حرف ط بالعربى ) ناخد مثال اخر عن الخاصيه ( Column Heads ):- ComboBox1.ColumnHeads = True سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم نوع الخاصيه اما True أو false وكذالك لباقى الخصائص الخاصه باى عنصر تحكم على الفورم هذا هو الكود بشكله النهائى على الاربع خصائص السابقه Private Sub UserForm_Initialize() ComboBox1.BackColor = 15849925 ComboBox1.BackStyle = fmBackStyleOpaque ComboBox1.RowSource = "A1: b5" ComboBox1.ColumnHeads = True End Sub هل يمكن ايضا كتابة الكود بشكل ابسط نعم يوجد طريقه اخرى من خلال استخدام With وطبعا لازم نقفل With بـ End with ويكون بداية سطر الكود هو . ثم اسم الخاصيه ثم = ثم نوع أو قيمة النتيجة شاهد الكود كالتالى Private Sub UserForm_Initialize() With ComboBox1 .BackColor = 15849925 .BackStyle = fmBackStyleOpaque .RowSource = "A1: b5" .ColumnHeads = True End With End Sub أنا عايزك تجرب باقى الخصائص بنفسك ولو صدفك اى مشكله لا تتردد انك تراسلنى تابعونا

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

طال الانتظار يا استاذ سعيد لعل المانع خيرا اشتقنا لتواجدك

أخى الحبيب والكريم / بن علية ================ السلام عليكم ورحمة الله وبركاته ،،،،، أخى الحبيب والكريم حقيقة الكود أكثر من رائع لتغطيته النطاقات التى أردت لها أن تظهر فى الطباعة وتلك التى أردت عدم إظهارها بما أنى من متابعى أعمالك وروائعك فلى فتره أراك فيها وأنت تبدع فى مجال الأكواد بجانب إبداعاتك المتتاليه فى مجال المعادلات (زادك الله من علمه المزيد والمزيد لتنفع به نفسك وكل سائل) مرة أخرى أحييك على هذا الكود الأكثر من رائع وهو ما قصدته بالفعل وهو المطلوب تماماً جعله الله فى ميزان حسناتك إن شاء الله (وجعل كلامى هذا بعيداً عن النفاق والرياء) كما أشكرك دائماً وأبداً على إبداعاتك تلك وعلى تفاعلك وتجاوبك الرائع معى ومع كل السائلين :fff: :fff: أعانك الله على أمور حياتك ، وبارك لك فى أولادك وفى رزقك وفى وقتك وفى عملك ============ خالص شكرى وتقديرى أخوك عيد مصطفى

السلام عليكم مثال قديم .. آمل أن يكون مفيدا . تحياتي . Union_97.zip

السلام عليكم ورحمة الله وبركاته اخواني لدي عمل لمحل تفصيل اثواب رجالية المطلوب مني كالتالي: =====(المصروفات)===== 1/ تسجيل فاتورة الشراء ===> رأس الفاتورة 2/ اسم المورد ===> رأس الفاتورة 3/ نوع الدفع ===> رأس الفاتورة 4/ رقم الصنف ** 5/ اسم الصنف (شرح بسيط) قماش كويتي لون اصفر 6/ تسجيل عرض القماش 7/ تسجيل طول القماش 8/ تسجيل الكمية (عدد اللفات) 9/ سعر اللفة 10/ الاجمالي =====(المبيعات)===== 1/ رقم فاتورة البيع ===> رأس الفاتورة 2/ رقم الصنف ** 3/ اسم الصنف (شرح بسيط) قماش كويتي لون اصفر 4/ تفاصيل العمل ( البيان ) 5/ العرض 6/ الطول 7/ العدد 8/ المساحة =================== هذا شرح بشكل مبسط ولكن المهم في الموضوع ان طريقة العمل فيه ليست كالبرامج الأخرى للمبيعات لأن المطلوب هو حساب كم المتبقي من لفة القماش من صنف معين اذا تم بيع 4 متر فرضا عدد 2 ويخصم ذلك من نفس الصنف للقماش ,, وعلى سبيل المثال الفة الواحدة فيها 15 متر طول فكيف يتم عمل ذلك ؟ ارفق لكم الملف لأمل المساعدة في الموضوع ولكم جزيل الشكر أقمشة.rar

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