Note: The other languages of the website are Google-translated. Back to English

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

Tegyük fel, hogy két oszlopnyi adat található a munkalapon, a bal oldali képernyőképen látható módon, hogyan lehet megszámolni a B oszlop csúcsainak számát? Valójában meg lehet ítélni egy cellaértéket (például B3) csúcsként, ha egyszerre nagyobb, mint B2 és B4. Egyébként nem csúcs, ha nem felel meg ennek a két kritériumnak. Ez a cikk az Excel összes oszlopában található összes csúcs felsorolásáról és megszámlálásáról szól.

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

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


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:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi