تحديد رقم الصف النشط وتفريغ خانة التحديد في حال الضغط خارج النطاق المحدد

[ابو تميم]

أسعد الله أوقاتكم في هذا المنتدى المتميز

لدي ملف اكسل يحتوي على جدول تم تحديده كما يلي

إذا تم تحديد خلية في الجدول يتم كتابة قيمة أول خلية في الصف في مربع تم تحديده لهذه الغاية

ولكن إذا قمنا بتحديد خلية خارج نطاق هذا الجدول تبقى الخلية المشار إليها تحتفظ بالقيمة القديمة التي تمت كتابتها فيها

المطلوب هنا هو عند تحديد خلية خارج نطاق الجدول يتم تفريغ الخلية C3 المشار اليها في المثال وأن لا تحتفظ بالقيمة القديمة

ولكم جزيل الشكر والتقدير

تحديد رقم الصف النشط وتفريغ خانة التحديد في حال الضغط خارج النطاق المحدد.rar

[عبدالله المجرب]

السلام عليكم

اخي ابو تميم

استبدل الكود بهذا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[C3].Value = ""

If Not Intersect(Target, [A11:C23]) Is Nothing Then

[C3].Value = Cells(Target.Row, 1).Value

End If

Application.ScreenUpdating = False

End Sub

[ابو تميم]

أخي العزيز ابو احمد

جزاك الله كل الخير

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

جزاك الله كل الخير

تم تعديل الكود وهو يعمل بشكل جيد

ولكن لدي مشكلة لاحظتها بعد تعديل الكود وهي انه تم تخصيص زر انتقال من الصفحة الحالية إلى صفحة أخرى بالاعتماد على قيمة الخلية المحددة C3 ولكن هنا وبعد تعديل الكود عندما أحدد الصف المطلوب تظهر القيمة المطلوبة داخل الخلية C3 ولكن عند الضغط على زر الانتقال فإنه هنا يعتبر ذلك بأنه خارج النطاق ويقوم بتفريغ الخلية C3 وهنا يتعارض عمل زر الانتقال مع قيمة الخلية بما أنها هنا أصبحت ( " " )

هل يمكننا التعديل على الكود بحيث أنه يقوم بتفريغ الخلية C3 فقط في حال الضغط وتحديد خلية أخرى خارج النطاق ؟؟؟

لك كل الشكر والتقدير على جهودك

تم تعديل مارس 9, 2012 بواسطه ابو تميم

[منياوى]

بعد التحية

اذا كان هناك عمود يحتوى مجموعة أرقام وليكن من 1 الى 60  أريد معادلة لعد أرقام مجال معين و ليكن مثلاً من 20 الى  50 

تم تعديل مارس 2, 2015 بواسطه jo11

[ياسر خليل أبو البراء]

تفضل وإن كنت أحبذ دائما أن تكون الطلبات بعنوان واضح في موضوع مستقل

=SUMIFS($A$1:$A$10,$A$1:$A$10,">="&20,$A$1:$A$10,"<="&50)

بفرض أن الأرقام في النطاق A1:A10 ...

[منياوى]

أشكرك على سرعة الرد و لكن المعادلة لا تعمل علماً أننى أستخدم أوفيس 2007

 

طلب أخر :

 

اذا كانت درجة مادة من 60 و أريد استخراج الدرجات التى تساوى نسبتها من 50% الى أقل من 65% فما هي المعادلة

[ياسر خليل أبو البراء]

أخي أفضل طرح موضوع جديد

بالنسبة للمعادلة تعمل بنسبة 100% والأوفيس عندي 2007 أيضاً

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

=SUMIFS($A$1:$A$10;$A$1:$A$10;">="&20;$A$1:$A$10;"<="&50)

إذا لم توفي هذه المعادلة طلبك .. فرجاء اطرح موضوع مستقل

تقبل تحياتي