عادل صادق

الأخ الكريم forcast: لا شكر علي واجب فانا ابن من أبناء هذا المنتدي ويسعدني أن اساعد أي عضو أو زميل الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هداناالله اسألك الدعاء لي بالهداية وشكراً

أخي الكريم جرب هذا المرفق بالتوفيق Stock Rate.rar

السلام عليكم برجاء الضغط علي ال Preferences لتعدير إعدادات الطابعة التي تظهر عند إختيار أمر طباعة من قائمة File ثم الي Advanced ثم البحث عن خاصية Mirror Image وجعلها Off وليس On بالتوفيق إن شاء الله عادل صادق

Asadek25@yahoo.com Thank You

اخي ارجو مراجعة الرابط http://office.microsoft.com/ar-sa/results....B7%D9%8A&App=XL ارجو ان تجد ما تريد

هذا هو شرح الكود 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

أنت غالي والطلب رخيص ها هو التعديل شكراً ConditionalComment.zip

كلامك سليم أخ تامر صحيح انني ليس لدي تلك المشكلة ولكن كان لدي مشكلة اخري في الاكسيل وقد افادتني طريقتك في ازالتها جزاك الله عنا خير الجزاء وأسف إذا كنت تسرعت واقترحت حل اّخر

أخي الكريم السلام عليكم هناك حل بسيط او مبدئ وهو ان تقوم بتشغيل معالج الاوفيس وكانك سوف تقوم بتركيبة من جديد ثم تختار خاصية المعالجة او الاصلاح

هذا هو المطلوب بعون الله شكرأَ ConditionalComment.zip

اخي الكريم لقد قمت بعمل المطلوب في الملف عن طريق الكود اضغط علي (Alt+F11) لترى الكود بالنسبة للشرح اعتقد ان الكود بسيط جدأ فارجو ان تجتهد في فهمة و أي شي غامض سوف اقوم بشرحة لو أردت. شكرأ

اخي السلام عليكم جرب المرفق وإن شاء الله يكون هو المطلوب ConditionalComment.zip

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

الاخ حسام بارك الله فيك وزادك علماً لي سؤال حول الموديولز التي استخدمتها في هذا البرنامج السؤال هو كيف يتم تفعيل الحدث Auto_Open و Auto_Close تلقائياً بمجرد فتح الملف شكراً

زملائي الاعزاء اريد أن أعرف ما هو الخطأ في هذا الكود والذي يجعل الرسالة تظهر مرتين بالرغم من تحديد المستخدم لأحد الخيارين نعم او لا Private Sub Worksheet_Change(ByVal Target As Range) Dim inters As Range, x As Range Dim intButSelected As Integer, intButType As Integer Dim strMsgPrompt As String, strMsgTitle As String Set inters = Intersect(Target, Range("H3:H378")) strMsgPrompt = "Have you changed the engine oil?" strMsgTitle = "Engine Oil" intButType = vbYesNo + vbQuestion + vbDefaultButton2 If inters Is Nothing Then Exit Sub For Each x In inters If x.Value <> 0 Then MsgBox strMsgPrompt, intButType, strMsgTitle If MsgBox(strMsgPrompt, intButType, strMsgTitle) = vbYes Then Range("H3:H378").Font.ColorIndex = 0 x.Font.ColorIndex = 3 Sheets("Sheet1").Range("L5").Value = x.Value Else End End If End If Next End Sub