ابوالزوز

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

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

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

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

السلام عليكم.. أخواني الأفاضل.. نظرا للظروف المحيطة فقد انقطعت عن أكواد الاكسل منذ فترة طويلة نسبيا للأسف لذا أرجو منكم مساعدتي في هذا الموضوع المتعلق باستخدام كود الـ vba لتجزئة الاسم الثلاثي إلى مكوناته الاساسية ( الاسم الاول - اسم الاب - اسم العائلة ) كل على حدة مع معالجة مشاكل الاسم المركب بأنواعه في المرفق ملف بسيط للتطبيق أرجو الإفادة جزاكم الله خيرا وفرج عنكم الهموم والأحزان تجزئة الاسم.rar

مشكرين جميعاً .. مجهودات رائعة

اخي العزيز الزير لك مني ومن كل أعضاء هذا المنتدى الرائع أحلى وأطيب التهاني على هذه الترقية التي كنت جديراَ بها بالفعل وأرجو أن تكون لك بمثابة حافز للتطوير والإبداع ألف مبروك تقبل تحياتي أخوك abuzzouz

عمل رائع أخي alouma جزاك الله خيراً وننتظر المزيد إلا أني أقترح عليك إضافة كود Application.ScreenUpdating إلى الماكرو Sub Macro2() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 300 Range("e3").Select ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1" Range("e10").Select ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1" Range("e13").Select ActiveCell.FormulaR1C1 = "=int(RAND()*209)+1" Next i Application.ScreenUpdating = True End Sub تقبل تحياتي ..

اخواني الأعزاء .. لقد اهتديت إلى الحل وإليكم الملف تقبلوا تحياتي .. Stop Del.rar

أخواني الأفاضل .. استكمالاً للموضوع أود تشغيل أو تعطيل زر بشرط استخدام زر آخر كتعطيل زر C في حال استخدم لوحده وتشغيله في حال استخدم مع الزر Ctrl بمعنى تعطيل الزر C إلا في حالة عملية النسخ وتطبيق ذلك في نفس الملف المرفق سابقاً جزاكم الله الخير تقبلوا تحياتي

نعم الفكرة جميلة أخي kemas جزاك الله خيراً وهي تؤدي نفس الغرض أي تحقق شرط معين تقبل تحياتي ..

اخواني الأعزاء .. لقد اهتديت إلى الحل تقبلوا تحياتي .. Stop Del.rar

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

جمعة مباركة علينا وعليك أستاذي العزيز خبور سلمت يداك وجعل الله ذلك في ميزان حسناتك .. دائماً مبدع جاري تطبيق الفكرة وأية أسئلة سوف أقوم بالرجوع إليك تقبل تحيات أخوك abuzzouz

أشكرك أخي أبوعبدالله على مرورك الكريم وعلى مجهودك الرائع في هذا المنتدى وأتمنى أن أجد حلاً لموضوعي في أقرب وقت تقبل تحياتي ..

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

السلام عليكم .. أخواني لدي تساؤل يتعلق بالـ Listbox من حيث إمكانية التحكم بـ : * توسيع ارتفاع الصفوف لكي تحتوي على أكثر من Line واحد * اتجاه النص في عمود محدد من اليمين لليسار أو العكس بدون الأعمدة الأخرى في المرفق ملف يحتوي على ListBox في فورم يمكن استخدامه كنموذج (مع العلم أنه من تنفيذ أحد الأعضاء) وشكراّ جزيلاً للمساعدة تقبلوا جميعاً تحياتي Listbox Form.rar

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

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

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

شكراً أستاذي العزيز kemas على تفاعلك الطيب مع الموضوع إلا أن الكود لم يعمل لكني ربما فهمت وجهة نظرك والتي تعتبر حل مؤقت للمشكلة وهذا الحل له أكثر من كود Application.Dialogs(xlDialogFont).Show أو Application.Dialogs(xlDialogFontProperties).Show لكني من جهة أخرى أسعى دائماً لمعرفة وتطبيق كل ما هو حرفي أكثر أشكرك مرة أخرى أخي الكريم وأنتظر منك المزيد تقبل تحياتي

أولاً مبروك على الترقية أخي العزيز kemas فأنت تستحقها أكيد ثانياً هل من حل آخر لإظهار خيارات لون الخط حيث أن RightClik مغلق والشاشة Full Screen وبالتالي لايمكن للمستخدم إجراء أي تعديلات على الخلية ماعدا لون الخط أرجو المشورة والمساعدة في ذلك حيث أن هذا الموضوع جداً مهم تقبل تحياتي

السلام عليكم .. أخواني الأفاضل لدي في المرفق كود يظهر مربع تلوين الخط إلا أنه يعمل مع 2003 فقط فهل من حل لديكم أخواني لإظهار هذا المربع في إصدار 2007 أفيدوني جزاكم الله خيراً تقبلوا جميعاً تحياتي Display Color Box.zip

شكراً لك مرة أخرى أخي العزيز تقبل تحياتي