نجوم المشاركات

جرب هذا الملف العامود الاصفر هو المعني بالامر format_as_you_like.rar

السلام عليكم ورحمة الله إذا فرضنا أن عمود التربية البدنية هو العمود S والبيانات تبدأ من السطر الثاني أبدل في معادلتك العدد 26 (المقسوم عليه) بالصيغة التالية: بالإنجليزية: IF(S2="معفى";25;26) بالفرنسية: SI(S2="معفى";25;26) ثم نقوم بسحب المعادلة كلها إلى الأسفل... أرجو أني وفيت المطلوب... بن علية

الاخ العزيز : amrshetos تواصل معى للتنفيذ والاتفاق تقبل تحياتى

اشكرك على كلماتك الرقيقة الظاهر المعلومة بيننا لم تصل بالطريقة الصحيحة ، لي او لك احاول شرح طريقتي مرة ثانية: نستطيع ان نستخدم مسار حقل الصورة ، من الجدول ، او من الكود (لأن المسار واسم الصورة لن يتغير بالخطوات التالية) ، عند تغيير الصورة (لاحظ لم اقل عند تغيير اسم الصورة او المسار) : يختار المسؤول اسم الصورة اللي يريد تغييرها ، فلتكن لحم5 مثلا ، والتي تتواجد الان في المجلد icons ، فتنفتح له نافذة تصفح الملفات/المجلدات ، ويستطيع المسؤول اختيار اي صورة من اي مجلد ، فيختار مثلا الصورة New_BBQ.jpg في مجلد Downloads ، فيقوم الكود بـ: حذف الصورة لحم5 الموجودة حاليا في المجلد icons ، نسخ الصورة New_BBQ.jpg من مجلد Downloads ، إلى المجلد icons ويغير اسم الصورة الى لحم5 . بهذه الطريقة ، الخطوة #1 اعلاه ، لم تتغير ، وانما تم تغيير الصورة فقط ، وبقيت جميع الصور بأسمائها في المجلد icons ان شاء الله اكون وُفقت في الشرح هذه المرة جعفر

تفضل أظن أن هذا هو المطلوب إظهار البيانات.rar

وعليكم السلام أخي الغالي أبو يوسف مع التواريخ جرب استخدام احدى الدالتين CDATE أو CLNG .. اقرأ حول الدالتين لمعرفة المزيد عنهما لربما يساعدك ذلك في إتمام الأمر إنن شاء الله

السلام عليكم تفضل الملف المرفق وفيه ماكرو لطباعة كل الشهادات... تمت بعض التعديلات على بعض التنسيقات (معادلة التسمية name1a، نطاق الطباعة)... تم حفظ الملف بصيغة .xlsb لأجل الماكرو... بن علية 1A first.rar

السلام عليكم ورحمة الله تفضل اخى الكريم ترحيل.rar

السلام عليكم اخي الغائب محمود وحشتنا يا راجل ، وحتى البدر له طلّه مرة في الشهر ، بس انت بقيت اغلى منه ، ولك طلّه متى ما تحب طبعا ممكن عمل اللي تريده بالكود ، بس عندي لك حل تاني اسهل: ايه رايك في تقريرك الحالي ، نعمل خانه "عدد ايام الإجازة" لكل سجل ، وتحت ، نعمل مجموعهم جعفر

على العموم ، اذا الله كتب لنا بالأخرى ، بنحتاج لكم شباب تشاركونا في الفرحة

تحية طيبة اخي الكريم لا اخفيك سرا اني اجد هذه الطريقة في تسجيل الغياب و الحضور مملة نوعا ما او بدائية فالافضل ان يكون هناك جدول مستقل يكون فيه اسم الموظف او رقمه و تاريخ اليوم و الحضور او الغياب على كل حال اليك ما طلبت db42.rar

1. رحم الله والديك 2 و 3 هاي ما فهمتهم جعفر

