اذهب الي المحتوي
أوفيسنا

ابوالزوز

03 عضو مميز
  • Posts

    385
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 Neutral

عن العضو ابوالزوز

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب ومدقق مالي

وسائل التواصل

  • MSN
    ezzat_xls@hotmail.com
  • Website URL
    http://
  • ICQ
    0

اخر الزوار

928 زياره للملف الشخصي
  1. أخواني .. هل يمكن تطبيق كود تجزئة الاسم المذكور في المرفق لكن بواسطة الكمبوبوكس والتكست بوكس بحيث عند اختيار الاسم الكامل من قائمة الكومبوبوكس يظهر الاسم المجزأ في التكست بوكس تلقائيا يوجد في المرفق ملف يوضح ذلك تقبلوا تحياتي تجزئة الاسماء من اسم طويل.rar
  2. شكرا لك أي العزيز محمود,, عمل جميل إلا أنني أرى أن حل الأخ الفاضل عبدالله بقشير هو أفضل طريقة وبدون أية مشاكل تقريبا ويسمح لك بالكتابة كيفما تشاء دون تقيد مع العلم أن كتبت كلمة "عبد الله" بخط يدك عندما ذكرت الأخ بقشير .. صحيح أشكرك جزيلا تقبل مني كل الاحترام والتقدير
  3. شكرا جزيلا أخي العزيز حمادة عمر جعلها الله في ميزان حسناتك وأبعد عنك وعن أهلك السوء.. أخوك أبوالزوز
  4. شكرا جزيلا أخي العزيز حمادة عمر جعلها الله في ميزان حسناتك وأبعد عنك وعن أهلك السوء أخوك أبوالزوز
  5. السلام عليكم.. أخواني الأفاضل.. نظرا للظروف المحيطة فقد انقطعت عن أكواد الاكسل منذ فترة طويلة نسبيا للأسف لذا أرجو منكم مساعدتي في هذا الموضوع المتعلق باستخدام كود الـ vba لتجزئة الاسم الثلاثي إلى مكوناته الاساسية ( الاسم الاول - اسم الاب - اسم العائلة ) كل على حدة مع معالجة مشاكل الاسم المركب بأنواعه في المرفق ملف بسيط للتطبيق أرجو الإفادة جزاكم الله خيرا وفرج عنكم الهموم والأحزان تجزئة الاسم.rar
  6. اخي العزيز الزير لك مني ومن كل أعضاء هذا المنتدى الرائع أحلى وأطيب التهاني على هذه الترقية التي كنت جديراَ بها بالفعل وأرجو أن تكون لك بمثابة حافز للتطوير والإبداع ألف مبروك تقبل تحياتي أخوك abuzzouz
  7. عمل رائع أخي 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 تقبل تحياتي ..
  8. اخواني الأعزاء .. لقد اهتديت إلى الحل وإليكم الملف تقبلوا تحياتي .. Stop Del.rar
  9. أخواني الأفاضل .. استكمالاً للموضوع أود تشغيل أو تعطيل زر بشرط استخدام زر آخر كتعطيل زر C في حال استخدم لوحده وتشغيله في حال استخدم مع الزر Ctrl بمعنى تعطيل الزر C إلا في حالة عملية النسخ وتطبيق ذلك في نفس الملف المرفق سابقاً جزاكم الله الخير تقبلوا تحياتي
  10. نعم الفكرة جميلة أخي kemas جزاك الله خيراً وهي تؤدي نفس الغرض أي تحقق شرط معين تقبل تحياتي ..
  11. اخواني الأعزاء .. لقد اهتديت إلى الحل تقبلوا تحياتي .. Stop Del.rar
  12. السلام عليكم .. أخواني الأكارم من فضلكم هل لي بطريقة لتعطيل أزرار الحذف في مربع نص بدون اللجوء إلى تجميد المربع في حال تحقق شرط معين في المرفق ملف مساعد تقبلوا تحياتي .. Stop Del.rar
  13. جمعة مباركة علينا وعليك أستاذي العزيز خبور سلمت يداك وجعل الله ذلك في ميزان حسناتك .. دائماً مبدع جاري تطبيق الفكرة وأية أسئلة سوف أقوم بالرجوع إليك تقبل تحيات أخوك abuzzouz
×
×
  • اضف...

Important Information