معتصم محمد

الأستاذ / alidroos تفضل الملف بعد تفعيل خاصية الـ Check Box كل ما ستقوم به هو تحديد Check Box وسيتم الترحيل للشيت الخاص بالCheck Box المحدد لم اقم بعمل تعديل على الكود الخاص بالترحيل كل ما تم عمله هو اضافة كود الترحيل الخاص بالفترة الصباحية للـ Check Boxصباحاً ليعمل عند تفعيله وبالمثل للـ Check Box مساءاً للأسف في حالة الغاء تفعيل Check Box لن يتم مسح / حذف البيانات من الشيت المقابل بالتوفيق بإذن الله ترحيل بيانات3.rar

من نسخة الإكسل 2007 تغيرت امتدادات ملف الإكسل فأصبح الشيت العادي بالإمتداد XLSX الشيت الذي يحتوي على ماكرو بالإمتدادXLSM للخروج من هذه المشكلة يمكنك أن تحفظ الملف بإمتداد نسخة 2003 XLS مع ملاحظة أن علامة الإستفهام في حالتك تعتبر الأيقونة المميزة لملف يحتوي على اكواد

الأستاذ عبدالله جزاك الله خيراً على التوضيح لكن اسمح لي سؤال اخر هل تقصد بالتابع وهو ما تم تحديده باللون الأحمر Sub FormulaToValue(she As Worksheet) وهل عملية تعريف التابع هي عمبلية تعريف متغير بواسطة الكلمة DIM اعتذر للإطالة

الأستاذ / هانكوك كل عام وانت بخير و رمضان كريم جهد رائع مبذول في الملف لكنه للإسف لم يعمل معي يظهر لي الخطأ التالي run time error 445 object doesnot support this action ثم بعد الضغط على Debug ينتقل للسطر التالي With Application.FileSearch

الأستاذ هشام بارك الله فيك بعد إذنك بالطبع ارى ان نضيف العملية *1 في نهاية المعادلة لكي تكون النتيجة النهائية للمعادلة قيمة رقمية حتى إذا رغب السائل في حساب المجموع مثلاً يتم إعتماد نتيجة الدالة =IF(AND(E3>=F3;G3>=100;G3<=105);105;"")&IF(AND(E3>=F3;G3>105;G3<=115);110;"")&IF(AND(E3>=F3;G3>115;G3<=130);115;"")&IF(AND(E3>=F3;G3>130);125;"")*1

يمكنك مشاهدة الفيديو التالي لشرح الدالة IF

يمكنك إستخدام المعادلة التالية =IF(E3>=F3;VLOOKUP(G3;{100,105;106,110;116,115;131,125};2;1);0) أو المعادلة التالية =IF(AND(E4>=F4;AND(G4>=100;G4<105));105;IF(AND(E4>=F4;AND(G4>=106;G4<115));110;IF(AND(E4>=F4;AND(G4>=115;G4<130));115;IF(AND(E4>=F4;G4>130);125)))) اتمنى ان تفي هذه المعادلة بالغرض رواتب جديد.rar

بعض الإستفسارات 1 - حين اذهب لصندوق الماكرو Alt + F8 لا اجد به اي ماكرو (اعلم ان الكود يتم تنفيذه من الزر الخاص بإضافة فصول في الشيت 2) سبب السؤال عندما اردت تنفيذ الماكرو FormulaToValue لم أجده بمربع الحوار Macros 2 - في الفصل 32 بالشيت الأساسي يوجد لدينا 66 طالب تنتهب بالإسم يوسف 22 لكن في الشيت الذي تم اعداده بالكود نجد ان كششف الفصل 32 يشتمل على 60 طالب وينتهي بالطالب يوسف 16 لتمنى ان يتسع صدركم للإستفسارات التي قد تبدو امور بسيطة لديكم شكراً مرة اخرى على الملف

الأستاذ / عبدالله كل عام وانت باتم صحة وخير رمضان كر يم الملف في غاية الجمال ويدل على مهارة وخبرة منفذه بارك الله فيك جزاك الله خيراً على مجهودك الكبير في هذا المنتدى

