حذف أصغر عدد من كل سطر من ملف الإكسل

[حُسن الخلق]

السلام عليكم

أول مشاركة لي تبدأ بطلب للأسف :)

أريد مساعد  بملف الإكسل المرفق

المطلوب حذف أصغر قيمة موجودة في السطر

أي تصبح خلية العدد الأصغر فارغة

مع العلم أن عدد السطور يتجاوز المئة

لذلك أريد تعليمة أو ميكرو تقوم بهذا العمل

أرجو المساعدة  ...و شكرا مقدماً

حذف أصغر عدد من كل سطر.rar

[عبدالله باقشير]

السلام عليكم

استخدم الكود التالي

Sub kh_MinClear()
Dim R As Integer, M As Integer
For R = 2 To 200
If WorksheetFunction.Sum(Cells(R, "A").Resize(1, 6)) Then
    M = WorksheetFunction.Min(Cells(R, "A").Resize(1, 6))
    M = WorksheetFunction.Match(M, Cells(R, "A").Resize(1, 6), 0)
    Cells(R, M).ClearContents
End If
Next
End Sub

 

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الكريم، أهلا بك عضوا جديدا بين إخوانك وأهلك... تم تحضير كود يلبي المطلوب في الملف المرفق...

 

 

أخوك بن علية

 

 حذف أصغر عدد من كل سطر.rar

[جمال عبد السميع]

بعد إذن عالمى وعبقرى الوطن العربى كله ( عبدالله بقشير ) هذا حل أخر بالمعادلات

حذف أصغر قيمة.rar

[جمال عبد السميع]

أستاذى ( بن علية ) عفوا لم أنوة عن حضرتك لأنى لم أرى مشاركة حضرتك إلا بعد رفع مرفقى

[بن علية حاجي]

السلام عليكم ورحمة الله

أستاذى ( بن علية ) عفوا لم أنوة عن حضرتك لأنى لم أرى مشاركة حضرتك إلا بعد رفع مرفقى

أخي الحبيب محمود، والله لا مشكلة في ذلك وقد كنت تحضر ردك في الوقت نفسه مثلما حدث معي في رد أخينا الحبيب عبد الله، فجازاكما الله خيرا، ثم إن تنوع الحلول يعطي الموضوع نكهة جميلة جدا... بالإضافة إلى حلك بالمعادلات يمكن استعمال المعادلة التالية (في الخلية J2 من مرفقك ثم سحبها إلى اليسار ثم إلى الأسفل) :

 

 

=IF(MIN($A2:$F2)=A2;"";A2)
 

 

 

أخوك بن علية

[حمادة عمر]

السلام عليكم

موضوع رائع ومفيد حقا والاجمل في الموضوع

انه يجمع العمالقة وحلولهم الرائعة

 

الاستاذ القدير العلامة الخبير / عبدالله باقشير

الاستاذ القدير / بن علية حاجي

الاستاذ الرائع / mahmoud-lee

 

لكم مني اجمل تحيه ... دائما نتعلم من ابداعاتكم

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

[حُسن الخلق]

السلام عليكم

رؤية الردود أثلجت صدري

و لساني يعجز عن شكركم

أخجلتوني بكرمكم ..

و شكرا ..شكرا ..شكر

[زاكي بوشلاغم]

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

 وشكرا  جزيلا  انا  بحاجة  ماسة  اليها  Classeur2.rar

[زاكي بوشلاغم]

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

[أبو حنــــين]

السلام عليكم

في المرفق طريقتين اختر انسبهما

 

Classeur3.rar