ابومؤنس

اخي العزيز السلام عليكم ورحمة الله وبركاتة هناك طريقة اسهل تستطيع فيها عمل اكواد للقيام باجراءت معينة عند الدخول الي الاكسيل واكواد تقوم بالغاءهذة الاجرات عند الخروج . تعتمد هذة الطريقة علي تسمية الماكرو الذي يقوم باخفاء الاشرطة عند الدخول . فاذا سميت هذا الماكرو Auto_Open وقمت اثناء تسجيل هذا الماكرو باحفاء الاشرطة المطلوبة . فانة بمجرد فتح الملف يقوم هذا الماكرو تلقائيا بعمل وهذا مايدلة علية الاسم . والماكرو الاخر اسمة Auto_Close وهو مخصص للقيام باظهار الاشرطة عند النقر علي زر اغلاق الاكسيل . بالنسبة لشريط (قوائم ورقة العمل) قاعتقد حسب علمي من الصعب اخفائة . ويمكن اخفاء بقية الاشرطة . بالتوفيق .

يعطيك العافية استاذ محمد . انا كنت شغال علي تحويل المعادلة السابقة الي كود بواسطة ماكرو . ولكن تعمل فقط عندما يكون عدد الخانات 13 رقما باعتبارها ارقاما دولية . اتمني للجميع التوفيق ,

اخي العزيز . ان جهاز الكمبيوتر لايحسب سوي التاريخ الميلادي فقط . وهو التاريخ الموجود داخل الكمبيوتر وستلاحظ ان اغلب المعادلات تحسب وترجع القيمة بميلاد فقط وعند حساب التاريخ بالهجري فان الناتج دوما غير صحيح . والدليل علي ذلك جرب كتابة التاريخ التالي 28/02/1425 ثم اضف يوم علي التاريخ السابق فستلاحظ انة يعيد التاريخ التالي 01/03/1425 علي اساس انة شهر فبراير وليس شهر صفر . ستلاحظ ايضا ان عدد الايام في الشهر قد يصل الي 31 يوم وهو موجود فقط في الاشهر الميلادية اما الهجرية فقد تصل الي 30 يوم فقط . وللعلم فان اغلب دوال التاريخ والوقت ايضا لا تعمل سوي علي التواريخ الميلادية . الحل الذي تقدم بة الاخ يحول قيمة الخلية من تاريخ مكتوبة بالهجري الي نص لا يمكن اجري الحسابات عليها .

اعتقد انه يتم ادراجها عن طريق برنامج ادراج الازرار المخصص لذلك .

اخي العزيز جرب الدالة VALUE اتمني لك التوفيق , في انتظار الرد,

السلام عليكم ورحمة الله وبركاتة اليك الكود جرب وانا في انتظار الجواب Range("A2").Select ActiveCell.FormulaR1C1 = "=ورقة1!R[-1]C" Range("A2").Select End Sub وبالله التوفيق ,

السلام عليكم ورحمة الله , كان من المفترض ان يكتب الكود التي اعطيتك بعد السطر الاول ولكن اليك الكود كامل بعد تجربتة . Sub addone() Sheets("ورقة2").Select Range("a1").Value = Range("a1").Value + 1 End Sub هذا الكود يقوم بنقل من اي صفحة الي الصفحة الثانية ومن ثما الخلية a1 ويزيد علي القيمة التي فيها 1 وبالله التوفيق .

اخي الطيار . هل تقصد ان تغير التنسيق يؤدي الي تثبيت التاريخ اما تقصد بعد عملية التثبيت تغير التنسيق .

السلام عليكم ورحمة الله وبركاتة .. اخي الغزيز اسل واسل حتي تتعلم وتستفيد , بالنسبة للمثال السابق المعادلة التي تجب ان تكون في الخلية D7 هي =F3-B7+C7 والمعادلة في الخلية D8 هي =D7-B8+C8 وهناك امر متعارف علية في نظام المحاسبات وهو عدم وجود عمليتين في صف واحد فاذا كان الصف يحتوي علي عملية سحب . فانة يجب ان تكون الخلية المجاورة صفر وحتي لةوضعت فية رقم فان ناتج العملية صحيح ولكن الافضل عدم وجود عمليتين معا في صف واحد . هناك امر اخري . لست ادري لماذا انت مصمم علي استخدام الدالة SUM في الحساب . جربت شخصا المعادلة السابق مع استخدام الدالة SUM ومرة بدونها كانت النتيجة واحدة . ولكن اذا احببت وكانت متفائل جدا بهذة الدالة فلك الحرية في كتابتها مع العلم انها لا تضيف شي . الامر الاخير عزيز واخي الامثلة التي دائما ترفع صور منها الي المنتدي ضخمة جدا . علشان اجرب علي نفس المثال علي ان البس النظارة علشان اطلع عدد الاصفار . واخيرا اريد ان اطلب منك اذا كان لك اي سؤال او استفسار اة تريد الالحاح في اي سؤال فنحن هنا بانتظارك . اخوك ابومؤنس ونتمني لك التوفيق .

