SPHINX قام بنشر مارس 29, 2007 مشاركة قام بنشر مارس 29, 2007 ملف يتكون من 6 ورقات عمل الكود التالي في احد هذه الورقات يرجى الاطلاع على الكود التالي ومساعدتي في ايجاد الخطاء Private Sub Worksheet_Change(ByVal Target As Range) Range("G7").Select If [G7] >= 3500 And [G7] <= 4999 And [A10] = "ESTABLISHED" And [i10] = "" Then [b11] = [G7] * 43 [D11] = [G7] * 3 [E11] = [G7] * 3 End If End Sub حيث عند تطبيقة يتوقف الاكسل عن العمل رابط هذا التعليق شارك More sharing options...
mehyo27 قام بنشر مارس 29, 2007 مشاركة قام بنشر مارس 29, 2007 (معدل) السلام عليكم المشكلة عندما تتوافر الشروط الكود يعيد نفسه الى لا نهاية عدلت قليلاً وجعلته يعمل عند اختيار الخلية فقط Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Selection, Range("G7")) Is Nothing Then If [G7] >= 3500 And [G7] <= 4999 And [A10] = "ESTABLISHED" And [I10] = "" Then [B11] = [G7] * 43 [D11] = [G7] * 3 [E11] = [G7] * 3 End If End If End Sub جربه Book1.rar تم تعديل مارس 29, 2007 بواسطه mehyo27 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر مارس 30, 2007 مشاركة قام بنشر مارس 30, 2007 (معدل) الاخ SPHINX الاخ mehyo27 تحياتى لكم الاخ mehyo27 مشكور اخى على مجهودك ومساعدة الاخوة عذرا اخى لى ملحوظة على الكود المقترح : الكود يعمل فقط عند اعادة اختيار الخلية (G7) للمرة الثانية بعد ادخال الرقم فيها ... الاخ SPHINX شاهد هذا الاسلوب وهو نموذج يستحق الاطلاع . وهو يعمل فورا عند تغير احد خلايا الشرط المعطى اى عند اى تغير فى الخلايا ( G7 - A10 - I10 ) وتظهر نتائجه فور الادخال ولن تحتاج الى اختيار الخلية مرة اخرى . هذا الكود الابتكارى يصلح للعمل مع مدى واحد او عدة نطاقات للتعامل مع احداث الاوراق بطريقة جيدة . مرفق بالورقة الثانية تحقيق الشروط عن طريق الصيغ . Test_Event.rar تم تعديل مارس 30, 2007 بواسطه أبو تامر رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر مارس 30, 2007 الكاتب مشاركة قام بنشر مارس 30, 2007 الاخ العزيز mehyo27 شكرا اخي العزيز لمحاولتك الكريمه الاخ العزيز أبو تامر زاد الله في علمكم جزاكم الله كل خير اشكركم جزيل الشكر لمساعدتكم لي دعائي لله ان يديمكم عون لكل مرتادي هذا المنتدى الرائع واتمنى ان يستفيد كل الاعضاء والمرتادين من اسهامتكم الرائعه الاخ ابوتامر الكود يعمل بشكل ممتاز ولكن يوجد مشكله اتمنى من الله ان اجد لها حل عندكم ورقه العمل محمية بكلمة سر لمنع التعديلات في الخلايا بعد الحصول على النتائح لكن عندما اقوم بتفعيل الحمايه لا يعمل الكود ويطلب ان ازيل الحمايه فهل يوجد طريقه عند تغير المدخلات ان يقوم الكود بفك الحماية ثم يفعل الحمايو مره اخرى .....وهكذا رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر مارس 30, 2007 مشاركة قام بنشر مارس 30, 2007 شاهد المرفق اخى لن تحتاج لفك الحماية للبيانات المدخلة والمخرجة ... كلمة السر : omar Test_Event_2.rar رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر مارس 30, 2007 الكاتب مشاركة قام بنشر مارس 30, 2007 ما شاء الله تبارك الله جزاك الله كل الخير رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 31, 2007 مشاركة قام بنشر مارس 31, 2007 برجاء التعديل على الكود بحيث انه في حالة عدم تحقق الشروط تكون النتيجة فراغ في B11 تساوي فراغ و كذلك D11 و E11 تحياتي رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر مارس 31, 2007 مشاركة قام بنشر مارس 31, 2007 شاهد المرفق تم التعديل لطريقتى الكود والصيغ . تحياتى Test_Event_3.rar رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 31, 2007 مشاركة قام بنشر مارس 31, 2007 هذا التمكن من استاذنا : ابو تامر والا فلا . ندعوا الله الكريم ان يوفقك دائما للخير وينير طريقك ويدفع عنك كل سوء يارب تحياتي لك رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر أبريل 4, 2007 الكاتب مشاركة قام بنشر أبريل 4, 2007 اخي واستاذي ومعلمي ابو تامر كان للكود المرفق في مشاركتم الفعل الكبير فيما افعله ولكن نظل نلجاء دائما لك ولعملك وها انا ذا اتوجه اليكم بطلب مساعده اخر في الاتي 1. كيف لي عن اعمل DISABLE OR ENABLED لخلية ما اذا تم كتابه شي معين في خلية اخرى او اختيار كلمه من قائمه مع العلم ان كامل ورقه العمل محميه عدا بعض الخلايا 2. عند التحرك بين الخلايا عن طريق زر الادخال ENTER يتم الانتقال بطريقه غير منظمة على عكس زر التاب وقد حاولت معالجه هذا الموضوع عن طريق طريقة تحرك زر الادخال الى اليمين ولكن هذا لايعمل في جهاز اخر فهل هناك كود يحبر التحرك بالانتر الي اليمين او الشمال 3. اريد عن اغلاق الملف لا تظهر رساله هل تريد الحفظ ويغلق الملف من غير حفظ ارجو ان لا اكون اثقلت عليكم بطلباتي رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر أبريل 5, 2007 الكاتب مشاركة قام بنشر أبريل 5, 2007 ابو تامر اين انت يا منقذي وملاذي رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أبريل 6, 2007 مشاركة قام بنشر أبريل 6, 2007 شاهد المرفق اخى test.rar رابط هذا التعليق شارك More sharing options...
SPHINX قام بنشر أبريل 6, 2007 الكاتب مشاركة قام بنشر أبريل 6, 2007 الاستاذ المبجل او تامر بالنسبة للطلب 1. كيف لي عن اعمل DISABLE OR ENABLED لخلية ما اذا تم كتابه شي معين في خلية اخرى او اختيار كلمه من قائمه مع العلم ان كامل ورقه العمل محميه عدا بعض الخلايا اعتقد انني لم اوضح المطلوب جيدا على سبيل المثال عندما اكتب في الخليه a1 احمد يتم عمل protect or disable للخلية a2,a3 مع انها في الاصل غير محميه وغير ذلك تظل الخلية غير محمية وغير ذلك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.