سليم حاصبيا

انسخ هذه المعادلة الى اي مكان تريد في الصفحة ثم اضغط Enter =SUBSTITUTE(LEFT(CELL("filename"),FIND("*",SUBSTITUTE(CELL("filename"),".","*"))-1),"[","")

اعمل ما يلي: 1- اختر Developer من شريط الاوامر 2- من لتبويب controls اختر Design 3- كبسة يمين على الزر و من ثم اختر View Code (و يظهر لك الكود المخصص لهذا الزر لتدرسه على مهل) 4- تعود الى صفحة اكسل و تلغي تحديد Design 5- هذا كل شيء

اليك الحل اضغط على افضل اجابة اذا كان كذلك ayman salim.rar

تم معالجة الأمر لكن المعادلة هي معادلة صفيف لذلك عند تنفيذها يجب الضغط غلى Ctrl+Shif +Enter وليس Enter فقط اذا كان هذا المطلوب انقر على زر افضل اجابة ليكون الموضوع منتهٍ ألفى salim.rar

بعد اذن اخي محمد الريفي يمكن استعمال هذه المعادلة التي لا تتقيّد بعدد الأصفار على اليسار بل تزيلها كلها استعمل معها Ctrl+Shift+Enter ( في حال لم تعمل المعادلة كما يجب استبدل الفاصلة " , " بــ فاصلة منقوطة " ;" ) =MID(H2,MATCH((ROW($A$1:$A$100)),MID(H2,ROW(INDIRECT("1:"&LEN(H2))),1)*1,0),100)

ربما كان هناك ماكرو يعطل عمل هذا الكونترول في الملف تاكد من ذلك (عبر فتح مصنف جديد و اجراء التجربة عليه)

جميلة جداً كمبادرة أولى لكن عندي تعليق بسيط من حيث المعادلة و اداءها تجميع القرش والجنية salim.rar

1-حدد الخلايا المطلوبة 2-اضغط على Ctrl +1 3- اختر من النافذة التي تظهر التبويب Custum 4- تحت كلمة type اكتب هذه العبارة (مكان اي كلمة مكتوبة general مثلاً) [$-2000000]0 5 هضغط على Ok لمزيد من لنعلومات قم بزيارة الموقع التالي: http://www.techknowledgi.com/how-to-type-arabic-numbers-in-excel/

بعد اذن اخي الحبيب ياسر عندي هذا الملف Validation Sheet Name Salim.rar

تفضل اخي الكريم اخر رقم SALIM.rar

بارك الله بك اخي ياسر على هذه الاضافة لم اضعها صراحة لان الملف صغير جداً 15 كيلو

اجعل عملية الحساب Manual

تفضل اخي الكريم الحل Test 200 salim.rar

تم التحويل الى كود انظر الى الصفحة الاضافية منتوجات كود زراعية.rar

عسى ان ينال اعجابك منتوجات زراعية.rar

اخي ياسر هذا خيار اخر قمت به جزاك الله خيراً

الموديل هو بشكل general اي انه يعمل مع كل الصفحات فقط قم بتنشيط الصفحة المطلوبة و نفذ فيها الماكرو لتغير النطاقات فقط بدل الاحرف في الكود: مثلاً تبديل B الى M يقوم الماكرو بالتنفيذ على العامود M وهكذا

انسخ هذا الكود الى Module و قم بوضع زر لتنفيذه Sub salim_has() Dim LR As Long Dim Rng As Range, Cell As Range ''''''''''''''''''''''''''''''''''''''''''''''' lrb = Cells(Rows.Count, 2).End(xlUp).Row Set Rng = Sheets("Sheet1").Range("b2:b" & lrb) Range("c2:c" & lrb) = "" '''''''''''''''''''''''''''''''''''''''''' Do While i < lrb - 1 Cells(i + 2, 3).Value = "ناجح" i = i + 1 Loop End Sub

ماذا تقصد بنفس النظام

عسى ان يكون المطلوب تلوين نطاق بشرط.rar

اخي ياسر حسب ما فهمت من السؤال / اخفاء محتويات الاعمدة وليس الاعمدة بحد ذاتها/ لذلك لجئت الى هذه الوسيلة

ابسط طريقة لعمل ذلك بدون اكواد اخفاء محتويات.rar

تم معالجة الامر اين الخلل في الكود l salim.rar

الشق الاول من العادلة يشترط لا تكون اي خلية من الصف فارغة الشق الثاني اذا كانت الخلية فردية isodd يتم التنسيق بلون و اذا كانت زوجية iseven يتم التنسيق بلون اخر

الصفحات محمية بكلمة سر كيف تريد ان نعمل عليها