السلام عليكم ورحمة اللة , الكود لدخول الصفحة الثانية مثلا Sheets("ورقة2 ").Select بعد ذلك ادخل الامر المطلوب , واذا كان هو الكود السابق فانة يدرج بعد السطر الاول مباشرة وبالله التوفيق .

اخي العزيز .. المعادلة السابقة ليست هي التي وضعتها لك في الملف المرفق . انا وضعت المعادلة التالية =IF(OR(B8>0;C8>0);-B8+C8+D7;" ") ستجد ان هذة المعادلة تاخذ في الحسبان الصف السابق لها وهو هنا D7 جرب وانا معك الي ان تحصل علي النتيجة المطلوبة . وبالله التوفيق .

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة . سنقوم باذن الله تعالي في هذا الجزء بانهاء الجزء الاخير المتعلق باعداد الازرار في الاكسيل الجزء الاول من الدرس الجزء الثاني من الدرس وسيكون موضوع الدرس حول كتابة الماكرو . وايضا اضافة الازرار وعمل التنسيقات عليها . راينا في الجزء الاول كيفية القيام بتسجيل ماكرو . وان الماكرو هنا يقوم بتحول كل خطوة تقوم بها في الخلايا الي اكود مكتوبة . وقد لايوجد شخص مخير بين طريقتين احدهما يعتمد علي اداة تنوب عنة في كتابة كل سطر من اسطر الاكود لبرنامج معين . وبين ان يقوم هو شخصا بكتابة هذة الاكواد بنفسه . الا اذا كان علي سبيل التجربة , الا ويختار الامر الاول . ولكن هنا حالات معينة لابد فيها من الاعتماد علي الذات في كتابة الاكواد طبعا مع تدخل المحرر (محرر الفيجول بيسك ) للاكسيل للاشارة الي وجود خطاء معين . وهي في الغالب الحالات التي لا يمكن للماكرو تسجيلها واعادة ترجمتها الي اكواد مكتوبة كاضافة احداث معينة عند فتح ملف الاكسيل اوعند الخروج او الضغط علي زر لتنفيذ امر او حدث يصعب تسجيلة بواسطة الماكرو . ولعل اشهر كود مكتوب هنا في قسم الاكسيل هو الكود الخاص يتفقيط وهو كود يقوم بقراءة الارقام ومن ثما يقوم بكتابتها حروفا . هذا الكود لا يمكن الحصول علية عن طريق تسجيل ماكرو , بل تم كتابتة حرفيا . او الكود المخصص للخروج من الاكسيل , هذا ايضا تمت كتابة حرفيا في صفحة محرر الفيجوال بيسك . من الضرور علي اي شخص يريد كتابة برنامج اما بواسطة الماكرو او الفيجول بيسك معرفة اساسيات القواعد المتبعة في الكتابة , لان وجود خطاء بسيط مثل نقطة او فاصلة او زيادة حرف او نقصانة يؤثر علي هذا البرنامج . ولقد وجدت في ثنايا هذا المنتدي مجموعة من الدروس للاستاذ محمد طاهر حول الفيجوال بيسك في الاكسيل وايضا شرح لكيفية ادراج مجموعة من الدوال المهمة . و ارفق معها مجموعة من البرامج كامثلة وتطبيقات علي تلك الدروس . http://www.officena.net/ib/index.php?showtopic=206 2- اضافة الازرار بعد ان قمنا بتسجيل الماكرو واضافة او تعديل بعض الاوامر او اعداد وكتابة امر بواسطة المحرر . نريد وضع زر فوق شاشة الاكسيل عند النقر فوقه يتم تنفيذ الاوامر او الماكرو السابق اعداده . ومن ثما اضافة بعض التنسيقات لذلك الزر . وهذة خطوات اضافة الازرار الي الاكسيل . 1- اذا لم يكن شريط ( النماذج) موجود ضمن اشرطة الادوات , فيجب اضافة . اذهب الي شريط (الادوات) ثم اختار(تخصيص) تحصل علي قائمة باسماء (اشرطة الادوات) اختار منها (نماذج) انقر فوق الزراغلاق لغلق مربع تخصيص 2- ضمن شريط (نماذج) ستجد مربع صغير اذا وضعت الموس فوق يعطيك الاسم (زر) انقر فوقة , 3- تلاحظ بعدها شكل مؤشر الموس قد تغير الي الشكل التالي (+) كدليل علي رسم المربع المخصص للزر . حرك المؤشر الي المكان المراد تصميم الزر فية . 4- في المكان الذي خصص لوضع الزر فية . انقر فوق الزر الايسر للموس ولا تقوم بتحرير ذلك الزر الايسر حتي يتم رسم مربع الزر , بمعني اذا نقرت فوق الزر الايسر للموس لا ترفع اصبعك عنة حتي يتم رسم مربع . 5- عند تثبيت الزر الايسر للموس حرك الموس في اي اتجاة ستلاحظ انة تم تثبيت احد اركان المربع وترك الاركان الثلاثة الباقية حرة دون تثبيت لرسم حدود المربع . بمجرد تحرير الزر الايسر للموس المثبت سابقا . ستجد انك حصلت علي زر وقد تم وضعة لة اسما افتراضيا هو (زر1) هذا طبعا اذا كان هو الزر الاول في هذا الملف . وتتم عملية التسمية افتراضية حسب تسلسل الازرار اي زر2 - زر3 - زر4 وهاكذا . 6- بمجرد الانتهاء من عملية الرسم تظهر لك قائمة (تعين ماكرو) وستجد فيها جميع الماكروات التي تم تسجليها من قبل . وهذا لربط الماكرو السابق بهذا الزر . 7- انقر فوق الماكرو المراد ربطة مع الزر . ثم انقر (موافق) . 8- الان قم بتجربة الزر وانقر فوقة . ولاحظ انة سينفذ الماكرو المرتبط بة . 9- بعد ان تمت عملية الارتباط بين الماكرو والزر يمكنك اعادة رسم حدود الزر او تغير اسمة او نقلة الي موقع اخر . 3- تنسيق الازرار ضع مؤشر الموس بقرب من الزر ستلاحظ تغير شكلة الي يد عند النقربواسطة الزر الايسر للموس سيتم تنفيذ الامر المحدد لذلك الزر , وعند النقر بواسطة الزر الايمن ستفتح قائمه مختصر لذلك الزر اذهب الي (تنسيق عنصر التحكم.....) ستحصل علي قائمة تنسيق ذلك الزر من (خط - محاذة - حجم - حماية - خصائص - هوامش - ويب) . او يمكن تحديد الزر المراد تغير تنسيقة بواسطة الموس ثم الذهاب مباشرة الي شريط الادوات واختيار (تنسيق) سيتم اسبدال (تنسيق الخلايا) ب (تنسيق عنصر التحكم) . هناك امر يجب معرفة وهو عدم القدرة علي تغير لون الزر اذا يظهر باللوان الافتراضي . ولكن هناك مجموعة من البرامج لاضافة مجموعة كبيرة من الاشكال واللوان علي الازرار , وهذا رابط لها . http://www.officena.net/ib/index.php?showtopic=2271 لتغير الاسم الموجود فوق الزر من خلال القائمة المتخصرة تجد (تحرير نص) انقر فوقها تلاحظ تغير الشكل المحيط بهذا الزر ووضع علامة الادراج عند كلمة زر1 . حدد الكلمة السابقة وغيرها الي الاسم الذي يناسب ذلك الزر . لتغير شكل الزر اما لزيادة او نقصان الطول او العرض دون الدخول الي قائمة التنسيق حدد الزر المعين وعند تفتح القائمة المختصر انقر فوق الزر (Esc) لغلق القائمة المختصرة ستلاحظ ان شريط قد احيط بذلك الزر وفي كل ركن مربعات صغيرة عند وصول مؤشر الموس الي تلك المربعات يتغير الي شكلين هما : اما خط بسهمين متعاكسين وهذا في حالة تحريك جانب او زاوية محدد دون بقية الجوانب او بقية الزوايا . او علامة + باربعة اسهم في الاتجاهات الاربعة وهذة لتحريك كامل الزر وتغير موقعة . انقر فوق الزر (Esc) للخروج من تحديد الزر او انقر فوق اي خلية خارج الزر للخروج ايضا . هناك حالتين عند وضع مؤشر الموس فوق الزر . الاولي تغير المؤشر الي شكل اليد وهذا دليل علي تعين وربط هذا الزر بماكرو او برنامج معين . والثاني هو علامة + وهذا يعين ان الزر لم يتم ربطة بماكرو او برنامج . بهذا نكون قد عرفنا كل ما يتعلق باعداد الازرار في الاكسيل . اتمني للجميع التوفيق والنجاح .

