amoudi

اخي الكريم adam13 بالنسبة لمعادلة الأخ مصطفى المعادلتين كلها غير صحيحة تأكد بنفسك انا اشوف انه الحل الأفضل هو الحل الأبسط تحياتي

اخي الكريم رجاء تأكد من معادلات الأخ مصطفى لآنه جربتها وغير صحيحة تحياتي

السلام عليكم ورحمة الله وبركاته استخدم المعادلة (LOOKUP(E3,C:C,I:I= تحياتي

السلام عليكم اخي ممكن تضع الكود التالي في بداية الكود وبدون زر ايقاف حيعمل معاك If Application.CutCopyMode <> 0 Then Exit Sub تحياتي

السلام عليكم معلش مش فاهم طلبك بالضبط لكن جرب COUNTA تحياتي

بعد إذن الأخ طارق ارفقت الملف مرة اخرى to_NotePad.zip

السلام عليكم ممكن تتطلع المكرر بعدة طريق : يمكن وضع عمود بجانب عمود الأرقام وتضع به المعادلة (countif(A:A,A1 وتسحب المعادلة بافتراض انه اول خلية هي A1 وحيظهرك كم مره مكرر وبعدين تفرزها على حسب العمود يمكن تضع المعادلة 1< (countif(A:A,A1 في التنسيق الشرطي على كامل العمود وتختار الفورمات المطلوبة للأشياء المكرره/ أكثر من مره (1) وحيشتغل معاك يمكن تفرز العمود وتضع عمود بجانبه وتضع معادلة A2=A1 وتسحب المعادلة وحيظرلك True على الأشياء المكرره واخيرا ممكن بالماكرو كما سبق في الردود تحياتي

الأخ خبور خير اطلعت الآن على الكود في الملف بعد التعديل اعتقد انت بس تحتاج تضيف سطر مثل اذا كان الترتيب المطلوب فإذن رقم الترتيب = عدد السطور - رقم الترتيب +1 ومعادلة rank بدون متغير الترتيب المطلوب بعني لو عندي عشر سطور فالترتيب الأول بالأكبر حيكون الترتيب العاشر بالأصغر والترتيب 2 بالأكبر حيكون الترتيب التاسع بالأصغر وهكذا فأنا اذا عرفت ترتيب الشي بالأكبر فيصبح ترتيبه بالأصغر معروف اذا كان لدي عدد الصفوف تحياتي تحياتي

السلام عليكم اخي الكريم لو انك ترفق ملف بما تريد مع شرحة بنفس الملف يكون اسهل في مساعدتك . تحياتي

السلام عليكم ورحمة الله وبركاته شكرا لتجاوبك مع ملاحظاتي باالنسبة للملف جربت ومضبوط انشاء الله تحياتي

السلام عليكم اخي الكريم اعتقد لو تبحث في المنتدى حتلاقي او تسأل خبراء المنتدى فيفيدوك بكل تأكيد عل العموم ممكن اعطيك مثال لو الخلية الى تعمل عليها تحقق من الصحة هي C2 عاد انت جرب وعدل Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Target If c = Range("C2") Then If Range("C2").Text > "15" Then MsgBox ("the massage") Range("C2") = "" End If End If Next End Sub

السلام عليكم ورحمة الله وبركاته مرفق لك ملف يوضح المشكلة في كودك (علشان توصلك الفكرة) وبالنسبة للمعادلة شوف بنفسك موقع مايكروسوفت http://support.microsoft.com/kb/213916 ياريت توضعها بملف مع الأمثلة علشان الجميع يستفيد الجميع تحياتي amoudi.rar

السلام عليكم ورحمة الله جزاك الله خير على المجهود مع اني لا أحبد الأكواد في عمل يمكن عمله بمعادلات مع ذلك اعتقد انهعمل متقن يفيد كثيرين ممن يرغبون بتعلم VBA وافكار برمجية جميلة عندي ملاحظة عزيزي في البرنامج لو رقمين متشابهين ممكن يكون سوء فهم للأكبر والأصغر يعني مثال a =18 b=18 فيعادلة large 1-a 2-b ومعادلة small 1-a 2-b فكيف تكون a هي الأصغر والأكبر ارجوا تكون الفكرة وصلتك تحياتي

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

السلام عليكم ياخي جرب تستخدم التحقق من الصحة على هذه الخلاياA2,A3,A4,A5 والشرط مخصص( خلية A1 تكون بدون تاريخ) تحياتي

السلام عليكم هذا الموضوع اعتقد ليس له حل بس ما ادري في xl2007 لها حل ا ولا ما ادري ماعندي 2007 لأن اللصق لاتعتبر ادخال ... حتى التنسيق الشرطي لايعمل في اللصق ما لك الا تعمل كنترول بطريقة الكود او حسب برنامجك تحياتي

السلام عليكم ممكن في خانة controlsource في خصائص ال TextBox تكتب اسم الخلية مباشرة مثل B15 او A1 وحتكون للشيت المفعل وممكن تكتب Sheet1!B15 او Sheet1!A1 وحتكون قيمة A1 الموجدودة في الSheet1 وممكن تسمي الخلية اسم مثل ماهو في المثال السابق Kh_n وتحط اسمها بدون ذكر اسم الشيت لأنها موحدة على مستوى ال Workbook تحياتي

up

الأخ aysam الكود تبعك مضبوظ ولكن يلزمك تحويل احد جهي المعادلة الى نص If TextBox1 = Sheets("welcome").Range("hh2") Then تحولة الى If TextBox1.Text = Sheets("welcome").Range("hh2") Then او If TextBox1 = Sheets("welcome").Range("hh2").Text Then تحياتي

السلام عليكم يا أخوان مافي نتيجة لحل الملاحظة السابقة ؟ يعني الموضوع كله تعديل معادلة فقط .. اتمنى اشوف حل يفيدني بالتعلم بشي جديد مع العلم انا عملت المعادلة من أول بدون L2 او اي خانة اضافية وشغال 100% بسب حاب اعرف شكل ثاني للحل يعني استفيد من معلومات الخبراء وطريقة حلولهم . تحياتي

السلام عليكم ياريت تشوفوا حل لهذه الملاحظة ملاحظة مهمة اذا اخترت فلتر مخصص لفصلين النتيجة تكون خاطئة شكرا لك شكرا لتجاوبك تحياتي

اولا شكرا لتعاونك فيه ملاحظة انه خانة L2 لاتتغير احيانا عند تغيير الفلتر يعني فلتر على الفصل 1/1 يطلع في خانة L2 1/1 وفلتر على 1/4 يطلع في خانة L2 1/2 وفيه ملاحظة مهمة اذا اخترت فلتر مخصص لفصلين النتيجة تكون خاطئة شكرا لك تحياتي

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

السلام عليكم ياريت توضح ايش المطلوب انا ملاحظ انه تريد تملاء خانة النسبة اذا كان صحيح فنسبة ايش التي تريدها . تحياتي

السلام عليكم الحل جميل بس ؟؟؟؟؟؟؟ انا اقصد في مشكلة في كل حل الحل الأول لازم اضيف خانة الترتيب (يعني عندي SHEET فيه اسماء وارقام واريد في SHEET ثاني الأوائل - بدون ما اعدل او اضيف اي شي في SHEET الأول) والحل الثاني انا عندي اعتقاد انه كتابة كود لحل مشكلة يمكن حلها بدون كود لايعتبر حل للمشكلة تقبلوا تحياتي مشريفينا الأعزاء