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

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

جرب الكود بهذا الشكل Private Sub CommandButton1_Click() Columns("L:L").ClearContents Range("I12:I" & Cells(Rows.Count, "I").End(xlUp).Row - 15).Copy Range("L27").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

استخراج بيانات أسبوعية وشهرية وسنوية وربع سنوية (مع إضافة التاريخ) من بيانات يومية تفضل book7.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء هنا ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته وتم استخدام الصور والامثلة العملية في الشرح وبصورة ميسرة وبسيطة حتى يتم استيعابها بالصورة المطلوبة وتم تقسيم العمل الى ستة ملفات وبصورة تسلسلية اخوكم عماد الحسامي الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar الدروس السته مجمعه.zip

السلام عليكم ورحمه الله وبركاته اريد انشاء 3 نماذج ادخال بيانات خاص بمرتبات فى الملف تصميم جاهز ولكن داخل الشيت للثلاث نماذج تقوم الثلاث نماذج بادخال البيانات فى شيت Data انظر المرفق Attendance Sheet_Req.zip

بسم الله الرحمن الرحيم شكرا أخي ربيع فكرتك عبقرية ،جزاك الله عنا كل الخير وأفاض عليك من علمه. تفضل الملف بالمرفقات: وكلمة السر للدخول لمحرر الفيجوال هي: hoorabie RABIE TEST.rar

اخى الفاضل باسورد فك الحماية EP1E2D تحياتى

السلام عليكم تفضل اخي اعتقد هذا ما طلبت بالتوفيق 194.Azizm.rar

أخي الكريم جرب الكود التالي : Sub ChangePrintArea() If Range("A1").Value = "OFF_" Then ActiveSheet.PageSetup.PrintArea = "A3:M15" ElseIf Range("A1").Value = "ON_" Then ActiveSheet.PageSetup.PrintArea = "B3:N15" Else ActiveSheet.PageSetup.PrintArea = "" End If End Sub يوجد ملف مرفق Change Print Area.rar

بعد إذن أخي الحبيب الغالي محمد الريفي جرب هذا الملف ..النتائج مختلفة .. Convert Number To Days & Months & Years.rar

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

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

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

تفضل اخي اتمنى يكون المطلوب نموذج1.rar

مجهود مميز شكرا لاهتمامك اخي الفاضل حققت المعادله النتائج المطلوبه و تمت مراجعتها و التاكد من صحت و دقت الحساب جزاء الله خيرا

استاذ YasserKhalil معلومة جديدة جداً جزاك الله كل خير

استاذي الفاضل ياسر خليل جزاك الله خير هذا المطلوب تماما

أخي الفاضل أحمد جرب الملف التالي وشوف النتائج وإن شاء الله تقدر تعدل عليه بما يتناسب مع عملك Move Data Using Worksheet_Change.rar

السلام عليكم ورحمة الله أخي الكريم سامي، إن الخلية N2 ارتبطت بها الخلايا التي تجدها في كل كشف والتي تعطي رقم الكشف بالشكل : "كشف منادة لجنة رقم ( ... )" ورقم الكشف تجده بين القوسين مكان النقاط الثلاثة في الشكل (مثلا في الكشفين الأول والثاني تجد المعادلات في الخليتين B7 و J7 وهما الموديل -النموذج- لباقي الكشوف الأخرى) ... وإذا تم تغيير مكان معادلة الخلية N2 يجب تغيير معادلتي الخليتين B7 و J7 -فقط- وفق هذا المكان الجديد لمعادلة الخلية N2، والكشوف الأخرى يقوم الكود، بعد جلب بيانات كل الكشوف، بتمديد معادلتي الخليتين B7 و J7 إلى بقية الكشوف... أرجو أني وفقت في توصيل الفكرة إلى حضرتك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم سامي، أولا شكرا جزيلا على الهدية وأتقبلها بفرح وسرور ، وثانيا وفيما يخص سؤالك الثاني : "في صفحة بيانات الطلبه تبدأ الاسماء من الصف التاسع لو اردنا مثلا تغيير الصف الذي تبدأ به الاسماء الى الصف ال 15اين التغيير لكي يعمل الكود صح" أقول وبالله التوفيق إنه في هذه الحالة يجب التعديل في سطرين من الكود وهما : السطر : V = 8 'عدد الصفوف الخارجة عن التوزيع في ورقة البيانات والسطر : EE = Application.RoundUp((S - (V - 8)) / (TT - SS), 0) وللتعديل تقوم بتغيير الرقم 8 (في السطرين) بالرقم الذي تريد (شرط أن يكون هو رقم الصف الذي يحوي "عناوين جدول البيانات" (أي الصف الأول أعلى الجدول)... أرجو أن يكون هذا الشرح مفهوما... بالنسبة لتوقيعك لست أدري لماذا لم ينجح التعديل عليه في بياناتك الخاصة لعل الأمر يتعلق بحداثة انضمامك إلى المنتدى (عضو جديد) ولأجل التأكد من ذلك ولمعرفة السبب يجب تدخل أحد أعضاء إدارة الموقع.... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للتغييرات التي قمت بها في الملف كانت كما يلي : 1- التعديل في شيت "لجان" بإضافة معادلة في الخلية N2 (مخفية بالتلوين) وهي معادلة لتحديد عدد الطلبة في كل لجنة (بقسمة العدد الإجمالي للطلبة على عدد اللجان الذي تم حجزه في الخلية E3) وذلك لترقيم القوائم تسلسليا حسب رقم اللجنة... 2- التعديل في الكود في موضعين : * في السطر: عدد الطلبة في اللجنة [E = [E2 واستبداله بالسطر : عدد اللجان (E = Application.RoundUp(S / [E2], 0 * وفي السطر : o = .UsedRange.Rows.Count بالسطر : o = T * (E + 8) + 2 وهو استبدال تحسيني لتحديد "نطاق الطباعة" بدقة (دون الصفحات الفارغة) * بالنسبة لسؤالك الثاني : "في صفحة بيانات الطلبه تبدأ الاسماء من الصف التاسع لو اردنا مثلا تغيير الصف الذي تبدأ به الاسماء الى الصف ال 15اين التغيير لكي يعمل الكود صح" سأقرأ الأكواد جيدا (لأني الآن مشغول - سأغيب لبعض الوقت -)، إن شاء الله أعاود الرد عليك... أخوك بن علية

