كيفية حساب عدد القمم في عمود البيانات في Excel؟

---

عد عدد القمم في عمود البيانات في Excel

يمكن أن تساعدك الصيغة التالية في حساب عدد من القمم في عمود البيانات مباشرة في Excel.

1. حدد خلية فارغة لوضع النتيجة ، أدخل الصيغة =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) في شريط الفورمولا، ثم اضغط على أدخل مفتاح. انظر لقطة الشاشة:

ملاحظة: في الصيغة ، B3: B17 هو النطاق من الخلية الثالثة (بما في ذلك خلية الرأس) إلى الخلية الثانية الأخيرة من القائمة ، B2: B16 هو النطاق من الخلية الثانية (بما في ذلك خلية الرأس) إلى الخلية السابقة للأخيرة من الخلية القائمة ، وأخيرًا B4: B18 هو نطاق النطاق من الخلية الرابعة (بما في ذلك خلية الرأس) إلى آخر خلية في القائمة. الرجاء تغييرها كما تريد.

---

قم بتمييز جميع القمم في مخطط مبعثر

بالإضافة إلى ذلك ، يمكنك بسهولة اكتشاف قمم العمود عن طريق إنشاء مخطط مبعثر ووضع علامة على جميع القمم في المخطط. الرجاء القيام بما يلي.

1. حدد الخلية - C3 المجاورة للخلية B3 (قيمة الخلية الثانية في قائمتك باستثناء الرأس) ، أدخل الصيغة = IF (AND (B3> B2، B3> B4)، "Peak"، "") في شريط الفورمولا واضغط على أدخل مفتاح. ثم اسحب مقبض التعبئة لأسفل لتمييز جميع القمم كما هو موضح أدناه.

2. حدد العمود x و y ، وانقر فوق إدراج > قم بإدراج مخطط مبعثر (س ، ص) أو مخطط فقاعي > مبعثر بخطوط مستقيمة وعلامات لإدراج مخطط مبعثر في ورقة العمل. انظر لقطة الشاشة:

3. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الكود.

كود فبا: حدد كل القمم في مخطط مبعثر

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

ملاحظة: في الكود ، الرسم البياني 1 هو اسم المخطط المبعثر الذي تم إنشاؤه ، و "C1" هي الخلية الأولى في عمود التعليمات الذي يحتوي على نتائج الصيغة التي قمت بتطبيقها في الخطوة 1. يرجى تغييرها بناءً على احتياجاتك.

5. اضغط على F5 مفتاح لتشغيل الكود. ثم يتم وضع علامة على جميع القمم على الرسم البياني المبعثر على النحو التالي لقطة الشاشة: