كيف يمكن عدّ عدد القمم في عمود بيانات بـ Excel؟
بافتراض وجود عمودين من البيانات في ورقة العمل الخاصة بك كما يظهر في لقطة الشاشة على اليسار، كيف يمكنك حساب عدد القمم في العمود B؟ في الواقع، يمكن اعتبار قيمة خلية (مثل B3) قمةً إذا كانت أكبر من الخليتين المجاورتين لها معًا — أي من B2 وB4. أما إذا لم تستوفِ هذين الشرطين معًا، فلا تُعد قمةً. وتتناول هذه المقالة طريقة سرد وحساب جميع القمم في عمود بيانات ضمن Excel.
عدّ عدد القمم في عمود بيانات في Excel
يمكنك استخدام الصيغة التالية لعدّ عدد القِمم في عمود البيانات مباشرةً في Excel.
1. حدد خلية فارغة لوضع النتيجة، ثم أدخل الصيغة=SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) فيشريط الصيغة، واضغط مفتاحEnter. راجع لقطة الشاشة:
ملاحظة: في الصيغة، يشير B3:B17 إلى النطاق من الخلية الثالثة (بما في ذلك خلية العنوان) حتى الخلية الثانية قبل الأخيرة في القائمة، ويشير B2:B16 إلى النطاق من الخلية الثانية (بما في ذلك خلية العنوان) حتى الخلية الثالثة من نهاية القائمة، وأخيرًا يشير B4:B18 إلى النطاق من الخلية الرابعة (بما في ذلك خلية العنوان) حتى الخلية الأخيرة في القائمة. يُرجى تعديلها حسب احتياجاتك.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
تحديد جميع القمم في رسم بياني تشتت
بالإضافة إلى ذلك، يمكنك بسهولة تحديد قمم العمود من خلال إنشاء مخطط تشتت وتمييز جميع القمم فيه. يُرجى اتباع الخطوات التالية:
1. حدد الخلية C3 المجاورة للخلية B3 (وهي القيمة الثانية في قائمتك باستثناء العنوان)، ثم أدخل الصيغة=IF(AND(B3>B2,B3>B4), «Peak»,«») فيشريط الصيغةواضغط مفتاحEnter. بعد ذلك، اسحب مقبض الملء لأسفل لتحديد جميع القمم كما هو موضح في لقطة الشاشة أدناه.
2. حدد العمود X والمحور Y، ثم انقر فوقإدراج > إدراج مخطط مبعثر (X، Y) أو رسم بياني فقاعة > مخطط مبعثر بنقاط بيانات وعلاماتلإدراج رسم بياني تشتت في ورقة العمل. راجع لقطة الشاشة:
3. اضغط مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
4. في نافذةMicrosoft Visual Basic for Applications، انقر فوقإدراج > وحدة نمطية. بعد ذلك، انسخ ولصق كود VBA أدناه في نافذة الكود.
كود VBA: تحديد جميع القمم في رسم بياني تشتت
Sub CustomLabels()
Dim xCount As Long, I As Long
Dim xRg As Range, xCell As Range
Dim xChar As ChartObject
Dim xCharPoint As Point
On Error Resume Next
Set xRg = Range("C1")
Set xChar = ActiveSheet.ChartObjects("Chart 1")
If xChar Is Nothing Then Exit Sub
xChar.Activate
xCount = ActiveChart.SeriesCollection(1).Points.Count
For I = 1 To xCount
Set xCell = xRg(1).Offset(I, 0)
If xCell.Value <> "" Then
Set xCharPoint = ActiveChart.SeriesCollection(1).Points(I)
xCharPoint.ApplyDataLabels
xCharPoint.DataLabel.Text = xCell.Value
xCharPoint.DataLabel.Left = xCharPoint.DataLabel.Left - 15
xCharPoint.DataLabel.Top = xCharPoint.DataLabel.Top - 7
End If
Next
End Subملاحظة: في الكود، يشير "Chart 1" إلى اسم مخطط التشتت الذي أنشأته، وتشير "C1" إلى الخلية الأولى في العمود المساعد الذي يحتوي على نتائج الصيغة التي طبّقتها في الخطوة 1. يُرجى تعديلها وفقًا لاحتياجاتك.
5. اضغط مفتاحF5 لتشغيل الكود. بعد ذلك، سيتم تحديد جميع القمم في رسم بياني تشتت كما في لقطة الشاشة أدناه:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل