معتصم محمد

بالنسبة للذين لا يعرفون كيفية إستخدام الكود السابق يمكنهم إتباع الخطوات التالية فى ملف عمل مفتوح إضغط على Alt+F11 بذلك ستكون فى نافذة الVisual Basic Editor من القائمة Insert نختار Module وبذلك نكون أدرجنا Module جديد نقوم بنسخ الكود السابق ثم نقوم بلصقه فى ال Module نعود للإكسل مرة أخرى من خلال الضغط على Alt+F11 قم بإضافة عدة صفحات جديدة فى إحدى الخلايا الخالية نكتب الدالة التالية =countsheets() اتمنى أن يكون الشرح واضح

بسم الله الرحمن الرحيم الإخوة الأعزاء فى هذا المنتدى هذه الدالة تقوم بحساب عدد أوراق العمل Worksheets فى ملف العمل workbook Function CountSheets() CountSheets = ActiveWorkbook.Sheets.Count End Function هذه هى الدالة الأولى التى اقوم بكتابتها منتظر ارائكم

اخى العزيز سؤال : على اى اساس يتم كتابة القيمة 1 فى خلايا العمود d؟ كما عليك ان تلاحظ ما ذكره الأستاذ / محمد انه حين تقوم بكتابة بيانات فى خلايا العمود d بعد أن ادخلت بها معادلة فأنت بذلك تحذف المعادلة ليحل محلها قيمة ثابتة

استاذ / عامر شكراً على هذا الموضوع أحب فقط أن أشير الى موضوع قمت باعداده من فترة يشرح نفس الموضوع حين يتم المزج بين الدالة If والدوال Count و And و Or شرح الدوال And و Or فى الإكسل أخى العزيز يمكنك مراجعة الموضوع التالى شرح دالة SUMIFS | إكسل 2007

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

إستخدم المعادلة التالية فى الخلية D3 على أن تكون الخلية D2 تشتمل على القيمة 0 =if(c2=0,"",max($D$2:d2)+1) شاهد الملف المرفق بالتوفيق بإذن الله Book11.rar

الأخت / مايسة » يمكنك رفع الملف على أحد مواقع الرفع مثل MIHD.NET

بسم الله الرحمن الرحيم الأخ العزيز بالنسبة لمشكلة ملفك المرفق فهى أن الأرقام سوف يعالجها الإكسل على أنها نصوص ولحل هذه المشكلة هناك أكثر من طريقة أبسط هذه الطرق كالتالى : 1 » فى أى خلية فارغة قم بكتابة الرقم 1 2 » قم بعمل نسخ Copy لهذه الخلية 3 » حدد النطاق الذى تريد معالجته (النطاق الذى به الأرقام وعليها مثلث أخضر) 4 » Right click وإختر Paste Speacial 5 » من مربع الحوار الذى سيظهر لك أختر الإختيار Multiply 6 » إضغط Ok ألف مبروك بالتوفيق بإذن الله

بسم الله الرحمن الرحيم الأخ العزيز راجع الملف المرفق التعديلات كالتالى 1 » إضافة قيمة الخصم 7% فى خلية 2 » إضافة عمود جديد به السعر بعد الخصم 3 » اضافة عمود جديد آخر به الإجمالى بعد الخصم يمكنك أن تقوم بإخفاء العمود الذى تريده من خلال right click على رأس العمود و إختيار Hide بالتوفيق بإذن الله تعديل فاتورة.rar

بسم الله الرحمن الرحيم الأخ العزيز فى الخلية التى تريد أن تضع بها المجموع مقرب لأقرب رقم صحيح إستخدم المعادلة التالية =round(sum(range),0) حيث أن Range هو النطاق الذى تريد حساب مجموعه و 0 تجعل الدالة Round تقوم بالتقريب لأقرب رقم صحيح بالنسبة للملف اخاص بك إستخدم المعادلة التالية =ROUND(SUM(A2:D2)/2*0.6;0) بالتوفيق إن شاء الله

بالنسبة للواجب السؤال الأول : مساحة الدائرة = ط * نق² Function CircArea(nq) Const t = 3.14159265358979 'or 22/7 CircArea = nq * nq * t End Function حيث nq هى نصف قطر الدائرة و تم تثبيت قيمة "ط" بالقيمة 3.14159265358979 من خلال الثابت t لم أعرف كيف أقوم بعمل التربيع مباشرة دون ضرب القيمة فى نفسها السؤال الثانى : تم تسمية النطاق A1:E10 فى ورقة العمل Sheet1 بالإسم Report تم تحديد النطاق المسمى بـ Report الخلية B1 هى الخلية النشطة أو الخلية المظللة تم إدخال النص Khalil فى الخلية E10 سيتم ظهور مربع حوار يشتمل على القيمة المدخلة فى الخلية E10 والتى تم ربطها بالمتغير X أتمنى أن تكون إجابتى صحيحة هذه أول مرة أقوم بكتابة دالة بنفسى

جزاك الله خيراً على هذا المجهود لى طلب بسيط ما هى الخطوط المستخمة فى الملف؟ لاننى لا يوجد لدى الخطوط المستخدمه لذلك يظهر لدى الملف بشكل غير صحيح

شكراً لجميع الإخوة الأعزاء على مرورهم الكريم وبالتوفيق للجميع بإذن الله

أستاذ / أبو تامر أعتذر عن هذا الخطأ غير المقصود، وهذا هو التوضيح الخاص بإضافة الـ Analysis ToolPack إكسل 2003 لإستخدام هذه الدالة Randbetween فى نسخة 2003 لابد من القيام بالأتى لكى تُفعل الدالة : 1 » نذهب إلى Tools » Add-Ins 2 » نُحدد Analysis ToolPack 3 » الأن الدالة Randbetween جاهزة للعمل … ألف مبروك !

سالم شباني : ما قمت به هو فكرة لدمج الدوال ببعضها البعض من أجل إتمام عملية بسيطة يوسف عطا : للأسف هذه الطريقة كما ذكرت فى الموضوع أنها يعيبها إمكانية تكرار البند أكثر من مرة لكن هناك دالة تقوم بتوليد الأرقام عشوائياً دون تكرار (الدالة عبارة عن إضافة ضمن 63 دالة أخرى) m_127899 للأسف لا أعتقد إمكانية تطبيق الطريقة المذكروة هنا على مثالك لأنه سينشا تكرار فى الأسماء الملف مرفق Select_winner.rar

بسم الله الرحمن الرحيم اليوم سنتعلم معاً طريقة إختيار الفائز فى أحدى المسابقات بشكل عشوائى، وذلك من خلال إستخدام الدوال Randbetween و الدالة Vlookup و الدالة IF النتيجة النهائية مثال : لدينا 11 متسابق مرشحين للفوز بالجائزة كالتالى المطلوب : أختيار أحد المتسابقين بشكل عشوائى للفوز بالجائزة من أجل تحديد الفائز بشكل عشوائى سنقوم بإستخدام المعادلة التالية فى الخلية المراد إظهار إسم الفائز بها ملاحظات على المعادلة السابقة 1 » الجزء المكتوب باللون الأحمر هو المسئول عن توليد الأرقام بشكل عشوائى وذلك بين الرقمين 1 و 11، ويمثل قيمة البحث فى الدالة Vlookup 2 » الجزء المكتوب باللون الأخضر يشير إلى منطقة البحث والتى يوجد بها القيمة المراد إستخراجها 3 » الجزء المكتوب باللون البنفسجى يشير لرقم العمود فى منطقة البحث 4 » الجزء المكتوب باللون البرتقالى يبين للدالة Vlookup أننا نريد مطابقة لقيمة البحث الأن إذا أردت من أن الدالة تعمل بشكل صحيح نضغط على الزر F9 ستجد أن النتيجة تتغير مع كل ضغطة، وذلك لأننا بالضغط على الزر F9 فإننا نقوم بعمل Recalculate Workbook وهو ما يؤدى إلى قيام الدالة Randbetween بتوليد جديد فى حالة أننا نريد أن نضبط الدالة السابقة فى حالة تحقق شرط معين وهو إختيار Start وتتوقف الدالة عند إختيار Stop فإننا سنقوم بإستخدام الدالة IF كالتالى فى المعادلة السابقة نجد الأتى : 1 » الجزء المكتوب باللون الأخضر هو الشرط الخاص بالدالة IF والذى به سنعرف هل الخلية E2 بها Start 2 » الجزء المكتوب باللون الأزرق هى الدالة السابق كتابتها وهى تمثصل النتيجة التى ستظهرها الدالة If فى حالة تحقق الشرط 3 » علامتى التنصيص باللون الأحمر تعنى أن تكون الخلية فارغة فى حالة عدم تحقق الشرط ملحوظة عامة : يعيب هذه الطريقة أننا إذا أردنا إظهار أكثر من فائز فقد يتكرر نفس الشخص أكثر من مرة شرح الدوال المستخدمة فى الموضوع 1 » الدالة Randbetween 2 » الدالة Vlookup 3 » الدالة IF لا تنسونا من خالص دعائكم | إدعوا لى بالتوفيق فى الإمتحانات والسلام عليكم ورحمة الله وبركاته المصدر : مدونة المعتصم بالله http://alm3tasem.wordpress.com/2009/07/04/...names-in-excel/

