skyblue قام بنشر سبتمبر 10, 2009 قام بنشر سبتمبر 10, 2009 السلام عليكم ورحمة الله وبركاته وبعد : وحسب المرفق وجزاكم الله خيرا Book1.zip
omar1 قام بنشر سبتمبر 10, 2009 قام بنشر سبتمبر 10, 2009 (معدل) السلام عليكم الاخ / skyblue جرب هذه الدالةفي الخلية التي تريد ان يظهر بها no او ok =IF(J7<=0,"no",IF(J7<=$L$3,"ok","")) السلام عليكم تم تعديل سبتمبر 10, 2009 بواسطه omar1
skyblue قام بنشر سبتمبر 10, 2009 الكاتب قام بنشر سبتمبر 10, 2009 حقيقة انا من اجل المعرفة اريدها على كامل العمود بالكود لحاجتي الماسة الى ذلك . حيث ان هذا الكود سوف استفيد منه كثيرا . تحياتي
أ / محمد صالح قام بنشر سبتمبر 10, 2009 قام بنشر سبتمبر 10, 2009 (معدل) أخي الكريم في ملاحظاتك لم تذكر ماذا لو كان الربح أكبر من صفر وأقل من الهدف اليومي على العموم أنا اعتبرتها no وأصبحت المعادلة في الخلية m7 هكذا =IF(J7="","",IF(J7>=$L$3,"ok","no")) ومرفق ملفك بعد التعديل mas-ظ…44.rar تم تعديل سبتمبر 10, 2009 بواسطه mas123
احمدزمان قام بنشر سبتمبر 10, 2009 قام بنشر سبتمبر 10, 2009 السلام عليكم بعد الشكر و التقدير لأخواني الأفاضل الذين سبقوني بالرد اذا كنت تريد اضافة الدالة بواسطة الكود في المرفق يتم اضافة دالة الأخ Mas بمجرد الضغط على الزر ay-م44.rar ay-م44.rar
skyblue قام بنشر سبتمبر 11, 2009 الكاتب قام بنشر سبتمبر 11, 2009 مع التحية والتقدير لكل الاخوان اللي ساعدوني الا انني اريد التعديل على هذا الكود ...لانني ارغب ان يكون الكود بهذا الشكل لامر ما انا احتاجه . فقد حاولت ان اعمل هذا الكود ولكن لم يعمل معي . ارجوا المساعدة Private Sub Worksheet_SelectionChange(ByVal Target As Range) TA = Target.Address If TA = "$l$3" Then If [j7] >= [l3] Then [m7] = ["OK"] ElseIf [j7] = "" Then [m7] = [""] ElseIf [j7] < [l3] Then [m7] = ["NO"] End If End If End Sub
أ / محمد صالح قام بنشر سبتمبر 11, 2009 قام بنشر سبتمبر 11, 2009 أخي الكريم نحتاج الحدث عند تغير التحديد في حالة عدم تمكن الإكسل من تحديث محتوى ورقة العمل بالدوال المضمنة فيه وفي حالتك المعادلة التي كتبتها لك وقام الأخ أحمد يعقوب مشكورا بنسخ المعادلة بالكود تفي بالغرض دون الحاجة إلى حدث تغيير التحديد فلو قمت بتغيير القيم الموجودة في الربح/الخسارة ستتغير بناء عليها قيمة العمود ملاحظة في الحال دون الحاجة إلى حدث تغيير التحديد كل عام أنتم بخير 1
عبدالله باقشير قام بنشر سبتمبر 11, 2009 قام بنشر سبتمبر 11, 2009 (معدل) السلام عليكم نعم التعاون اخي عمر واخي محمد صالح واخي احمد يعقوب هذه مواطن كسب الاجر لان تنفيذ احتياج الناس في هذا الوقت والناس مشغولين باحتياجاتهم نبتغي من وراه لنا ولكم ولجميع المشاركين اجر كشف الكرب واستغاثة الملهوف وعون الناس فمن كان ففي عون اخيه كان الله في عونه ( بمعنى الاحاديث وليس سرد نصوص ) حسب ما اطلعت على المرفق فلنعطيه ما يريده تفضل الكود: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$L$3" Then For R = 7 To 14 If Cells(R, 10) >= [L3] Then Cells(R, 13) = "OK" ElseIf Cells(R, 10) = "" Then Cells(R, 13) = "" ElseIf Cells(R, 10) < [L3] Then Cells(R, 13) = "NO" End If Next End If End Sub ay-م44.rar تم تعديل سبتمبر 11, 2009 بواسطه خبور خير
احمدزمان قام بنشر سبتمبر 11, 2009 قام بنشر سبتمبر 11, 2009 السلام عليكم و رحمة الله وبركاته شكرا جزيلا لك استاذنا الكبير القدير الفاضل خبورخير جزاك الله كل خير عنا جميعا
skyblue قام بنشر سبتمبر 12, 2009 الكاتب قام بنشر سبتمبر 12, 2009 شكرا لجميع الاخوان الافاضل اللذين قدموا المساعدة لي ...فعلا هذا المنتدى ملئي بالطيبين . الشكر ايضا موصول مع التحية لااستاذنا الفاضل خبور خير حفظه الله ورعاه فقد كان الكود اللي عمله هو المطلوب . تحياتي لكم جميعا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.