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

السلام عليكم و رحمة الله و بركاته اليوم أقدم الى حضراتكم كودى الجديد الذى تستطيع من خلاله تطبيق التنسيق الشرطى داخل اليوزر فورم أو بعبارة أخرى نقل البيانات بالتنسيقات الشرطية من خلايا محددة الى كنترولات داخل اليوزر فورم مثل التكست بوكس وهذا تحقيقا لطلب أحد الزملاء و هو الأخ ابو راكان العودة على هذا الرابط : 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

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

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

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

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

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

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

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

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

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

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

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

الله يطول في عمرك ان شاء الله أخوي bakoraus اصل الموضوع كان: . وتم حله: . وبعدها تغير الطلب واصبح: . والحمدلله تم حله ، مع ان الموضع ما كان سهل واخذ وقت: . لكن لما الموضوع لم يتوقف: . فانا اعتذر ، ومضطر ان التجأ الى احد قوانين المنتدى ، وهو سؤال واحد لكل موضوع لوسمحت جعفر

تفضل ، والشرح بالصور ، ولا حتى كلمة واحدة . . . . . جعفر 327.Copy of BMTES.mdb.zip

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

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

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

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

الكلام الطيب يستحق هدية قيمة https://youtu.be/EMMe7PzgJc4

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

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

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

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

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

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

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

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

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

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

الحمد لله أن تم المطلوب على خير الحمد لله الذي بنعمته تتم الصالحات إلى لقاء مع موضوع آخر .. تقبل تحياتي

أخي الحبيب إبراهيم أبو ليلة جرب الكود التالي عله يكون المطلوب Dim Str1 As String, Str2 As String Sub CreateWorkbook() Dim WB As Workbook Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Sub OpenWorkbook() Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" End Sub

زمن العزه

الاخ والاستاذ الحبيب / ياسر خليل رجعتنى لزمان وايام زمان ايام افتح الباب ونط من الشباك يا عبدالتواب بس فى سؤال مهم جدا هو ليه فتح البيبان مبيكونش غير بالشتاء معاك ؟؟؟؟؟؟؟؟؟؟ بجد روعه روعه روعه اسلوب شرح ممتع وجذاب ميخلكش تنام زى روتانا كدا اوعى تغمض عنيك جزاكم الله خيرا وبارك فيك لا تحرمنا من هذه الكنوز وبانتظار المزيد بس خليها صيف وشتاء **عايز بس اقول للاخوة الاعضاء ان الموضوع ده مهم جدا انا شخصيا اتعلمت من خلاله الكثير فى بداية البرمجه كنت امشى بـ F8 خطوه خطوه حتى اشاهد الكود زى فيديو كدا قدامى واتعلم منه وكمان الفايده الاكبر بعدما تكون محترف بالاكواد اكيد هيقابلك كود فيه خطأ وانت مش عارف اين موقع الخطا لاصلاحه وقتها هتستفيد منها فى اكتشاف اين الخطا بالكود فهى عامله زى دكتور الاشعه بتعملك تصوير للكود** تقبل تحياتى

الطريقه الرابعه :- استخدام لغة البرمجه هى بنظرى من اهم الطرق واسهلها وهى تكون من خلال البرمجه فقط ولا يمكن تنفيذها من شاشة الخصائص فى مرحله التصميم شاهد الصوره التالية هتعرف ما هى الطريقه الكود هو بشكل مكبر عباره عن سطر واحد فقط ComboBox1.RowSource = "sheet1!a2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row تعالو نفصص كل كلمة فى هذا السطر ونعرف ازاى نكتبه comboBox هو اسم الكمبوبوكس المراد تعبئته بالبيانات . تكتب من خلال جعل الكيبورد انجلش ثم نضغط على حرف ز بالعربى RowSource هى الخاصيه المسئوله عن تعبئة الكمبوبوكس بالبيانات = نكتب علامه = " نفتح قوس تنصيص " ويكتب من خلال شفت+حرف ط بالعربى Sheet1!a2 وهى اول خلية بالجدول المراد عرض بياناته فى الكمبوبوكس (ونلاحظ اننا كتبنا اسم الشيت متبوع بعلامة تعجب ! ثم اسم الخلية) : تعنى الى b اسم اخر عمود بالجدول " قفل قوس التنصيص طالما فتحنا قوس اذن لازم نقفله & علامة و أو بمعنى and Sheet1.Cells(Rows.Count, "a").End(xlUp).Row اخر خليه بها بيانات بالعمود A طيب عرفنا ازاى نكتب الكود فما هو وقت تنفيذ الكود السطر ده هيتم وضعه فى اى حدث ( والله دى بقى حضرتك اللى تحددها حسب برنامجك انت ولكن على سبيل المثال نضع هذا الكود فى حدث فتح الفورم شاهد الكود Private Sub UserForm_Initialize() ComboBox1.RowSource = "sheet1!a2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row End Sub فعند فتح الفورم وتهيئته يتم تعبئة الكمبوبوكس بالبيانات ممكن نكتبه بشكل تانى لو حابب تعرف اكتر من طريقه شوف الكود وبعدين اشرحه لك Private Sub UserForm_Initialize() Lr = Sheet1.Cells(Rows.Count, "a").End(xlUp).Row ComboBox1.RowSource = "sheet1!a2:b" & Lr End Sub قمت بعمل متغير وسميته Lr وممكن تسميها انت بأى اسم كما تحب وقلت ان المتغير ده عباره عن اخر خلية بها بيانات بالعمود A وبالتالى كتبة المصدر بتاع البيانات كالتالى sheet1!a2:b" & Lr" تم الاستعاضه بـ Lr بدلا من السطره ده Sheet1.Cells(Rows.Count, "a").End(xlUp).Row ويمكن كتابة الكود بشكل اخر ( ملحوظه هذا التنوع بالكتابه هو فقط من حيث اسلوب كتابة الكود لكن المضمون واحد) Private Sub UserForm_Initialize() With ComboBox1 .RowSource = "sheet1!a2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row End With End Sub الى هنا انتهى درس اليوم اعتقد انه بسيط وممتع يارب اكون وفقت بالشرح وتستفيدو منه عايز اشوف تجاربكم على الدرس على رابط الردود الخاص بالموضوع اتمنى لكم التوفيق وانتظرونا فى طريقه جديده قريبا بأذن الله

السلام عليكم و رحمة الله و بركاته تحياتي لأساتذتي الكرام و اخواني و اخواتي الزوار و الاعضاء.. بعد عناء طويل و بحث مستمر بفضل من الله و منة حظيت بمعرفة ارفاق التقرير بباركود QR او اي صيغة انت تريدها الملفات و الفيديوهات التعليمية في عنوان الدروب بوكس .. حجم الملف مع البرامج 92 م البرامج لل 64 بت و 32 بت شكرآ لقبولكم هديتي البسيطة راجيآ من حضرتكم الدعاء و راجيآ من الله لي و لكم الافادة https://www.dropbox.com/s/dc7gcdg6fi80oz4/الباركودات مع البرنامج.rar?dl=0

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

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

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