رجب جاويش قام بنشر أغسطس 7, 2012 الكاتب قام بنشر أغسطس 7, 2012 أختى الفاضلة جربى هذا التعديل وان شاء الله يعمل تمام Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 22 Or Target.Count > 1 Then Exit Sub If Target = "" Then Exit Sub On Error Resume Next If Target.Offset(0, -9).Value = 0 Then Target.Value = "" Target.Offset(0, -9).Value = "" MsgBox "من فضلك أدخل القيمة أولا" Target.Select: Exit Sub End If If Target.Offset(0, -9).Value <> 0 Then Target = Format(Target, "DD/mm/YYYY") End If End Sub
هبه مصطفى قام بنشر أغسطس 8, 2012 قام بنشر أغسطس 8, 2012 (معدل) شكرأ جزيلاً ولكن لو مافيهاش تعب هو ال Module مظبوط ولكن المشكله دلوقتى عندى أنا : 1) الصفر ده هو ناتج معادله وبالتالى لما حضرتك بيطلع الرساله فيقوم بمسح المعادله وبالتالى لا يتم وضع الرقم وبالتالى ح تفضل علطول تطلعلى الرساله 2) عندما جربت وضع القيمه يدويا أخذ الفايل يقوم بعمل Calculate والتاريخ جوه الخليه بقى بيلعب لمده 5 دقائق كده وبعدها يثبت مش عارفه ده بقى عشان الفايل تقيل وألاَّ إيه فالمهم دلوقتى المشكله الأولى هل يوجد حل لها والمعادله الموجوده فيه هى (IF(AND(L180=1;I180=0);1;I180= تم تعديل أغسطس 8, 2012 بواسطه هبه مصطفى
رجب جاويش قام بنشر أغسطس 8, 2012 الكاتب قام بنشر أغسطس 8, 2012 أختى الفاضلة جربى هذا التعديل وهو يترك المعادلة كما هى ولا يحذفها Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 22 Or Target.Count > 1 Or Target.Row < 6 Then Exit Sub Application.ScreenUpdating = False If Target = "" Then Exit Sub On Error Resume Next If Target.Offset(0, -9).Value = 0 Then Target.Value = "" MsgBox "من فضلك أدخل القيمة أولا" Target.Select: Exit Sub End If If Target.Offset(0, -9).Value <> 0 Then Target = Format(Target, "DD/mm/YYYY") End If Application.ScreenUpdating = True End Sub
هبه مصطفى قام بنشر أغسطس 8, 2012 قام بنشر أغسطس 8, 2012 السلام عليكم أشكرك جداً يا أستاذ رجب ربنا يخليك ال Module فوق الرائع حل لى مشكله كبيره وأنا بأشكرك على مساعدتك جداً جداً طيب هل توجد طريقه ممكنه تخلى الفايل أخف شويه لأن من كتر معادلاته الصفحه بتلعب على بال ما يتم تسجيل التاريخ وهو عموماً الفايل ثقيل جداً بياخد وقت فى الحفظ والفتح والإغلاق وهكذا ... الفايل مساحته 60.50 ميجا بايت ومره أخرى لك جزيييييييييييل الشكر
رجب جاويش قام بنشر أغسطس 8, 2012 الكاتب قام بنشر أغسطس 8, 2012 أختى الفاضلة جزاك الله كل خير على هذه الكلمات الطيبة نعم كثرة المعادلات وكثرة البيانات تعمل على بطئ عمل الملف ممكن استبدال بعض المعادلات بأكواد ممكن ذلك يؤدى الى زيادة سرعة الملف فى العمل
هبه مصطفى قام بنشر أغسطس 9, 2012 قام بنشر أغسطس 9, 2012 (معدل) السلام عليكم ورحمة الله معلش أستاذى الفاضل عندى مشكله بعد إضافة ال Module دلوقتى مش مهم الفايل يكون ثقيل لكن المشكله إنه بعد ما بيكتب التاريخ يقوم بإيقاف عمل جميع ال Tool Bars الموجوده ما بيخليش فى شئ شغَّال الحفظ والإغلاق وال Undo وهكذا كل دول لا يعملوا فى حالة قبوله للتاريخ أما فى حالة ظهور الرساله فلا يوقف عمل أيَّا ً منهم هل أجد لدى حضرتك تفسير ملحوظه الفايل يعمل على إكسيل 2003 ، 2007 ، 2010 والأكثر إستخداماً هو 2007 فالأشرطه تعمل على 2003 فقط عدا ال Undo ولا تعمل على باقى الإكسيل تم تعديل أغسطس 9, 2012 بواسطه هبه مصطفى
رجب جاويش قام بنشر أغسطس 9, 2012 الكاتب قام بنشر أغسطس 9, 2012 أختى الفاضلة / هبه مصطفى جربى ازالة السطرين Application.ScreenUpdating = False Application.ScreenUpdating = True
هبه مصطفى قام بنشر أغسطس 11, 2012 قام بنشر أغسطس 11, 2012 السلام عليكم : أستاذ رجب الكود كده بقى تمام خالص وشغال كويس جداً ... الفايل بقى هايل بهذا الكود .... مش عارفه أشكرك إزاى ربنا يبارك فيك ويجازيك خير بإذن الله
رجب جاويش قام بنشر أغسطس 11, 2012 الكاتب قام بنشر أغسطس 11, 2012 أختى الفاضلة جزاك الله كل خير على هذه الكلمات الطيبة وكل عام وأنتم بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.