هبه مصطفى

السلام عليكم : أستاذ رجب الكود كده بقى تمام خالص وشغال كويس جداً ... الفايل بقى هايل بهذا الكود .... مش عارفه أشكرك إزاى ربنا يبارك فيك ويجازيك خير بإذن الله

السلام عليكم ورحمة الله معلش أستاذى الفاضل عندى مشكله بعد إضافة ال Module دلوقتى مش مهم الفايل يكون ثقيل لكن المشكله إنه بعد ما بيكتب التاريخ يقوم بإيقاف عمل جميع ال Tool Bars الموجوده ما بيخليش فى شئ شغَّال الحفظ والإغلاق وال Undo وهكذا كل دول لا يعملوا فى حالة قبوله للتاريخ أما فى حالة ظهور الرساله فلا يوقف عمل أيَّا ً منهم هل أجد لدى حضرتك تفسير ملحوظه الفايل يعمل على إكسيل 2003 ، 2007 ، 2010 والأكثر إستخداماً هو 2007 فالأشرطه تعمل على 2003 فقط عدا ال Undo ولا تعمل على باقى الإكسيل

السلام عليكم أشكرك جداً يا أستاذ رجب ربنا يخليك ال Module فوق الرائع حل لى مشكله كبيره وأنا بأشكرك على مساعدتك جداً جداً طيب هل توجد طريقه ممكنه تخلى الفايل أخف شويه لأن من كتر معادلاته الصفحه بتلعب على بال ما يتم تسجيل التاريخ وهو عموماً الفايل ثقيل جداً بياخد وقت فى الحفظ والفتح والإغلاق وهكذا ... الفايل مساحته 60.50 ميجا بايت ومره أخرى لك جزيييييييييييل الشكر

شكرأ جزيلاً ولكن لو مافيهاش تعب هو ال Module مظبوط ولكن المشكله دلوقتى عندى أنا : 1) الصفر ده هو ناتج معادله وبالتالى لما حضرتك بيطلع الرساله فيقوم بمسح المعادله وبالتالى لا يتم وضع الرقم وبالتالى ح تفضل علطول تطلعلى الرساله 2) عندما جربت وضع القيمه يدويا أخذ الفايل يقوم بعمل Calculate والتاريخ جوه الخليه بقى بيلعب لمده 5 دقائق كده وبعدها يثبت مش عارفه ده بقى عشان الفايل تقيل وألاَّ إيه فالمهم دلوقتى المشكله الأولى هل يوجد حل لها والمعادله الموجوده فيه هى (IF(AND(L180=1;I180=0);1;I180=

معلش الملف أهو لقيته لم يتم إرساله ... موقف_2012.rar

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

شكراً على مجهود حضرتك الرائع ولكن للأسف بتظهر الرساله عندى حتى لو أدخلت خلية القيمه فهو لا يقبل تاريخ فى المطلق أنا عايزه أول ما تدخل القيمه التى أكبر أو أصغر من الصفر يقبل تاريخ عادى لا يقبله فقط فى حالة الصفر الفايل بتاع حضرتك شغال تمام لكنى لما أخذت ال Medule كوبى وعدلت أرقام الأعمده حدث ما سبق عمود القيمه هو عمود رقم 13 عمود التاريخ هو عمود رقم 22 وحطيت رقم عمود الإزاحه -9 قمت بالتعديل ولكن إما لا يقبله أو يظلل Debug على Private Sub Worksheet_Change(ByVal Target As Range(

السلام عليكم ورحمة الله لدى سؤال دلوقتى عندى عمودين A و B العمود A قيمة نقديه العمود B تاريخ فأنا عايزه إنه عند إدخال عمود التاريخ B البرنامج يفعل التالى إذا كان العمود A قيمته أكبر أو أقل من الصفر يقبل العمود B كتابة التاريخ وإن كان الخليه بالعامود A تساوى صفر بالضبط فعند الكتابه فى الخليه التى تقابلها بالعمود B يظهر رسالة من فضلك إدخل القيمة أولاً ولا يقبل تسجيل التاريخ بالخليه إلا بوجود القيمه بالخليه التى تقابلها بالعمود A