أخى الفاضل تفضل الملف المرفق .. تم التعديل على الكود ليناسب طلبك تحياتي البحث عن أي كلمة ضمن الاسم الرباعي أو الثلاثي.rar

ياستاذ احمد 505 اطر ح الموضوع في مشاركة منفردة جديد واذكر ماتريد بوضوع وكذالك ارفق ملف حتي يسهل توصيل ما تريده ولتعم الفائدة .....فهذه هي طريقة المنتدي فا الاخوه في هذا المنتدي لن يتأخرو عليك في المساعدة

السلام عليكم و رحمة الله حسب ما فهمت من المشاركة اليك هذا الملف استخراج الاسم المكرر salim.rar

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

الف مبروك و الى مزيد من التقدم و الرقى

الف مبروك ومنها للأعلى بإذن الله وترقيات أكثر بإذن الله في جميع مجالات الحياة تقبل خالص تحياتي

يتكون الكود من جزأين ولفهم عمله قم بإيقاف الكود في آخر الجزء الأول يعني عن هذا السطر Call min_max_average وذلك بوضع هذه العلامة أمام السطر ( ' ) أو بكتابة كلمة stop في السطر الذي قبله ثم نفذ الكود ستلاحظ ظهور أرقام الأسطر التي تحدد النطاقات في العمودين M , N حيث يكون العمود M للرقم الأصغر في النطاق ويكون العمود N للرقم الأعلى في النطاق ثم يأتي دور الجزء الثاني من الكود حيث يقوم باستخدام الأرقام في العمودين السابقين لحساب أعلى قيمة وأدني قيمة والمتوسط تحياتي أبوعيد (ع ي د )

اساتذى الاعزاء اعضاء منتدى الكرام لكم منا جزيل الشكر والامتنان على ما قدمته لنا من اثراء للمعلومات وتوفير للوقت ودقه البيانات وما اريده هو عمل UserForm تكون مهمته ترحيل البيانات وتسكينها فى اماكنها المحدده وان يكون كل عمليه ترحيل برقم مسلسل ينشا تلقائى حتى اذا تم الادخال خطا بامكانيع المستخدم الضغط على التعديل وكتابع رقم القيد وادخال التعديل عليه كما اريد فى توقيت الخروج السيارة وتوقيت الخروج اختصار بحيث يسنع من ساعه الكمبيوتر بمعنى السياره خرجت الساعه 11صباحا اريد اختصار على الكيبوبورد مثلا ALT. T يعطنى وقت الساعه اللى على الكمبيوتر وشكر على تعاونك المستفيض معنا سيارات.rar

اخي الكريم لا اخفيك سرا انه لم تتضح الفكرة التي تدور في رأسك لطريقة تطبيق هذه الحماية على كل حال المرفق التالي يبحث في الجدول عن ارقام التسجيل جرب المرفق ووافينا بالنتيجة OnlyForTest2.rar

السلام عليكم ورحمة الله وبركاته بارك الله فيك أخ عماد قمت باختراقه خلال ثلاثين ثانية كلمة السر: 1920 أزلت كل الحمايات الموجودة بالملف: من حماية الصفحات إلى حماية VBA إلى حماية الورقة الأولى من التعديل وذلك بحذفي للكود الموجود في ThisWorkbook الملف بدون قيود بالمرفقات نظام حماية متكامل.rar

بسم الله الرحمن الرحيم الاساتذة الاعزاء من فضلكم كيف يمكن استخدام دالة countif باكثر من شرط من فضلكم على سبيل المثال معرفة عدد مواد الرسوب اذا كان الحد الادنى في كل مادة مختلف عن المادة الاخرى مثلا الريضيات حد النجاح 50 بينما العلوم حد النجاح 25 ولكم جزيل الشكر سلفا

أخي الكريم قم أولاً بتحديد خلايا الورقة كلها ثم تنسيق خلايا ثم التبويب حماية ثم قم بإزالة علامات الصح من جانب الخيارين Locked و Hidden حدد الخلايا المراد عمل حماية لها ثم تنسيق خلايا ..... وضع علامة صح بجانب الخيار locked اختر الأمر Protect Sheet ثم ضع كلمة السر وتأكيدها ثم موافق عندئذ يكون تم عمل المطلوب بارك الله فيك

السلام عليكم ورحمة الله وبركاته هذا مثال قمة بعملة قبل اكثر من 3 سنوات وهو خاص بتعاميم حيث يمكن ادراج الروابط الخاصه بصور التعميم ويمكن مشاهدة اي صفح من التعميم على التقرير وطباعتها كما انه يمكن ان تضيف اكثر من 20 صفحه لتعميم الواحد دون اي مشكله وايضن فيه البحث بموضوع التعميم والله الموفق والسلام عليكم ورحمة الله وبركاته 123456.zip