اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عبدالله بشير عبدالله

عضو جديد 01
  • Posts

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

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

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

59 Excellent

عن العضو عبدالله بشير عبدالله

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

  • Gender (Ar)
    ذكر
  • Job Title
    موجه فني بالمعاهد الفنية المتوسطة
  • البلد
    ليبيا
  • الإهتمامات
    القراءة

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. اخي العزيز اذا كنت تقصد ان البيانات الناتجة عن الفلترة اذا كانت اكثر من صفحة واحدة وتريد طباعتها في صفحة واحدة ربما هذا الملف قيه الحل 'طباعة حسب البيانات1.xlsm
  2. وعليكم السلام ورحمة الله وبركاته اختصار للوقت ولسرعة الاستجابة لطلبك ارفق الملف للتعرف على المشكلة
  3. وعليكم السلام ورحمة الله وبركاته 'طباعة حسب البيانات.xlsm
  4. وعليكم السلام ورحمة الله وبركاته ضف هذا السطر قبل الخطأ مباشرة On Error Resume Next st = Mid(Trim(.Cells(i, 2)), 1, 1)
  5. وعليكم السلام ورحمة الله وبركاته جسب فهمى لطلبك / قم باختيار الصف م خلية Z2 في صفحة البيانات ثم قم بالضغظ على زر ترحيل . سيتم الترحيل الى صفحتي المستجدين وسجل 31, امر الطباعة ديناميكي بمعني حسب البيانات يحتويها ويطبعها فليس هناك داع لزر الاختيار الامر الثالت غير واضح تماما بالنسبة لي والذي فهمته انك تريد الترحيل حسب التقدم فمثلا تريد ترحيل الدور الاول هل الترحيل لفصل معين ام لكل الفصول. اتمنى ان تجد ما يفيدك وان كان غير ذلك فعذرا . ترحيل.zip
  6. اخي ابو بهاء المصري / شكرا لخلقك وتفهمك لك منى كل التقدير والاحترام بالسبة للرسالة اثتاء الحفظ ليس له علاقة بالكود ولكن من خصائص اعدادات الاكسل وقد تم معالجتها قوائم لجان الدور الثاني اولي.xlsb
  7. السلام عليكم السيد الفاضل ابو بهاء المصري نأمل منكم تعديل اختياركم افضل اجابة للسيد lionheart فهو من يستحقها وهو صاجب الكود . وعندما كان ردكم على اجابته فاجابكم استاذنا الفاضل انتظر شخص ما لإرفاق الملف من أجلك ما عليك سوى اتباع الخطوات وستتمكن من تشغيلها بشكل صحيح وما قمت به انا وضع الكود بالملف واتباع الحطوات ولم اغير في الكود نقطة واحدة فالحل قام به استاذنا lionheart وهو صاحب الفضل ففضلا لا امر تغيير اختياركم لافضل اجابة الى صاحب الفضل . تحياتي
  8. السلام عليكم lionheart اعتقد ان صاحب الملف كما قال انه لم يعطى له نتائج بسبب عدم اضافة الكود Get_Data_By_Subject الى زر او الى صفحةLagna فيكون كالاتي Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$L$3" Then Application.ScreenUpdating = False Range("B9:I28").ClearContents Application.ScreenUpdating = True End If Get_Data_By_Subject End Sub وهذا ملف كامل به كود استاذنا lionheart وقمت بالتجربة فتم استدعاء الطلبة حسب المادة حقيقة سرعة ابداع اتقان زادك الله رفعة وعلما استاذنا الفاضل الملف قوائم لجان الدور الثاني - Copy.xlsb
  9. من افضل الدروس لربط الاكسل VB6 وفيه علم عزير وبه امثلة متضمنة اكواد الربط للاستاذ ياسر العربي في ميزان اعماله وحسناته https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/
  10. وعليكم السلام حسب فهمي لطلبك اكتب في الزر الجديد CALL CommandButton1_Click CALL CommandButton2_Click
  11. وعليكم السلام ورحمة الله وبركاته قم بالاختيار من الخانتين الحمراء او احداهما تم اضغط زر تصفية لا تنسى تمكين المحتوى اذا طلبه الاوفيس منك اتمنى انى قدمت لك ما يفيد طلاب.xlsm
  12. السلام عليكم جرب الملف كلمة السر 123 الزمن 50 ثانية يمكن تعديلها من الكود توقيت.xlsm
  13. وعليكم السلام ورحمة الله وبركاته طلبك غير واضح بالنسبة لي هل تريد اخفاء الليبل فقط ام يتم معه اخفاء التكست بوكس ايضا علي كل حال اليك ملف اخفاء الليبل فقط اخفاء الليبل.xlsm وهذا اخفاء الليبل مع التكست بوكس الاثنين اخفاء الليبلوالتكست.xlsm واختر ما يخقق طلبك تحياتي
×
×
  • اضف...

Important Information