نزار سليمان عيد

أشكرك أخي نزار على سرعة الإستجابة

من الممكن إعطائي إسم المعادلة

هي ليست معادلة ولكنها احد ادوات الاكسيل تذهب الى ادوات ثم مجاميع فرعية وتحدد على اي اساس يتم التجميع

مع الشكر

ابو خالد

السلام عليكم

اخي الكريم

يمكن ذلد بعدة طرق منها استخدام المجاميع الفرعية

واذا لم تتضح الصورة ارسل ملف ليتم التوضيح عليه

مع الشكر

ابو خالد

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

ابو خالد

السلام عليكم

مالمقصود بعملية السحب هل هي فقط للخلايا الغامقة ام لجميع الخلايا؟

مع الشكر

ابو خالد

السلام عليكم

الف الف مبروك ويتربى في عزكم وجعله الله من الابناء البارين بابائهم

ابو خالد

السلام عليكم

عليك اضافة الكود ادناه

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

مع الشكر

ابو خالد

السلام عليكم

فضلا انظر للمرفق

مع الشكر

ابو خالد

test_Budget_2009.zip

السلام عليكم

يكون ذلك اخي الفاضل باتباع الاتي

اولا تذهب الى العمود الذي به الرقم كنص وستجد بجانبه مربع كما في الصورة ادناه

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

مع الشكر

ابو خالد

Untitled.zip

Untitled1.zip

السلام عليكم

اخي واستاذي الفاضل خبور عمل مبدع من شخص متالق لانزكيه على الله

جزاك الله خيرا اخي الحبيب

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

اخوك ابو خالد

السلام عليكم ورحمة الله وبركاته

استاذي الكرم ابو خالد هل المرفقان اللذان أرفقتهما هما مختلفان ام هما مرفق مكرر ؟؟

بانتظار الشرح

السلام عليكم

اخي الكريم

الملفان هما نفس الشئ ولكن خطا في التحميل

=============

اواذا تكرمت علينا بشرح دالة mid وكذلك دالة text التي في مرفق الاستاذ ابو تامر

بانتظار الشرح

السلام عليكم

بالنسبة لدالة 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")

Set MyRng = Range("e10:J1000")

مع الشكر

ابو خالد

السلام عليكم

فضلا انظر للمرفق

مع الشكر

ابو خالد

TESTS.zip

السلام عليكم

نعم الكود مبرمج مع الخليةE7 بحيث لو كانت اي خلية بالمدى من E8 الى E1000 يقوم بوضع الدائرة

===========

الرد اعلاه هو جواب استفسارك ادناه

وايضا بقى لى سؤال المشاركة الاولى هل يعمل الكود مع دالة ام لا واين مكانها

==============

سؤلا اخران ماذا تعنى ب (1, -2) و Cells(7, 5)

الجزء الاول تحديد العمود الثاني وهو رقم الجلوس ليتم المقارنة عليه اذا كان صفر لايرسم دائرة حمراء

الجزء الثاني هو العمود الخامس الخلية رقم7 يعني زي ماتكتب E7

ان شاء الله وضحت الصورة

مع الشكر

ابو خالد

تمام اخى نزار ولاكن لماذا لم يقم بارجاع كل القيم ويوجد n/a كل ما اريدة اخى الكريم نزار بدل من عملها مانيوال ايجاد حل لاخذ number من صفحة sheet 2 ووضعها فى صفحة jan05 امام كل Ledgeraccount

=======

السلام عليكم

اخي احمد

لو ذهبت في مثالك للسطر الرابع من صفحة Jan05 لوجدت ان هذا الرقم غير موجود بصفحة2 وبالتالي النتيجة N/A#

======

تمام اخى نزار ولاكن لماذا لم يقم بارجاع كل القيم ويوجد n/a كل ما اريدة اخى الكريم نزار بدل من عملها مانيوال ايجاد حل لاخذ number من صفحة sheet 2 ووضعها فى صفحة jan05 امام كل Ledgeraccount بحيت اذا ذهبت الى شيت 2 يكون كل رقم فى number and ledger account يكون موجود فى الصفح JAN05 واذا كانت هذة الدالة لن تنفع فى الحل فما هو الممكن استخدامة

وهل يمكن استخدام SUMPRODUCT

اخي احمد ممكن تحدد ماتريده لكي نتمكن من المساعدة فالدالة تعمل بشكل جيد اما دالة SumProduct فمختلفة تماما عن طلبك

مع الشكر

ابو خالد

السلام عليكم

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

نعم الكود مبرمج مع الخليةE7 بحيث لو كانت اي خلية بالمدى من E8 الى E1000 يقوم بوضع الدائرة

مع الشكر

ابو خالد

السلام عليكم

انظر للمرفق

TESTS.zip

السلام عليكم

اخي صفوت العمالقة هم اخواني الافاضل ( خبور - عادل - ابواسامة)

فضلا انظر للمرفق

مع الشكر

ابو خالد

______test.zip

السلام عليكم

جزاك الله خيرا اخي ابو اسامة واسعدني مرورك وانك بخير وعافية

نورت المنتدى اخي ابو تامر

حمدا لله على سلامتك

اخوك ابو خالد

السلام عليكم

جهد مشكور اخي IMAGINLIFE ممكن تكون بواسطة المعادلة ادناه

=IF(A8="","",MID(B7,1,5)+A7&" - "&MID(B7,8,8)+A8)

والافضل عن طريق الاكواد

فضلا انظر للمرفق

مع الشكر

ابو خالد

__________.zip

__________.zip

السلام عليكم

الاخ الحبيب / نزار ( ابوخالد) ------------- حفظه الله

هنا موضوع للسؤال عنك وانت ما يشغلك السؤال عن اخوانك الاخرين

اي اخلاق عالية تتميز بها اخي الكريم حفظك ربي من كل شر

وسهل لك كل معسر وادخلك الجنة من كل باب.

اخوك

خبور

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

اخوك ابو خالد

مشكور أخى نزار

بارك الله فيك وأثابك خيرا

مع رجاء شرح تفصيلى ممل لكيفية وضع الكود { معلهش } لسه مبتدئ } علما بأن الأوفيس لدى 2007 عربى

السلام عليكم

مرحبابك اخي ابو خالد

الموضوع لايختلف ان كان عربي او انجليزي او افيس 2007 او 2003 فكل ماهنالك ان تقوم بوضع علامة $لتثبيت الخلية المراد العمل عليها كمرجع.

ارجو ان تكون الصورة وضحت ولكي تتضح معاك اكثر حاول اضافة هذه العلامة الى خلية ما وانظر ماذا يحدث فالبتجربة ستسفيد اكثر ومرحبا بك لاي استفسار

مع الشكر

ابو خالد

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

السلام عليكم

ثبت الخلية كما في المعادلة ادناه

=B2/$A$2

مع الشكر

ابو خالد

السلام عليكم

اخواني الافاضل mhareek & سالم جزاكم الله خيرا وبارك الله فيكم

وارجو من الله العلي القدير ان نطمئن على اخواني عادل & خبور

اخوكم ابو خالد