ibn_egypt

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

اخى الفاضل في حدث فتح الملف Workbook_Open اكتب الكود التالى ... غير اسم الشيت ما بين علامتى التنصيص الى اسم الشيت الذي تريده .. هنا في الكود المرفق عند فتح الملف سيفتح على شيت 2 Private Sub Workbook_Open() ThisWorkbook.Sheets("Sheet2").Activate End Sub تحياتي

أخى الفاضل الملف مضغوط يجب فك الضغط أولا .. حيث انه يعمل بنجاح تحياتى

اخى الفاضل أ.طاهر جرب الملف المرفق لربما به طلبك تحياتي كشف الزيارات.rar

اخى الفاضل اذهب الى ملف File خيارات Options خيارات متقدمة Advanced وانزل قليلا للاسفل وتأكد من وجود علامة صح بجانب اظهار كافة النوافذ في شريط المهام Show All Windows In Taskbar .. ان لم تكن موجودة قم بوضعها كما في الصورة المرفقة .. جرب واعلمنا بالنتيجة تحياتي

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

حبيبي أ.على أنا ما فهمته من كلامك ان هناك مجموعة اوراق خاصة وليكن بالبنوك في ال ListBox1 ومجموعة أخرى من الأوراق خاصة وليكن بالعملاء في ال ListBox2 لذلك فالكود يظهر الورقة التى تختارها من المجموعة الأولى ويخفى باقي اوراق المجموعة ويظهر الورقة التى تختارها من المجموعة الثانية ويخفي باقي أوراق المجموعة والا لماذا نقسم الاوراق على اثنين ListBox اذا كانوا مجموعة واحدة وتريد اختيار واحدة منهم فقط تحياتي

اخى الفاضل وبعد إذن أخى الفاضل عبدالله .. جرب الملف المرفق لربما به طلبك تحياتي pro.rar

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

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

اخى الفاضل انسخ المعادلة هذه في الخلية B1 ثم اكتب اى رقم في الخلية A1 =IF(AND(A1<5,A1>0),"أقل من5",IF(A1=5,"تساوي 5",IF(A1>5,"اكبر من5","لاشئ"))) تحياتي

اخي الفاضل معادلة جمع عادية .. المعادلة دي لاعطاء التاريخ بعد 30 يوم من تاريخ اليوم =TODAY()+30 اما اذا كان تاريخ الدخول في الخلية A1 على سبيل المثال يبقي =A1+30 تحياتي

مش فاهم ايه الورقة قبل الأخيرة دي، انت تخفى وتظهر ما تريد من خلال ال ListBoxes الموجودة .. لاتوجد عندي هذه المشكلة تحياتي

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

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

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

اخى الفاضل الأستاذ الفاضل محمد الريفي تفضل بالحل عن طريق المعادلات والتنسيق الشرطي واليك ايضا حل آخر بالكود، اكتب العدد الذي تريده في الخلية A2 واضغط على زر " تلوين " تحياتي تلوين المجموعات.rar

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

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

حل آخر بغض النظر عن ترتيب الشيتات تحياتي مثال.rar

اخى الفاضل على افتراض ان أوراق البنوك من شيت 1 الى شيت 5 واوراق العملاء من شيت 6 الى شيت 8 ... تفضل المرفق تحياتي مثال.rar

ضع باسورد وذلك بالدخول لمحرر الأكواد ثم Right-Click على اسم المشروع واختيار VBAProject Properties كما في الصورة ثم من تبويب Protection ضع علامة صح بجوارLock Project for viewing ثم اكتب الباسورد التى تريدها .. واضغط موافق كما في الصورة تحياتي

أخى الفاضل بعد إذن استاذي ياسر .. تعديل بسيط حتى لا يتم حذف العمود i ... مرفق الملف تحياتى _طارق زكريا - نسخة.rar

اخى الفاضل جرب الكود التالى .. كان من الممكن استخدام الدالة IF ولكن لإمكانية ان تكون هناك أكثر من قيمة غير 0 او 1 تم استخدام Select Case Private Sub UserForm_Initialize() Select Case Sheet1.Range("A1").Value Case 0 Me.TextBox1.BackColor = &HFFC0C0 Case 1 Me.TextBox1.BackColor = &H8080FF End Select End Sub تحياتي