حساب او معرفة اكبر قيمة مكررة

[جمال جبريل]

حساب او معرفة اكبر قيمة مكررة، اي لدي مجموعة من القيمة في جدول اريد معرفة اكثر قيمة تم تكرارها في هذا الجدول، يوجد ملف مرفق.

سؤال آخر : عند نسخ قيمة ولصقها في جدول آخر ثم سحبها تاخذ القيمة التي تليها اي الصف الثاني ولكن اريدها تاخذ القيمة التي تليها اي بعد ترك صف واحد.

اكبر قيمة مكررة.rar

[طارق محمود]

السلام عليكم

أخي جبريل

مرفق حل سريع

يوجد دالة من دوال الإكسل مخصصة لهذا الغرض

ولكنها تتعامل مع الأرقام وليس مع الحروف

هي دالة MODE

لذلك يمكنك التحايل علي ذلك كالتالي

تستبدل كل حرف من حروف الإتجاه برقم

مثلا

1 = E

2 = W

3 = N

4 = S

عن طريق Ctrl-h

كما فعلت أنا في المثال المرفق في الورقة الثانية

ثم تستخدم الدالة MODE

ومن الممكن أن تستبدل مرة أخري كل رقم بحرف من حروف الإتجاه

تفضل المرفق

الجزء الثاني من السؤال غير واضح

اكبر قيمة مكررة.rar

[جمال جبريل]

بارك الله فيك انا اعرف ان هناك طرق اخرى بالتحايل على البرنامج ولكن فهل هناك طريق بالمعادلات يمكن عمل هذا.

-----------------------------------------------------------------------------------------------------

اما السؤال الثاني :

فهل يمكن التحكم في زيادة عدد الصفوف والاعمدة عن طريق المعادلات مثلاً:

هل يمكن مثلا زيادة عدد الصف مثلا عند عمل المعادلة التالية :

=R12+1 ------- يؤدي الي زيادة عدد الصفوف الي =R13

رد مع اقتباس

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

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

أخي الكريم، بالنسبة للسؤال الأول (تعيين القيمة الأكثر تكرارا) يمكنك استعمال دالة الصفيف التالية:

 =INDEX(C3:N3,MATCH(MAX(COUNTIF(C3:N3,C3:N3)),COUNTIF(C3:N3,C3:N3),0))

في الخلية O3 وتاكيدها(CTRL+SHIFT+ENTER) ثم سحبها إلى الأسفل... وقد وضعتها في الملف المرفق...

أخوك بن علية

اكبر قيمة مكررة1.rar

تم تعديل مارس 22, 2011 بواسطه hben

[جمال جبريل]

شكرا جزيلا ، والله يوفقك ويزيدك من علمه، ارجو من الاجابة على السؤال الثاني ان امكن.

[يحيى حسين]

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

أخي جبريل إضافة لحل الاخ بن عليه

هذا حل أخر بطريقة أخرى

=INDEX($C3:$N3,0,MATCH(MAX(FREQUENCY(IF($C3:$N3<>"",MATCH($C3:$N3,$C3:$N3,0)),COLUMN($C3:$N3)-COLUMN($C3)+1)),FREQUENCY(IF($C3:$N3<>"",MATCH($C3:$N3,$C3:$N3,0)),COLUMN($C3:$N3)-COLUMN($C3)+1),0))

و لطلبك الثاني قمت بعمل الكود التالي جربه على ان تكون البيانات التي ترغب في نسخخها في العمود A و تريد نسخها الى b

Sub Excel4Us()

Dim LR As Long, i As Integer, r As Integer

LR = Range("a" & Rows.Count).End(xlUp).Row

r = 0

For i = 1 To LR Step 2

    r = r + 1

    Range("b" & r).Value = Range("a" & i).Value

Next i


End Sub

دمت في حفظ الله

[احمد فضيله]

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