Hogyan lehet megszámolni az Excel oszlopában lévő csúcsok számát?

---

Számolja meg az Excel oszlopában található csúcsok számát

A következő képlet segíthet abban, hogy közvetlenül az Excelben megszámoljon egy csúcsot egy adatoszlopban.

1. Válasszon egy üres cellát az eredmény elhelyezéséhez, írja be a képletet =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) be a Formula Bar, majd nyomja meg az gombot belép kulcs. Lásd a képernyőképet:

Megjegyzések: A képletben B3: B17 a tartomány a harmadik cellától (a fejléc cellával együtt) a lista második utolsóig, a B2: B16 a tartomány a második cellától (a fejléc celláját is beleértve) az utolsó előtti celláig lista, végül B4: B18 a tartomány hatóköre a negyedik cellától (a fejléc cellával együtt) a lista utolsóig. Kérjük, változtassa meg őket szükség szerint.

---

Jelölje meg az összes csúcsot egy szóródiagramon

Ezenkívül könnyen kitalálhatja az oszlop csúcsait, ha létrehoz egy szóródiagramot, és megjelöli az összes csúcsot a diagramon. Kérjük, tegye a következőket.

1. Válassza ki a C3 cellát, amely szomszédos a B3 cellával (a lista második cellájának értéke a fejléc nélkül), írja be a képletet = IF (ÉS (B3> B2, B3> B4), "csúcs", "") be a Formula Bar és nyomja meg a gombot belép kulcs. Ezután húzza lefelé a kitöltő fogantyút az összes csúcs megjelöléséhez az alábbi képernyőképen.

2. Válassza ki az x és y oszlopot, majd kattintson betétlap > Helyezzen be szórást (X, Y) vagy buborékdiagramot > Szórás egyenes vonalakkal és jelölőkkel szórási diagram beillesztésére a munkalapba. Lásd a képernyőképet:

3. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

4. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kód alatt a Kód ablakba.

VBA kód: Jelölje meg az összes csúcsot egy szóródiagramon

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

Megjegyzések: A kódban az 1. ábra a létrehozott szóródiagram neve, a „C1” pedig a súgó oszlop első cellája, amely tartalmazza az 1. lépésben alkalmazott képleteredményeket. Kérjük, változtassa meg őket az Ön igényei szerint.

5. megnyomni a F5 gombot a kód futtatásához. Ezután az összes csúcsot megjelöli a szóródiagram az alábbi képernyőkép szerint: