al_faroooq قام بنشر فبراير 16, 2007 مشاركة قام بنشر فبراير 16, 2007 لدي بعض الإسفسار وهو كيفية جعل الخلية تكون بلون معين بحيث تكون على النحو التالي من نسبة 91إلى 100 ممتاز يكون باللون الأخضر مثلاً من نسبة 81 إلى 90 جيدجدا اللون الأزرق مثلاً من نسبة 71 إلى 80 جيد اللون الأصفر مثلاً من نسبة 61 إلى 70 مقبول البرتقالي مثلاً من نسبة 51 إلى 60 ضعيف الأحمر مثلاً وليكن ذلك في نفس الخلية الواحدة ويتم تطبيقها على الباقي (((( والذي أرغب أن يكون بلون هو لون خلية التقدير )))) أثابكم الله جميعاً حيث أنني وجدت التنسيق الشرطي 3 شروط فقط وهذا لايكفي المطلوب . أنا محتاج ذلك عاجلاً أثابكم الله جميعاً _______.rar رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر فبراير 16, 2007 مشاركة قام بنشر فبراير 16, 2007 اضف الكود التالي الى الصفحة وستعمل ان شاء الله Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Value Case "جيد" Target.Interior.ColorIndex = 6 Case "ضعيف جدا" Target.Interior.ColorIndex = 9 Case "ضعيف" Target.Interior.ColorIndex = 3 Case "مقبول" Target.Interior.ColorIndex = 7 Case "جيد جدا" Target.Interior.ColorIndex = 5 Case "ممتاز" Target.Interior.ColorIndex = 4 Case Else Target.Interior.ColorIndex = 0 End Select End Sub رابط هذا التعليق شارك More sharing options...
al_faroooq قام بنشر فبراير 16, 2007 الكاتب مشاركة قام بنشر فبراير 16, 2007 أخي العزيز أبو الحمز أشكرك بعد شكر الله لكني فعلت مثل ماقلت لي وحاولت بأكثر من طريقة ولكن دون جدوى وقد أرفقت لك الملف لترى هل وضعته بالطريقة الصحيحة أم لا _______.rar رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر فبراير 16, 2007 مشاركة قام بنشر فبراير 16, 2007 السلام عليكم و رحمة الله و بركاته الأخ / al_faroooq تحية طيبة و بعد قمت بتحميل الملف المرفق ففى بداية الأمر لم أجد ما ترجوه و لكنى بعد محاولات قمت بالوقوف على الأمر من الدالة الشرطية IF و أعدت كتابة التقدير كما فى الكود بدون تشكيل و لكن ما سيتغير لونه هو لو الخليه بالكامل و ليس لون الخط الذى بالخليه و للأسف لولا اننى لازلت فى بداية تعلم الفيجوال بيسك لكنت حاولت فى المساعده بالأكواد تحياتى _______.zip رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر فبراير 16, 2007 مشاركة قام بنشر فبراير 16, 2007 السلام عليكم والله يا اخي الكريم انا مثلكم ما زلت مبتدأ وما نقلته لك ينجح فقط في حالة لو طبعت انت كلمة : ممتاز تتلون باللون الاخضر ولو كتبت كلمة جيد تتلون باللون الاصفر وهكذا ولكن لم ينجح الكود مع المعادلة ، ما زلت ابحث عن الحل مثلك ، ان وجدته سأضيفه لك ان شاء الله رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر فبراير 16, 2007 مشاركة قام بنشر فبراير 16, 2007 السلام عليكم و رحمة الله وبركاته أخى / أبو حمزه انى اعنى فى ردى السابق ان الكود يعمل بالفعل لكن كل ما قمت به هو إعادة كتابه التقدير بالشكل الذى بالكود اى بدون تشكيل و ارفقت لك الناتج و لكن ما حدث انه تم تلوين الخلية بالكامل و ليس الخط كما ترغب تحياتى رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر فبراير 16, 2007 مشاركة قام بنشر فبراير 16, 2007 اخي محمد عسكر كلامك صحيح الكود يعمل للمرة الاولى ولكن لو لاحظت انك لو غير القيمة فإن اللون يبقى كما هو لا يتغير . بالنسبة لملاحظتك: سبب تغير لون الخلفية لاننا اخترنا الخلية اما ان اردنا اختيار لون الخط فما علينا الا ان نضيف العبارة: Target.Font.ColorIndex = 10 وبذلك نختار لون الخط بدلا من لون الخلية او ابقاء الخياران معا ارجو من اهل الخبرة ان يساعدونا رابط هذا التعليق شارك More sharing options...
شرجاوي سلام قام بنشر فبراير 17, 2007 مشاركة قام بنشر فبراير 17, 2007 (معدل) انا عندي ملف ، بس مب صنع ايدي أبي أعرف كيف سواه الشخص برفقه لكم ، ومنكم نستفيد ونتعاون ع الخير وإذا عرفتوا الكود ، ممكن اتحطونه في الموضوع 1.zip تم تعديل فبراير 17, 2007 بواسطه شرجاوي سلام رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر فبراير 17, 2007 مشاركة قام بنشر فبراير 17, 2007 بارك الله فيك اخي شرجاوي سلام الملف المرفق لا يوجد فيه كود رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر فبراير 17, 2007 مشاركة قام بنشر فبراير 17, 2007 اخواني جميعا مرفق لكم الملف وان شاء الله يحوز على اعجابكم ________2.zip رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر فبراير 17, 2007 مشاركة قام بنشر فبراير 17, 2007 السلام عليكم و رحمة الله وبركاته الأخ nse جزاك الله خيرا و أكرمك من فضله لكن مش ده اللى كان طلبه الأخ/al_faroooq لانك عملت الكود على اساس ان كل خليه على حده يعنى ثابته بلون معين و لكن بتغير التقدير الا انه على ما اعتقد انه كان يطلب ان يتغير لون الخط حسب التقدير يعنى ممكن يكون كذا خليه بنفس اللون اذا كانوا بنفس التقدير و جزاك الله خيرا تحياتى ----------------- اشهد أن لا إله الا الله - و أشهد ان محمد رسول الله رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر فبراير 17, 2007 مشاركة قام بنشر فبراير 17, 2007 بارك الله فيك اخي الكريم هل هناك من طريقة اخرى لاختصار الكود ، المسألة طويلة جدا وتحتاج ان تطبق هذا الكود على كل خلية في الصفحة ، يعني مسألة اعقد من عملها باليد رابط هذا التعليق شارك More sharing options...
bahraini قام بنشر فبراير 18, 2007 مشاركة قام بنشر فبراير 18, 2007 السلام عليكم ورحمة الله وبركاته الأخ البسيسي بالنسبة لطلبك سأقوم بأرساله إليك عبر البريد الالكتروني. كذلك لاننسى الأخوان الكرام هذا المنتدى الرائع، تجدون مرفق ملف اكسل وصورة توضيحية. والسؤال كان ============================== = كيف اجعل خانة معينه من خانات اكسل ولتكن A5 = = تعطيني لون احمر اذا دخل فيها رقم اقل من 3 = = وتعطيني لون اصفر اذا دخل فيها رقم مابين 3-6 = = وتعطيني لون اخضر اذا كان فوق 6 = ============================== أرجو أن ينا استحسانكم. cond.rar رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر فبراير 18, 2007 مشاركة قام بنشر فبراير 18, 2007 اخي الفاروق اخيرا وجدت لك الحل وبامكانك مراجعة الرابط http://www.officena.net/ib/index.php?showtopic=15816 رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر فبراير 19, 2007 مشاركة قام بنشر فبراير 19, 2007 اخواني جميعا اسف لتاخري بالرد ولكن عندما اجبتكم في الرسالة السابقة طبقت المطلوب على الجدول المرفق فقط ولم اطبقه على كامل العمود A واستغرب من رد الاخ محمد عسكر على انه لم يكن المطلوب مع اعتقادي بانه لم يقم بتجربة الملف حيث ان الملف يعمل بشكل صحيح 100% حيث انه يعمل مع المدخلات في الخلايا من A3 الى A9 حيث انك لو وضعت 50 في A3 لتغير اللون حسب المطلوب ولو ان الدرجة مثلا 70 في نفس الخلية لتعير اللون الى اللون المطلوب وهكذا لكل المدى من A3 الى B9 . والان ارفقت الملف ليشمل التغيير في كامل العمود من A3 الى آخر الصفحة B65536 كل ما عليك اخي هو كتابة الدرجة في اي خلية من A3 الى A65536 وسيتغير اللون عند نسخ المعادلة في B3 الى B65536 ________2.zip رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر فبراير 19, 2007 مشاركة قام بنشر فبراير 19, 2007 السلام عليكم و رحمة الله و بركاته الأخ NSE رااااااااااااااااااائع ممتاز جدا جزاك الله خيرا و بارك الله فيك و اكرمك رابط هذا التعليق شارك More sharing options...
bahraini قام بنشر فبراير 19, 2007 مشاركة قام بنشر فبراير 19, 2007 الأخوة أعضاء المنتدى السلام عليكم ورحمة الله وبركاته يطيب لي أن أقدم شرح لطلب الأخ الفاروق حيث ستجد 3 ملفات مرفقة داخل الملف المضغوط. وللعلم فان هذي الملف من صنع احد المواقع الاجنبية وهو اضافه لبرنامج الاكسل حيث انك تستطيع وضع الشروط لغاية 30 شرط. الملف الأول أسمه: CFPlus.xla الملف الثاني أسمه: CFPlus.ini بعد فك الضغط ضع الملفين نفس المجلد (أي مكان سواء في C أو D) المهم أن يكون الملفان في نفس المكان. بعد ذلك قم بالضعظ مرتين double click على الملف CFPlus.xla . سيتم فتح برنامج الاكسل (لاتغلق البرنامج) بعد ذلك افتح الملف المسمى (التقدير) ستجد الحل هناك وقد قمت بعمل مثالين وكليهما يقومان على ادخال الدرجة فقط باستخدام دالة IF المثال الأول يقوم بتلوين الصف بالكامل حس اللون لكل درجة وتقدير المثال الثاني يقوم بتلوين خلية التقدير فقط بناء على الدرجة المعطاه ان شاء الله يكون هذا المطلوب وهذا شيء يسير قدرني الله على فعله رغم اني لست محترفا ولكن لكل مجتهد نصيب وأعضاء المنتدى يستاهلون كل خير مع تحيات أخوكم بوفاطمة Officena.Solutions.rar رابط هذا التعليق شارك More sharing options...
ابو الحمز قام بنشر فبراير 19, 2007 مشاركة قام بنشر فبراير 19, 2007 اخي nse بارك الله فيك على هذا الحل الرائع ، وزادك الله من علمه وشكرا جزيلا على هذه المعلومة القيمة رابط هذا التعليق شارك More sharing options...
عاشق الرقي قام بنشر فبراير 25, 2007 مشاركة قام بنشر فبراير 25, 2007 يا أساتذة ماشاء الله عليكم والله اذهلتوني في براعتكم اسأل الله العظيم رب العرش الكريم أن يجعل كل جهودكم في ميزان حسناتكم وأسلوبكم الراقي في الحوار باك الله فيكم ولكم أخوكم أبو ريان رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.