السلام عليكم ورحمة الله وبركاتة . وكلنا هنا للمساعدة . اسمع اخي العزيز . الاكود هنا في الاكسيل تكتب في صفحة الفيجوال بيسك للاكسيل . وهي الغالب تسمي (ماكرو) . ويمكن الوصول اليها عن طريق شريط الادوات اختار(الادوات) ثم اختار (ماكرو) تفتح لك قائمة بها (ماكرو) لتسجيل ماكرو او الذهاب مباشرة الي (محررVisual Basic) . وبالله التوفيق .

لا مشكلة لدي اخي العزيز سوف اضل معك . ولكن اريد معرفة هل الملف الذي حملت فية المطلوب . والحسابات هي تلقائيا . اذا كانت ساقوم بعمل الحسابات داخل الكمبيوتر يدويا ذا ماهي فائدة البرامج والكمبيوتر. حول تجرب بعض الحسابات . واذا كان هو المطلوب اعطي النتيجة . وبالله التوفيق

السلام عليكم ورحمة الله . الاخ السائل اود شكرك علي طول بالك وسعة صدرك لان سؤالك غير واضح من البداية . اليك الان ملف اعتقد ان فية الجواب المطلوب . اطلع علية وانا في انتظار النتيجة . ونحن معك علي طول الخط الي الان تحصل علي ما تريد .. وبالله التوفيق , AbuMunis.zip

