أيسم إبراهيم

السلام عليكم الأخ الكريم كل عام انت بخير و مرحبا بك بين إخوانك في بيت الإكسيل ياريت لو ترفق ملف بتنسيق 2003 يمكن نقدر نساعدك. لاتحرمنا أجرك يا أخي ! دمت بخير أيسم إبراهيم

السلام عليكم و رحمة الله و بركاته الأخ الكريم: سماره 99 جزاك الله خيرا على كلامك الطيب و دعواتك التي أدعو الله أن يجعل لي حظا منها و إياك و سائر المسلمين أجمعين أما بالنسبة لإسمي أيسم على وزن أَفْعَلْ التفضيل من الفعل( يَسِمْ )أي يصف و بالتالي أيسم تعني ( كثير الوصف ) أي يصف الناس كثيرا والله أعلى و أعلم هذا اسمي الحقيقي يتبقى أن أتعرف على اسمك أنت الحقيقي كل عام أنت بخير

السلام عليكم تفضل المرفق أخي الكريم به الألوان مختلفة لكل شخص لون خاص به خطوات الحل حدد بالماوس الخلايا الخاصة بالمدرس الأول من قائمة تنسيق ...تنسيق شرطي....قيمة الخلية...أكبر من ....صفر format>>congitional formatting>>Cell Value is >>greater than>>0 ثم من زر تنسيق format)f)المجاور اختر اللون المناسب للمدرس الأول ثم كرر الخطوات كما هي مع كل مدرس فقط غير الألوان أتمنى أن أكون واضح دمت بخير أيسم إبراهيم 1مواد.rar

السلام عليكم الأخ الكريم غيَِّر أي رقم في المدى الذي حددته و لاحظ ما يحدث منتظر ردك و تعليقك دمت بخير أيسم إبراهيم 1مواد.rar

السلام عليكم الأخ الكريم الطبيعي أن الملف الذي يحتوي على ماكرو لا يعمل الماكرو إلا إذا قام المستخدم بتخفيض مستوى أمان الماكرو دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم في ملفك اضغط Alt + F11 سيظهر محرر الفيجوال بيسك اضغط زر إدراج ... موديول جديد Insert >> Module ثم اسخ والصق الكود التالي Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range Dim lCol As Long Dim vResult '''''''''''''''''''''''''''''''''''''' 'Written by Ozgrid Business Applications ''''''''''''''''''''''''''''''''''''''' lCol = rColor.Interior.ColorIndex If SUM = True Then For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = WorksheetFunction.SUM(rCell, vResult) End If Next rCell Else For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = 1 + vResult End If Next rCell End If ColorFunction = vResult End Function

السلام عليكم أخي الكريم أولا : هناك كود ( منقول عن أحد العمالقة )لابد أن تنقله لملفك( ادرج موديول جديد ثم نسخ و لصق ) ثانيا: انقل المعادلات التي أسفل كل عمود من أعمدة المواد التي تقوم بجمع الأرقام التي داخل الألوان المحددة أمام كل مدرس ثالثا: أمام كل مدرس هناك معادلة جمع SUM هذا كل ما في الموضوع دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم استخدم الكود التالي Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseModel = vbFormControlMenu Then MsgBox "ادخل بشكل شرعي " Cancel = True End If End Sub

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

السلام عليكم الأخ الكريم جرب المرفق وبه _ إن شاء الله _ ما طلبت بعد تلوين خلايا جديدة لكل معلم و الانتهاء اضغطCtrl+Alt+F9 دمت بخير أيسم إبراهيم محاولة.rar

السلام عليكم الصورة غير ظاهرة أخي الكريم عفوا أخي الصورة ظهرت لكني لا أجيد الفرنسية

السلام عليكم الأخ الكريم ياريت لو ترفق الملف بتنسيق 2003 ربما نستطيع مساعدتك دمت بخير أيسم إبراهيم

السلام عليكم أخي الكريم آسف على التأخير تفضل المرفق _ إن شاء الله _ به ما طلبت منتظر ردك و ملاحظاتك دمت بخير أيسم إبراهيم Add Worksheets.rar

السلام عليكم الأخ الكريم هل تريد ربط هذه الأيام بشهر محدد أم أن الشيت ستعمل عليه لكل الشهور ؟ منتظر ردك

السلام عليكم أخي الكريم و لك مثل ما دعوت لي به أهلا و مرحبا بك و بطلباتك دمت بخير أيسم إبراهيم

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

السلام عليكم أخي الكريم أنا كلامي وتجاربي في الملف على أوفيس 2003 و ما جربتش على 2007 دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم تفضل المرفق به _ إن شاء الله _ ما طلبت دمت بخير أيسم إبراهيم AYSAM.rar

السلام عليكم جميعا جزاك الله كل الخير أخي ياسر كلامك سليم. ولكن كان قصدي أن يتم التعديل على الكود ليكون التغيير أتوماتيكي بمجرد تغيير اسم ورقة العمل دمتم بخير أيسم إبراهيم

السلام عليكم الأخ الكريم بالفعل Hide_Rowهو الكود الذي نعمل عليه أنا جربت الطباعة عندى فوجدتها تماما كما يظهر بالمعاينة يمكنك ذلك من الضغط على الزر setup و الزر Margins لا يمكنك الطباعة بالاختصارات و إنما يمكنك فقط الطباعة بالضغط على الزر Print ستظهر شاشة الطباعة حدد منها ما تريد دمت بخير أيسم إبراهيم

السلام عليكم أخي الكريم : سعد قم بحذف كود الأستاذ يحيى من الملف نظرا للتعارض بين الكودين لأنهما يؤديان وظيفة واحدة . جرب و ستجد الأمور على ما ترغب. الكود هو Sub Yahya() Dim LatR As Long LatR = Range("b:b").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row With ActiveSheet .PageSetup.PrintArea = "A1:i" & LatR .PrintPreview End With End Sub

السلام عليكم إبداعات تفوق الوصف ما شاء الله عليكم ولإثراء الموضوع أكثر هذه دالةمن إعداد المستخدم UDF تعطي اسم ورقة العمل النشطة Function SheetName() SheetName = ActiveSheet.Name End Function شكل المعادلة كالتالي =SheetName() لكن بها نقص وهو أنها لا يتم تحديثها إذا تغيرت اسم ورقة العمل بعد إدراج الدالة. فهل من حل ؟؟؟؟ دمتم بخير أيسم إبراهيم

بارك الله فيكم جميعا و كل عام أنتم بخير بقدوم شهر رمضان المعظم

السلام عليكم أنا عندي قناعة كبيرة بأن كل شيء ممكن بالإكسيل هل ممكن عمل معادلة لعرض اسم ورقة العمل في خلية ؟؟؟

أعتقد لا يمكن