كنترولات تجربه مفيده وجدتها على صفحات النت http://up.top4top.net/f-328srtp91-rar.html http://up.top4top.net/downloadf-328zrpn61-rar.html http://up.top4top.net/downloadf-3282bt3u1-rar.html http://up.top4top.net/downloadf-328m849b1-rar.html http://up.top4top.net/downloadf-3285m2dd2-rar.html http://up.top4top.net/downloadf-328e6ccy1-rar.html

السلام عليكم ورحمة الله وبركاته إخواني في الله الموضوع ليس جديد وقد تم طرح الكود في مشاركات فرعية بموضوعات مختلفة بالمنتدى ، ولكن لأهميته رأيت ان أقوم بطرح موضوع مستقل ليسهل الوصول إلى الموضوع باستخدام خاصية البحث في المنتدى فكرة الكود هي استخراج القيم الغير مكررة أي استخراج القيم الفريدة في نطاق محدد .. والكود مشروح لمن أرد الشرح لعل وعسى أن يتعلم الجميع كيفية استخدام الأكواد بشكل جيد وهذا هو الكود مصحوب بالشرح ... أرجو أن ينال إعجايكم Sub UniqueByDictionary() 'يقوم الكود باستخراج القيم الفريدة أي الغير مكررة باستخدام الكائن قاموس '---------------------------------------------------------------------- 'المتغير الأول لتخزين قيم النطاق والمتغير الثاني لتخزين مفاتيح القاموس 'الثالث متغير للكائن القاموس والرابع متغير يستخدم في عمل حلقة تكرارية Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long 'ليساوي الكائن المسمى القاموس والذي يعتبر أداة قوية للتعامل مع القيم الفريدة [Obj] تعيين المتغير Set Obj = CreateObject("Scripting.Dictionary") 'ليساوي قيم النطاق في العمود الأول [myData] تعيين المتغير myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value 'حلقة تكرارية تبدأ من أول عنصر في مصفوفة القيم إلى آخر عنصر في المصفوفة For I = 1 To UBound(myData) 'هذا السطر هو أهم سطر في الكود حيث يتم تمرير القيمة للقاموس 'فيقوم القاموس بتخزينها إذا كانت القيمة تصادفه لأول مرة 'أما إذا كانت القيمة مكررة فلا يقوم بتخزينها مرة أخرى Obj(myData(I, 1) & "") = "" Next I 'ليساوي مفاتيح القاموس والتي تمثل القيم الغير مكررة [Temp] تعيين المتغير Temp = Obj.Keys 'حيث يتم تحديد عدد الصفوف [E1] وضع عناصر القاموس الغير مكررة في الخلية 'والتي تقوم بعد عناصر القاموس التي تم تخزينها [Count] من خلال كلمة 'عبارة عن مصفوفة بالقيم تكون على شكل أفقي لذا نستخدم [Temp] المتغير 'لتحويل القيم من الشكل الأفقي إلى الشكل الرأسي ليناسب وضع النتائج في عمود [Transpose] كلمة Range("C1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub وإليكم الملف المرفق مطبق فيه الكود مع مثال بسيط حمل الملف من هنا تقبلوا تحياتي

الأخ المحترم والعبقرى بالفعل : bosh ألف شكر على ردك السريع لطلبى هذا ولكن لكى تكتمل المشاركه نريد من سعادتك 1- شرح الكود 2- فك شفرة الكود فى الفيجوال بيسيك حتى نتمكن من تغيير الشريط المتحرك المعروض إذا أردنا 3- ما هو الباسوورد الموضوع من طرفك 4- تفسير كــيف كلما أردنا مسح كود الحمايه للصفحه يغلق الملف .... أقول كيف مع تحياتنا جميعاً وكعهدنا جميعاً فنحن نريد أن نستفيد ونتعلم من الأفكار المعروضه حتى تعم الفائده - الملف المعروض به العديد والعديد من الأفكار النادره ولكن ما الفائده لو لم نفك شفرتها لنتعلمها نحن ((( جميعاً ))) فى الإنتظار ... أليس كذلك أيها الأخوة المشاركون ؟!!!!!!!!!!!!!!!!!!!!!!