السلام عليكم ورحمة الله . اشكرك اخي البدر علي الشرح . واليك الجواب : في نفس الخلية التي فيها الدالة sum اذهب الي (تنسيق) ثم (خلايا) ثم اختار(رقم) واذهب الي (مخصص) وضمن القائمة (النوع) اختار التنسيق التالي : [h]:mm:ss او من الفئة (الوقت) اختار التنسيق التالي : 37:30:55 وكلاهما لنفس التنيجة . ارجو ان يكون هذا هو المطلوب وبالله التوفيق .

اخي العزيز اهلا ومرحبا بك عضو جديد في هذا المنتدي , وشكرا لك علي هذة الكلمات الجميلة . بالنسبة للسؤال اود الحصول علي معلومات توضيحية . ماهي المعادلة الموجودة في الخلية التي تحسب الاوقات . حتي يتم التعديل عليها . ويبدو لي انها معادلة تحسب الاوقات العادية كساعات ودقائق . لذلك فهي عندما تصل الي 24 تبدا الحساب من جديد . اعذرني علي عدم فهم السؤال بسرعة . ونحن كلنا هنا للمساعدة وسنعمل حتي افهم السؤال ونقدم لك الجواب , وبالله التوفيق ,

السلام عليكم ورحمة الله . هناك درس حول العناوين المطلقة والنسبية ارجو ان تجد فيها الفائدة , http://www.officena.net/ib/index.php?showtopic=1881 وبالله التوفيق .

