السلام عليكم
عليك اضافة الكود ادناه
MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
Next MySheet
مع الشكر
ابو خالد
السلام عليكم
عليك اضافة الكود ادناه
MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
Next MySheet
مع الشكر
ابو خالد
السلام عليكم
يكون ذلك اخي الفاضل باتباع الاتي
اولا تذهب الى العمود الذي به الرقم كنص وستجد بجانبه مربع كما في الصورة ادناه
ثم تفتح المربع الصغير لكي ياتيك مجموعة من الخيارات منها تحويل الرقم الى نص وقبل ذلك اخي الكريم يجب تظليل العمود من بداية الرقم المعرف كنص انظر للمرفق
مع الشكر
ابو خالد
Untitled.zip
Untitled1.zip
السلام عليكم
اخي واستاذي الفاضل خبور عمل مبدع من شخص متالق لانزكيه على الله
جزاك الله خيرا اخي الحبيب
حاولت الاتصال بك ولكن مع الاسف لا احد يرد ممكن اعرف الوقت الذي يمكنني الاتصال به ويكون مناسب لك
اخوك ابو خالد
اخي الكريم
الملفان هما نفس الشئ ولكن خطا في التحميل
=============
بالنسبة لدالة MID تقوم بقراءة النص واستخراج المطلوب بناء على المعطيات فمثلا MID(B5,1,3) تقوم بالقراءة من اول رقم او حرف بحدود ثلاثة ارقام ففي المثال 2344 - 123 يبدأ بالقراءة من رقم 1 وحتى ثلاثة ارقام ولو اردنا المزيد نعدل رقم 3 الى الرقم المراد قرائته
بالنسبة لدالة Text
تقوم بجمع الارقام بالعمود الاول الذي به المعطيات على جزئين الاول يجمع من سطر 1 الى سطر 3 ثم يقوم الجزء الاخر بجمع العمود نفسه من سطر 1 الى سطر 2 مع +1 ليبدا التسلسل الجديد
ان شاء الله تكون الصورة وضحت
مع الشكر
ابو خالد
السلام عليكم
المشكلة الاولى كانت في الصفحة 2 الارقام معرفة على انها نص وبالصفحة Jan05 كانت ارقام ولايستطيع الاكسل المقارنة بين رقم ونص كما تعلم اخي الكريم
المشكلة الثانية بعدم امكانية دالة Vlookup القراءة من اليسار الى اليمين وبالتالي تم اضافة عمود واخفاؤه به نفس البيانات بالعمود A لتتم القراءة منه
مع الشكر
ابو خالد
جزاك الله خيرا
نعم يمكن بتعديل بسيط في المدى فنحن في مثالنا عملنا الدوائر على العمود D وكان الكود
Set MyRng = Range("e10:e1000")
وليعمل على اكثر من عمود مثلا من E8 الى J1000 يكون الكود
Set MyRng = Range("e10:J1000")
مع الشكر
ابو خالد
===========
الرد اعلاه هو جواب استفسارك ادناه
==============
الجزء الاول تحديد العمود الثاني وهو رقم الجلوس ليتم المقارنة عليه اذا كان صفر لايرسم دائرة حمراء
الجزء الثاني هو العمود الخامس الخلية رقم7 يعني زي ماتكتب E7
ان شاء الله وضحت الصورة
مع الشكر
ابو خالد
=======
السلام عليكم
اخي احمد
لو ذهبت في مثالك للسطر الرابع من صفحة Jan05 لوجدت ان هذا الرقم غير موجود بصفحة2 وبالتالي النتيجة N/A#
======
اخي احمد ممكن تحدد ماتريده لكي نتمكن من المساعدة فالدالة تعمل بشكل جيد اما دالة SumProduct فمختلفة تماما عن طلبك
مع الشكر
ابو خالد
السلام عليكم
نعم اخي فحسب طلب الاخ صفوت اذا كان رقم الجلوس صفر فلايضع دائرة على الدرجة
نعم الكود مبرمج مع الخليةE7 بحيث لو كانت اي خلية بالمدى من E8 الى E1000 يقوم بوضع الدائرة
مع الشكر
ابو خالد
السلام عليكم
جهد مشكور اخي IMAGINLIFE ممكن تكون بواسطة المعادلة ادناه
=IF(A8="","",MID(B7,1,5)+A7&" - "&MID(B7,8,8)+A8)
والافضل عن طريق الاكواد
فضلا انظر للمرفق
مع الشكر
ابو خالد
__________.zip
__________.zip
اخي الحبيب خبور والله العظيم اني افتقدك وتاكد اخي الحبيب انه من يسال عني يسال عنكم ايضا فنحن اجساد مختلفة لروح واحدة تجمعنا الاخوة والمحبة بالله ودعواتك هذه اسال المولى عزوجل ان تكون من نصيبنا جميعا ويجمعنا بكم في الفردوس الاعلى
اخوك ابو خالد
السلام عليكم
مرحبابك اخي ابو خالد
الموضوع لايختلف ان كان عربي او انجليزي او افيس 2007 او 2003 فكل ماهنالك ان تقوم بوضع علامة $لتثبيت الخلية المراد العمل عليها كمرجع.
ارجو ان تكون الصورة وضحت ولكي تتضح معاك اكثر حاول اضافة هذه العلامة الى خلية ما وانظر ماذا يحدث فالبتجربة ستسفيد اكثر ومرحبا بك لاي استفسار
مع الشكر
ابو خالد