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

اخي ابو بهاء المصري / شكرا لخلقك وتفهمك لك منى كل التقدير والاحترام بالسبة للرسالة اثتاء الحفظ ليس له علاقة بالكود ولكن من خصائص اعدادات الاكسل وقد تم معالجتها قوائم لجان الدور الثاني اولي.xlsb

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

تم ربط زر التبديل ب Get_Data_By_Subject قوائم لجان الدور الثاني - Copy.xlsb

السلام عليكم 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

من افضل الدروس لربط الاكسل VB6 وفيه علم عزير وبه امثلة متضمنة اكواد الربط للاستاذ ياسر العربي في ميزان اعماله وحسناته https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/

ارفق الملف لنرى ما السبب رعاك الله

وعليكم السلام حسب فهمي لطلبك اكتب في الزر الجديد CALL CommandButton1_Click CALL CommandButton2_Click

وعليكم السلام ورحمة الله وبركاته قم بالاختيار من الخانتين الحمراء او احداهما تم اضغط زر تصفية لا تنسى تمكين المحتوى اذا طلبه الاوفيس منك اتمنى انى قدمت لك ما يفيد طلاب.xlsm

السلام عليكم جرب الملف كلمة السر 123 الزمن 50 ثانية يمكن تعديلها من الكود توقيت.xlsm

وعليكم السلام ورحمة الله وبركاته طلبك غير واضح بالنسبة لي هل تريد اخفاء الليبل فقط ام يتم معه اخفاء التكست بوكس ايضا علي كل حال اليك ملف اخفاء الليبل فقط اخفاء الليبل.xlsm وهذا اخفاء الليبل مع التكست بوكس الاثنين اخفاء الليبلوالتكست.xlsm واختر ما يخقق طلبك تحياتي

السلام عليكم لماذا لا يكون زر واحد يضع الدوائر على نصف العام واخر العام نفس الوقت كما الملف المرفق سعد22.xlsm

جرب الملف المدرسة.xlsm

السلام عليكم ربما يكون طلبك حسب فهمى لسؤالك =YEAR(C3)-YEAR(B3)-(YEAR(G3)-YEAR(F3))

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

السلام عليكم محاولة بالكود ارجو فيها الفائدة قائمة الاسماء في العمود A يقوم الكود بتحديثها تلقائيا بمعنى عند اظافة اي اسم جديد في العمود F3يقوم الكود باظافتها في الليست في M3 لا تنسى تمكين المحتوى تحياتي INDIRET COSTS 2023.xlsb

وعليكم السلام ورحمة الله وبركاته ضع الكود في محرر الاكواد واربطه بزر Sub FindReplaceAll() Application.Dialogs(xlDialogFormulaReplace).Show End Sub

وعليكم السلام ورحمة الله وبركاته اخى / الصور في الوضع العادي تتغير ولا توجد مشكلة, اما في وضع التكبير لا يمكن التجربة لان الصورة تغطي كامل الفورم ولا يظهر اي شئ من الفورم الا الصورة مكبرة

وعليكم السلام ورحمة الله وبركاته تفضل الحل فى الملف المرفق مثال.xls

لنفرض المعادلة في الخلية A1 فيكون الكود Range("A1").Select ActiveCell.FormulaR1C1 = "=DATE(YEAR(TODAY()),1,1)" ملف به الكود كود.xls

وعليكم السلام ورحمة الله وبركاته ارجو ان يكون الحل فيه طلبك ترحيل البيانات نصفين متساويين.xlsm

السلام عليكم / قم بمسح تعيين الطباعة كما بالصورة

وعليكم السلام ورحمة الله وبركاته تقرير حسب الطلب2.xlsm

وعليكم السلام ورحمة الله وبركاته كيف حالك استاذ خيري جرب الملف بعد التعديل تقرير حسب الطلب1.xlsm عبدالله الصاري

تبارك الله جعله الله في ميزان حسناتك . جزاك الله كل خير

السلام عليكم توجد اعمدة مساعدة مكتوبة باللون الازرق الفاتج يمكنك اخفائها كليا والحل بنفس معادلة الفاضل استاذنا بن عليه حاجي معدل التقدير.xlsx