amoudi

السلام عليكم تفضل جرب الملف تحياتي 00001.rar

السلام عليكم اعتقد هذا كود لحدف المكرر تحياتي

السلام عليكم ممكن تراجع موضوع سابق http://www.officena.net/ib/index.php?showtopic=26768

السلام عليكم اذهب للصفحة http://support.microsoft.com/kb/957924 وحمل التحديثات وانشاء الله يشتغل معاك تحياتي

السلام عليكم في كذا حل ممكن تخلي التاريخ كنص في الشيت وممكن تنشى عامود ثاني كنص وتربطهم مع الComboBox وممكن تضع كود Private Sub ComboBox1_Change() ComboBox1.Value = Format(ComboBox1.Value, "d/m/yyyy") End Sub

كلام جميل جدا واتمنى الجميع يكون يتبع نفس الأسلوب ,, اتمنى لك التوفيق

السلام عليكم تعديل بسيط بعد اذنك اخي لايوجد على الأقل تحياتي

السلام عليكم مع اني مش فاهم لكن اظنك تريد القيمة الأكبر او الأصغر على العموم جرب (MAX(C5:D5= او للأصغر (MIN(C5:D5= تحياتي

السلام عليكم ايش نسخة الأوفيس عندك وهل انت عندك VB6

ياخي شوف

السلام عليكم في غلط في الكود هذا (cell(A1 خليه [A1] وايضا ل ِA2 وقفل if الكود المفروض يكون في ComboBox1_Change وليس ComboBox2_Change

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

اخي الأسد الجريح بعد اذن من سبقني بالرد الموضوع ممعادلتك فيها غلط يعني انت عامل <= المفروض =< عامل B:B خليها مثل نطاق التشييك او خلي نطاق التشييك مثلها B5:B26 تحياتي

السلام عليكم تفضل حل عن طريق المعادلات فقط بالمرفق. تحياتي inst.rar

اخي الكريم عندما تعين خاصية source control لtextbox ولاتريد ان تغيير الخلية فقط ضع cancel=true في حدث BeforeUpdate ل TextBox وخلي ال TextBox على Locked=True ولن تتغير المعادلات او اي شي في الخلية المرتبطة مع ال TextBox كما حصل معك ارجو اكون وصلت المعلومة تحياتي

اخي الكريم اذا ربطت TextBox بخليةفيها معادلات فأنت اكيد تحتاجه لأظهار محتوى الخلية وليس للتعديل فيها فعليك ان تضع الغاء لأي تحديث للخلية بالطريقة التالية Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True End Sub تحياتي

اخي الكريم aah_aah2008 السلام عليكم ورحمة الله وبركاته هذا افتراض لا اعرف من اين اتيت به ,, ما أدراك بمستواي في الأكسيل والبرمجة ؟ ما ادراك بماذا استفدت انا من المنتدى ؟ اخي والحمد لله مستواي جيد في الأكسيل والبرمجة وما كان غرضي الأساسي في المنتدى التعلم بقدر ما كان استفيد من اي شخص اجد له يحل يدعو ليا بدعوة طيبة . وليست لدي اي موضوع في المنتدى واخي حتى لو تعمت شب جديد عليا في المنتدى هل تمن عليا انني تعلمت شي في هذا المنتدى . وانت كاتب فوقها اخي الفاضل amoudi !!!! طيب شوف اول رد للأستاذ/ نزار مشاركة رقم 4 اخي الكريم ما ادري ايش قصدك بكلمة عملا صغيرا مثل هذا انا ما قدمت اي عمل لا صغير ولا كبير انا فقط قدمت حل هنا والحلول لايوجود كبير وصغير تحياتي

أخي الكريم / ابو ساره اذا استخدمت كود الأستاذ/ نزار على حالته (الي عجبك أكثر) فضع في اعتبارك لن تستطيع استخدام خاصية القص واللصق وخاصية النسخ لن تستطيع استخدام سواء اللون الأسود للخط واذا استخدمت اي لون سيتحول للأسود لن تستطيع حذف اي شي سواء خلية صف عامود فما ادري ايش عجبك تحياتي

اخي ابو ساره ايش رايك في حلي عجبك ام لا ,,, يهمني رايك لأنك اصبحت نطرح رايك في الحلول . تحياتي

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

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

السلام عليكم ((SUMPRODUCT((MyRange>=20)*(MyRange<=30= MyRange ضع بدالها خلايا الأعمار تحياتي

اخي نزار ممكن ربط التنسيق بخلية غير الخلية التي تعمل عليها يعني خلايا B1,B7,C8 الخ ,,, تربط تسيقها كلها بخلية وحدة مثل A1 واي تغيير في الخلية A1 سوف يوثر على جميع الخلايا تحياتي

اخي نزار اعتقد انه الكود هذا غير عملي يعني لازم يضلل الخلاياء علشان تتحول الى خط ابيض . ما ادري احس انه مش عملي الحل الأفضل انه يعمل تسيق شرطيعلى الخط ليصبح ابيض , بشرط مثلا خلية معينة او نفس الخلية اذا القيمة فيها كذا او كذا يعمل التنسيق او لايعمل تحياتي

ممكن تجعل لون الخط ابيض