بعد اذن الاستاذ/ محمد طاهر . الاشارة السابقة تعني 1- استخدام وسيط غير مقبول للدالة . او ادخال صيغة سنتج عنها رقم كبير جدا لا يستوعبة الاكسيل . لذا ارجو من الاخ احمد ماجد التاكد من صحة المعادلة المستخدمة ومن الوسائط التابعة لها . عموما اليك شرح للطريقتين : لاخفاء اي اشارة خطاء في نتيجة دالة معينة. الطريقة الاولي بواسطة الدالة if لنفرض ان لدي معادلة في الخلية C1 وهي الخلية الواجهة عند المستخدم او الطباعة . اتبع الخطوات التالية : 1- نقل هذة الخلية الي خلية اخري بحيث لا تكون خلية واجهة . بحيث تكون هذة الخلية مخصص لحساب المعادلة السابقة فقط . ولتكن الخلية AA1 مثلا . 2-ارجع الي الخلية C1 وضع فيها المعادلة التالية =IF(ISNUMBER(AA1);AA1;" ") تقوم هذة الدالة بفحص الخلية الوسيطة AA1 فاذا كانت محتوياتها ارقام نقلت هذة الارقام واذا كانت غير ذلك جعلت قيمة الخلية فارغة . الطريقة الثانية : بواسطة التنسيق الشريطي اجعل التركيز عند الخلية C1 ثم اذهب الي (تنسيق) واختار ( تنسيق شريطي ) يفتح لك مربع التنسيق في (قيمة الخلية ) اختار ( اكبرمن ) (0) وعند التنسيق اجعل التنسيق هو اللون التلقائي ( الاسود) بعدها اغلق هذا المربع وافتح (تنسيق الخلايا ) لنفس الخلية واجعل تنسيقها هو اللون الابيض او لون الخلية المستخدمة . في هذة الحالة يقوم التنسيق العادي بجعل نتيجة الخلية غير واضح لان لون الخط هو نفس لون الخلفية . ولكن اذا كان المكتوب في الخلية هو اكبر من صفر فان التنسيق الشريط سيجعلة مكتوب باللوان الاسود . ارجو اني وفقت في الشرح . وانا في انتظار النتيجة . ومستعد لتقديم المساعدة .

العنوان مثير جدا . اليس كذلك . هل تعلمون اخوتي . قراءة في جريدة اخبار اليوم ان بيل جيميس صاحب ومؤسس شركة ميكروسوفت العملاقة . يتربع حالا في المرتبة الاولي من حيث ترتيب اغنياء العالم . وذلك بثروة مقدارها اكثر من 40 مليار دولار امريكي . والسبب هو الويندوز والاوفيس .

اخي العزيز . يجب عليك اولا اخفاء العبارة من البرنامج لتضمن عدم ظهورها في الطباعة . تستطيع ذلك عن طريق التنسيق التلقائي او ادخال الدالة if قبل الدالة التي تعمل علي نفس الخلية . بحيث اذا كانت النتيجة رقم او اسم يظهر واذا كانت غير ذلك لا يظهر شي . استخدم العبارة التالية ( " " ) فهي تعيد النتيجة فارغة في حالة عدم وجود رقم او اسم . وبالله التوفيق .

الاخ العزيز ابو عمر هذا ماقصدت ان تقوم انت بتجربة العملية خصوصا انك حصلت علي الخطوات الاولي الصحيحة من خلال الرسالتين السابقتين . كان بكل سهول ان اجيب علي سؤلك ولكني اردت ان تتعرف علي الحل لوحدك .لان التعليم الذاتي لة دور مهم في اكتساب الخبرة . هل نجحت معك الرسالة ؟ انا في انتظار الرد ,

السلام عليكم ,, يعطيك العافية اخي حسام ..علي هذة الهدية العظيمة ..ان كل جوهرة تهديها الي المنتدي هي في الحقيقة جوهرتان , الاولي هديمة قيمة نعتز بها , والثانية درس نتعلم منه . والدليل العديد من الاسئلة التي تنهل بعد كل هدية تضعها هنا .. تسلم يمينك اخي ابو نور ,, ويعطيك العافية . وارجو الا تحرمنا من جواهرك .

السلام عليكم ,, اخي العزيز ابوعمر يفترض بك ان تكون الان خبيرا في الاكسيل ورسائل التنبية ,, كما هي العادة . عن طريق (التحقيق من صحة البيانات ) واختار من القائمة مايناسبك اي قيمة - عدد صحيح - عدد عشري - تاريخ - وقت -... حاول وانا تحت امرك اذا لم تتمكن , اتمني لك التوفيق والنجاح ..

الاخ العزيز ابوعمر استخدم الدالة sumif لتحصل علي عدد تكرار اسم معين داخل نطاق من الخلايا .