اساتذتي الأعزاء ا/ هشام شلبي ا/ ياسر الحافظ ا/ سعد عابد ا/ عبدالله المجرب شكراً لكم على هذه الكلمات الطيبة وعلى مروركم الكريم ولا توجد مشكلة في رفع الملف في موضوع الأستاذ / يحياوي بارك الله بكم جميعاً

الأستاذ / ياسر شكراً على هذا الملف المميز بارك الله فيك

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته رمضان كريم ..... وكل عام وانتم بخير في موضوع اليوم استعرض معكم كيفية إضافة شيت جديد بحيث يقوم المستخدم بتحديد إسم الشيت في ظل ان يكون هذا الإسم اقل من او يساوي 31 حرف كذلك يجب الا يكون اسم الشيت فارغاً الكود المستخدم كالتالي Option Explicit Sub NweSheeetCustomeName() Dim SheetName As String SheetName = InputBox("Please Insert sheet name.") If SheetName = "" Or Len(SheetName) > 31 Then MsgBox ("You did not insert a name OR sheet name lenth is greater than 31 Characther") Exit Sub End If Sheets.Add.Name = SheetName End Sub درس الفيديو Add new sheet w CustomeName.rar

جهد رائع استاذ جمال

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

ملف جديد يضاف لعائلة ملفات الأستاذ / عماد الحسامي بإذن الله إن استطعت سأقوم بشرح محتويات (أو بعض أجزاء) الملف في صورة ملف فيديو ... إن لم تمانع بالطبع :)

الأستاذ / أحمد فضيلة شكراً على مروركم الكريم للأسف لم يتم نشر الموضع بعد عموماً يتم تعريف المتغير من خلال كتاية الكلمة DIM ثم إسم المتغير ثم As ثم نوع المتغير dim Name as String dim NumberOfRows as Long

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

تم إستخدام الدوال Index و Match لإجابة السؤال في حالة انك تريد إستخدام الدالة Vlookup فلابد من ان يكون الرقم السري بالعمود الأول بجدول البحث (المعيار الثاني بالدالة) دالة vlookup.rar

الأستاذ / سعد عابد الأستاذ / ياسر خليل الأستاذ / يحياوي شرفتم الموضع بمروركم الكريم الأستاذ يحياوي بخصوص موضوع قسم دروس الفيديو فهناك موضوع مثبت يتم إضافة الدروس الفيديو به، لكن الأستاذ هشام شلبي مشغول بالإمتحانات

يمكنك القيام بذلك من خلال عمل كليك يمين على الشيت الذي به المعادلات ثم إختار حماية الشيت Protect sheet يمكنك اضافة كلمة مرور لزيادة الحماية كيلا يقوم مسخدمس الشيت بعمل العملية العكسية Unprotect sheet كذلك في حالة اذا اردت ان تجعل المعادلة/محتويات الخلية غير ظاهرة في ال Formula bar حدد الخلية ثم تنسيق الخلايا بالإختصار Ctrl + 1 من تاب Protection نفعل الإختيار Hidden ثم موافق ثم تقوم بعمل حماية الشيت كما ذكرت سابقاً

الأستاذ / كيماس الأستاذ / عماد الحسامي شهادة اعتز بها من خبيرين في منزلتكما كذلك لا انكر إستفادتي من ملف الأستاذ / عماد الحسامي الخاص بجملة الدوران For ... Next خصوصاَ، وباقي ملفاته الأخرى عموماً فجزا الله اساتذتنا في هذا الصرح خير الجزاء

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

شرح لكيفية إستخدام جملة التكرار For ... Next الشكل العام لجملة التكرار إستخدام العنصر STEP كيفية الخروج من الحلقة التكرارية Exit for ForNextLoop.rar

الأستاذ / ياسر الملف جميل جداً وبالإضافة للشيت فإن ملف الورد يقوم بشرح المؤشرات المالية سؤال : هل هذه النسب يتم حفظ معادلتها مرة واحدة ام انها مع كثرة العمل تثبت في الذهن

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