اختيار خلايا من خلال عملية رياضية

[hairan]

الإخوة الأعزاء السلام عليكم

عندي سؤال متعلق بالاختيار أي اختيار خلايا معينة مثلا عندي 1000 خلية وأريد اختيار 100 منها على شرط وهو أن اخذ الفرق بين كل خليتين بالتساوي مثلا أن تكون الخلية الأولى 5 و الثانية 12 والثالثة 19 والرابعة 19 أي أن الفرق هو 7 بين خلية وأخرى بحيث تترك الخلايا الأخرى ويتم فرز أو بروز المختارة

[ابو اسامة العينبوسي]

السلام عليكم

يتم اخفائها او ما تريد

و هنا كود اخر يفي بالغرض ايضا

Sub hide7()
i = 5
For x = 1 To 1000
If cells(x, 1).Row Mod i = 0 Then
cells(x, 1).EntireRow.Hidden = True
i = i + 7
End If
Next x
End Sub

hide5_7.rar

hide5_7.rar

تم تعديل يوليو 26, 2008 بواسطه ابو اسامة العينبوسي

[رفيق محمد]

تسلم ايدك يا ابو اسامة

[sherko_bax]

اشكرك اخي الكريم ولي طلب اخر هل توجد طريقة اخرى اسهل

[طارق محمود]

السلام عليكم

بعد إذن أخي الفاضل أبوأسامة

يمكن يكون الحل بدون أكواد يناسب أخونا hairan

فكرت في حلها بالتنسيق الشرطي

أخي العزيز hairan

جرب المرفق

وأنتظر ردك

طارق

_________________________________.rar

[sherko_bax]

الاخوة الكرام ارجو ان لا اكون مصدر ازعاج لكن ما اريده ان يتم فرز هذه البينات بحيث تظهر لوحدها

[ابو اسامة العينبوسي]

السلام عليكم

عدل السطر التالى في الكود

Sub hide7()
Rows("1:1000").Hidden = True
i = 5
For x = 1 To 1000
If Cells(x, 1).Row Mod i = 0 Then
Cells(x, 1).EntireRow.Hidden = False
i = i + 7
End If
Next x
End Sub

Unhide5_7.rar