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

أخي الحبيب سعد عابد بارك الله فيك وجزيت خيراً على مشاركتك القيمة والرائعة استخدام الحلقات التكرارية غير مجدي حيث يمكن الاستغناء عنها تماماً .. بسطر واحد وبدون تكرار ..حيث يتم تحديد عمود البداية وعمود النهاية لإخفاء كل الأعمدة فيما بينهما بما فيها العمودين أقصد جرب استخدام Columns وبعدين افتح قوس وبعدين قوس تنصيص واكتب أول عمود وليكن A ثم نقطتين فوق بعض ثم آخر عمود وليكن AZ .. واقفل التنصيص واقفل القوس وبعدين نقطة واستخدم الخاصية Hidden وخلي القيمة الخاصة بيها True ... ومن غير داعي للحلقات التكرارية التي من شأنها أن تبطيء عمل الكود تقبل وافر تقديري واحترامي

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

أخي الحبيب سليم بارك الله فيك وجزاك الله خير الجزاء ومشكور على هذاياك الرائعة والمتميزة تقبل تحياتي

وبمكنك بدلاً من تسمية نطاق معرف .. يمكن الإشارة إلى النطاق في الكود نفسه بهذا الشكل Sub xx() Dim rng As Range Set rng = Range("a1,c1,e1,j1,o1,z1") Columns.Hidden = True rng.EntireColumn.Hidden = False End Sub وهي نفس فكرة أخونا الغالي سليم بالضبط مع فصل النطاق لنعبر عنه بمتغير .. بدلاً من تسمية نطاق بهذا الشكل .. =ورقة1!$A:$A,ورقة1!$C:$C,ورقة1!$E:$E,ورقة1!$G:$G,ورقة1!$I:$I,ورقة1!$K:$K,ورقة1!$M:$M,ورقة1!$O:$O,ورقة1!$Q:$Q,ورقة1!$S:$S,ورقة1!$U:$U,ورقة1!$W:$W,ورقة1!$Z:$Z ابحث عن الأيسر والأسهل تقبل تحياتي

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام تعودنا على التلقي وفقط .. ويبدو أن أسلوب التلقي لن يوصلنا إلى الترقي .. من ثم سنتجه نحو منحدرٍ آخر لعلنا نصل إلى العلياء بعد الانحدار خطر ببالي فكرة ... وهي أن نتناول موضوع للبحث كل أسبوع (كل يوم جمعة) إن شاء الله ، نبحث جميعاً ونوجد الحلول ونستخدم كل الإمكانيات الممكنة للوصول لأفضل الحلول .. والتي من شأنها تجعلنا نرتقي ونتقدم في هذا المجال موضوعنا اليوم للبحث هو كيفية إخفاء كل الأعمدة ما عدا أعمدة محددة... حتى نكون أكثر دقة دعنا نخفي كل الأعمدة ونبقي فقط العمود 1 و 3 و 5 و 10 و 15 و 26 ..أي أن هذه الأعمدة ستكون هي فقط الأعمدة الظاهرة كل يدلي بدلوه في موضوع البحث تقبلوا وافر تقديري واحترامي

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

جرب الكود بهذا الشكل Sub Test() Dim WS As Worksheet, SH As Worksheet Dim Cel As Range Dim lRow As Long Set WS = Sheets("أداة بناء الخطط"): Set SH = Sheets("ورقة1") Application.ScreenUpdating = False SH.Range("B3:M1000").ClearContents For Each Cel In WS.Range("H3:H43") If Cel.Value >= 0.9 Then lRow = SH.Cells(Rows.Count, "B").End(xlUp).Row + 1 SH.Cells(lRow, "B").Value = Cel.Offset(, 1) ElseIf Cel.Value <= 0.5 Then lRow = SH.Cells(Rows.Count, "H").End(xlUp).Row + 1 SH.Cells(lRow, "H").Value = Cel.Offset(, 1) End If Next Cel Application.ScreenUpdating = True End Sub تم إضافة سطر واحد يقوم بمسح البيانات قبل الشروع في الكود SH.Range("B3:M1000").ClearContents تقبل تحياتي

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

العروسة لو عرفت هيجيلها اكتئاب .. شكلها كدا هنلغي البط ونطلب كباب .. بالتوفيق يا أحباب

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

أخي الغالي أحمد بحاول أعوض الخسارة الـ 15 دولار اللي راحوا بسبب الفضول (وهتكون سلسلة انتقام عشان نعوض اللي اتاخد مننا) تقبل تحياتي

لمزيد من الفائدة إليكم رابط الموضوع http://chandoo.org/wp/2012/09/17/offset-formula-explained/ وإليكم الملف المرفق غير محمي (من سلسلة الانتقام يا عربي) .. لأن المرفق في الموضوع الأصلي محمي !! Offset Formula Interactively Explained.rar

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

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

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

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

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

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

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

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

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

الحمد لله أن نال الموضوع إعجابكم أخي العزيز محمد الموافي وإن شاء الله يكون فتحة خير لمن أراد التعلم تقبل وافر تقديري واحترامي

منتحرمش منك يا غالي .. يا صاحب الأفكار الجميلة والرائعة بمساهماتكم أخي الحبيب ياسر نرتقي سوياً