ياسر خليل أبو البراء

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم عبد الرحمن أهلاً بك في المنتدى ونورت بين إخواني ..بس يا ريت اللي يبارك لك تعدل الصورة عشان دماغي اتلوحت بالنسبة لسؤالك .. قم بتغيير الخاصية TabIndex بحيث تقوم بالترتيب الذي ترغبه حيث أول تكست بوكس سيكون صفر .. وحدد التالي وغير الخاصية إلى 1 ..ثم حدد التالي وغير الخاصية إلى 2 .. وأكمل ولا تكمل إنت تقبل تحياتي

بارك الله فيك أخي العزيز أبو عبد الرحمن البغدادي .. والملف معبر عن المطلوب على ما أعتقد والله أعلم جزاكم الله خيراً

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

إذاً في هذه الحالة ما عليه إلا أن يقوم بتعديل النطاق .. أو يمكن جعل النطاق متغير .. الأمر بسيط عموماً كل السبل تؤدي إلى أوفيسنا ، وأوفيسنا تأبه للجميع تقبل تحياتي

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

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

بارك الله فيك أخي الكريم سليم وجزاك الله خيراً كود طويل بعض الشيء أخي سليم .. جرب الكود التالي في حدث ورقة العمل .. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$6" Then With Application: .EnableEvents = False: .ScreenUpdating = False: End With Dim Rng As Range, Col Set Rng = Range("C6:N6") Rng.EntireColumn.Hidden = False Col = Application.Match(Target, Rng, 0) If IsNumeric(Col) Then Rng.EntireColumn.Hidden = True: Columns(Col + 2).Hidden = False With Application: .EnableEvents = True: .ScreenUpdating = True: End With End If End Sub

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

وعليكم السلام أخي الكريم هلا أرفقت بعض النتائج المتوقعة ..أو اضرب مثال للنتيجة المتوقعة

أخي الكريم مهند بالفعل هي نفس الفكرة تماماً لما لا تقوم باستخدامها في الكود لديك قم بإضافة السطر التالي قبل تنفيذ الكود Application.EnableEvents = False وفي نهاية الكود تستخدم نفس السطر مع تحويل القيمة إلى True ولحذف الكود من ورقة العمل التي ستقوم بتصديرها وستستخدم هذه الأسطر للإشارة إلى ورقة العمل المراد حذف الكود منها strName = Worksheets("Data").CodeName With ActiveWorkbook.VBProject.VBComponents(strName).CodeModule .DeleteLines 1, .CountOfLines End With ولا تنسى أيضاً السطر الذي سيقوم بالحفظ Application.ActiveWorkbook.Close True

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

ليس شرط تعلم الـ VBA فقط تعلم البدايات إليك الرابط التالي لتعرف الأساسيات الأولى في التعامل مع محرر الأكواد الرابط من هنا

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

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

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

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

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

أخي الكريم أحمد أعتذر للتأخر في الرد .. إليك الملف التالي ..انقر على زر الأمر RUN ليقوم لك بتوزيع الأسماء على المدارس كما أخبرتك ولكن يشترط أن تكون الأعداد المكتوبة في العمود E مساوية لعدد الملاحظين أي أن عدد الملاحظين في المثال = 117 ، وللك يجب أن يكون مجموع الأعداد في العمود E = 117 تقبل تحياتي توزيع الملاحظين على المدارس بدون تكرار.rar

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

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

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

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

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

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