لإظهار العمود المخفى نستخدم الإختصار Ctrl + Shift + 0 لإظهار الصف المخفى نستخدم الإختصار Ctrl + Shift + 9 لكى تعمل هذه الطريقة لابد أن تكون محدد خلية من العمود المخفى ويمكنك القيام بذلك من خلال الـ Name Box الذى يوجد بجانب شريط المعادلة وبه تكتب مرجع أى خلية فى العمود أو الصف الذى تريد إظهاره ثم إنتر و نستخدم الإختصارات السابقة طريقة أخرى : بفرض أن العمود B هو العمود المخفى نقوم بتحديد العمود A و C ثم Right Click ونختار Unhide هذه هى الطرق التى أعرفها قد تكون هناك طرق أخرى

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

هذا مثال لما أريد القيام به العمود C به معادلة دمج النصوص ConCatenate أو علامة الدمج & وفى العمود D نجد المعادلة المكتوبة.

بسم الله الرحمن الرحيم الأخوة الاعزاء السلام عليكم ورحمة الله وبركاته أبحث عن طريقة تُمكننى من نسخ المعادلة من خلية إلى خلية أخرى مثال : الخلية A1 تشتمل على المعادلة التالية =vlookup(b1,table,3,0) أريد أن أقوم بنسخ المعادلة السابقة للخلية C1 مثلاً لتظهر المعادلة فتكون كالتالى '=vlookup(b1,table,3,0) أو هناك مسافة قبل علامة = =vlookup(b1,table,3,0) حاولت الحصول على كود من خلال تسجيل الماكرو لكن لم أستطع الوصول لكود صحيح أتمنى أن أجد المساعدة وجزاكم الله خيراً

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

بسم الله الرحمن الرحيم أخى العزيز / أحمد حافظ » المعادلة Vlookup تتكون من أربع متغيرات look up value » و تشير للقيمة ( نص / رقم ) التى تبحث عنها table array » هو الجدول الذى ستبحث فيه column index number » هو العمود المستهدف ومنه يتم إستخراج النتيجة rang look up » هو إسلوب البحث ويجد لديك إسلوبين الأول : False و يقوم بالبحث عن قيمة محددة إذا لم يجدها تظهر لك نتيجة خطأ Error الثانى : True يقوم بالبحث بإسلوب تقريبى و إذا أخترتها فى المعادلة لابد أن تكون البيانات فى العمود الأول مرتبه ترتيب تصاعدى الخطأ فى المعادلة كالتالى » أنت أدخلت المتغير الرابع على أنه False أى أنك تقول للإكسل إبحث لى عن نتيجة مطابقة تماماً لما هو فى المتغير الأول لكن الإكسل لا يجد ما تبحث عنه فى العمود الأول حل المشكلة الأول : تغيير ال False إلى True وبذلك سيقوم بالبحث فإن لم يجدها سوف يضع القيمة المقابلة لأخر صف لديك فى الجدول الثانى : تعديل الجدول لديك فى Sheet 1 بحيث تُضيف القيمة 10 فى الخلية A8 و ما يقابلها فى الخلية B8 ولاتنس تعديل المعادلة بعد ذلك أتمنى أن أكون ساهمت فى توضيح سبب الخطأ ولم أعقد الموضوع لك بالتوفيق بإذن الله Book1.rar

مشكلة عويصة فعلاً طريقة خطرت ببالى وتحتاج إلى النظر فى إمكانية إستخدامها الخلية A1 بها القيمة 123456789112345 الخلية B1 بها القيمة 123456 الخلية C1 بها المعادلة =(A1&B1)/19 المشكلة ستكون فى الخلية C1 لأنها لن تقبل أكثر من 15 رقم وستظهر لنا المشكلة لحل هذه المشكلة نقوم بإستخدام معادلة تقوم بقسمة محتويات الخلية إلى خليتين بعد 15 رقم فتكون الخلية D1 بها أول 15 رقم والخلية E1 بها بقية الأرقام هذه الطريقة كما قلت فكرة خطرت على بالى وتحتاج إلى تطوير لإمكانية الإستخدام متابع بإذن الله

يُمكنك مطالعة الموضوعات التالية » الفرق بين الخلية المرجعية والخلية المطلقة (1-2) » الفرق بين الخلية المرجعية والخلية المطلقة (2-2) أتمنى أن تُفيدك الموضوعات بإذن الله

قُم بتجربة الكود التالى سيقوم بإدراج التاريخ تلقائياً فى الخلية A1 عند فتح الملف الذى يحتوى على هذا الكود Sub Auto_Open() Today_Is End Sub Sub Today_Is() ' ' Macro1 Macro ' Macro recorded 3/19/2009 by Moatasem ' Range("A1").Select Selection.FormulaR1C1 = "=TODAY()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub الكود تم إعداده بواسطة مُسجل الماكرو الملف المرفق يوجد به الكود جاهز ملحوظة : يُمكنك إدراج تاريخ اليوم مباشرة كقيمة ثابته وليست متغيرة بواسطة الضغط على Ctrl + ; يُمكنك الإطلاع على هذا الموضوع : أربعة طرق لإدراج التاريخ فى الإكسل Insert_Date.rar