halwim قام بنشر يونيو 5, 2006 قام بنشر يونيو 5, 2006 السلام عليكم ورحمة الله لدي طلب ممكن يكون عندي معقد نوعما ولكن أتصور انه عند أبطال أوفيسنا بسيط جدا طلبي هو كا التالي : لدي ثلاث عبارات أو جمل (1) أنت ممتاز (2) أنت جيد (3) أنت ضعيف أريد العبارات السابقة تخرج على شكل تعليق مدرج في الخلية A1 بحيث إذا وضعت الماوس على A1 تخرج تلك العبارات في الوقت المناسب اذا تحقق الشرط . فمثلا إذا كتبنا رقم 91 في A1 يكون التعلق أنت ممتاز و إذا كتبنا الرقم 61 في A1 يكون التعلق أنت جيد و إذا كتبنا الرقم 51 في A1 يكون التعلق أنت ضعيف. أرجو أن أجد الحل مع الشرح الواضح ودمتم .
عادل صادق قام بنشر يونيو 7, 2006 قام بنشر يونيو 7, 2006 (معدل) اخي السلام عليكم جرب المرفق وإن شاء الله يكون هو المطلوب ConditionalComment.zip تم تعديل يونيو 7, 2006 بواسطه عادل صادق
عادل صادق قام بنشر يونيو 7, 2006 قام بنشر يونيو 7, 2006 اخي الكريم لقد قمت بعمل المطلوب في الملف عن طريق الكود اضغط علي (Alt+F11) لترى الكود بالنسبة للشرح اعتقد ان الكود بسيط جدأ فارجو ان تجتهد في فهمة و أي شي غامض سوف اقوم بشرحة لو أردت. شكرأ
halwim قام بنشر يونيو 7, 2006 الكاتب قام بنشر يونيو 7, 2006 السلام عليكم أخي الكريم ( عادل صادق) فرج الله عنك في الدنيا والآخرة هذا هو المطلوب واقعا حل رائع جدااااا وبديع سلمت يداك ..... الشيء الذي ألفت نظري هو أنه في حالة كتابة رقم غير مقصود يختفي سهم التعليق وهذا شيء رهيب قد فاتني التنبيه عليه ولكنك كنت ملفتا لذلك جزاك الله خير الجزاء بقي شيء واحد إذا ممكن يكون فبودي أن تضيفه حتى تكتمل الفكرة و هو في حالة كون الخلية A1 فارغة بودي يخرج فيها تعليق و هو عبارة "أكتب الدرجة بالأرقام" فإن كانت الدرجة 91 أو 61 أو 51 يخرج التعليق المناسب كما في المثال الذي أرفقت وإن كانت الدرجة غير 91 أو 61 أو 51 يخرج هذا التعليق : " الدرجة ليس لها تصنيف" مثلا وشكررررررا .
عادل صادق قام بنشر يونيو 9, 2006 قام بنشر يونيو 9, 2006 هذا هو المطلوب بعون الله شكرأَ ConditionalComment.zip
halwim قام بنشر يونيو 10, 2006 الكاتب قام بنشر يونيو 10, 2006 أخي الكريم ( عادل صادق) هذا هو المطلوب ...... جهد أكثر من رائع بصراحة لا أملك أكثر من الدعاء لك بالتوفيق ودخول الجنة شكررررا
halwim قام بنشر يونيو 10, 2006 الكاتب قام بنشر يونيو 10, 2006 منذ أيام طرحت موضوع وكان بودي أن أحصل على جواب له لأني بالفعل محتاج له كثير ومتوقف عليه في عملي وأعتقد أنه بالنسبة لكم أبسط من موضوع التعليق المشروط ....... فياليت تفتحو الرابط وتشوفون لي حل ... شاكرا لكم كل ما تقدموه الرابط : http://www.officena.net/ib/index.php?showtopic=12657
halwim قام بنشر يونيو 18, 2006 الكاتب قام بنشر يونيو 18, 2006 بخصوص طريقة ظهور التعليق بودي أن يكون التعليق في جميع الحالات بارز يعني دائما منسدل ........ إذا ممكن
عادل صادق قام بنشر يونيو 18, 2006 قام بنشر يونيو 18, 2006 أنت غالي والطلب رخيص ها هو التعديل شكراً ConditionalComment.zip
halwim قام بنشر يونيو 18, 2006 الكاتب قام بنشر يونيو 18, 2006 صدقني كلمت شكر قليلة في حقك ....... والله ما توقعت هذه السرعة . بس ياليت تشرح ولو بشكل مختصر كيفية تنفيذ الطريقة من أجل تنفيذها على خلايا أخرى غير A1 . واسمح لي والله احس اني صرت ثقيل نوعما ...... ولك ألف ألــــف شكر.
عادل صادق قام بنشر يونيو 19, 2006 قام بنشر يونيو 19, 2006 هذا هو شرح الكود Private Sub Worksheet_Change(ByVal Target As Range) A = Range("A1").Value ' (A) هذا الكود لإسناد قيمة الخلية الي متغير اسمه Select Case A 'Select Caseوهذا لإنشاء الاجراء Case 0 'وهذا لافتراض ان قيمة الخلية قد تكون 0 'فاذا تحقق الشرط يتم تنفيذ الاوامر التالية With Range("A1") .ClearComments 'وهذا لمسح اي تعليق قد يكون موجود مسبقاً .AddComment 'وهذا لاضافة شكل التعليق ولكن فارغ .Comment.Visible = True 'وهذا لجعل التعليق ظاهر .Comment.Text Text:="أكتب الدرجة بالأرقام" 'وهذا لملئ التعليق بهذا النص End With Case 91 With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="أنت ممتاز" End With Case 61 With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="أنت جيد" End With Case 51 With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="أنت ضعيف" End With Case Else With Range("A1") .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:=" الدرجة ليس لها تصنيف" End With End Select End Sub
الردود الموصى بها