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

Jak policzyć liczbę szczytów w kolumnie danych w programie Excel?

Przypuśćmy, że w arkuszu znajdują się dwie kolumny danych, jak pokazano na lewym zrzucie ekranu, jak policzyć liczbę pików w kolumnie B? W rzeczywistości możesz ocenić wartość komórki (taką jak B3) jako wartość szczytową, jeśli jest jednocześnie większa niż B2 i B4. W przeciwnym razie nie jest szczytem, ​​jeśli nie spełnia tych dwóch kryteriów. W tym artykule mowa o wyświetlaniu i liczeniu wszystkich szczytów w kolumnie danych w programie Excel.

Policz liczbę pików w kolumnie danych w programie Excel

Zaznacz wszystkie piki na wykresie punktowym


Policz liczbę pików w kolumnie danych w programie Excel

Poniższa formuła może pomóc w policzeniu liczby szczytów w kolumnie danych bezpośrednio w programie Excel.

1. Wybierz pustą komórkę do umieszczenia wyniku, wprowadź formułę =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) do Pasek formuły, a następnie naciśnij Wchodzę klucz. Zobacz zrzut ekranu:

Uwagi: W formule B3: B17 to zakres od trzeciej komórki (łącznie z komórką nagłówka) do przedostatniej komórki na liście, B2: B16 to zakres od drugiej komórki (łącznie z komórką nagłówka) do przedostatniej komórki list, a na końcu B4: B18 to zakres od czwartej komórki (łącznie z komórką nagłówka) do ostatniej komórki na liście. Zmień je według potrzeb.


Zaznacz wszystkie piki na wykresie punktowym

Poza tym możesz łatwo obliczyć piki kolumny, tworząc wykres punktowy i zaznaczając wszystkie piki na wykresie. Wykonaj następujące czynności.

1. Wybierz komórkę - C3, która sąsiaduje z komórką B3 (druga wartość komórki Twojej listy bez nagłówka), wprowadź formułę = JEŻELI (AND (B3> B2, B3> B4), "Szczyt", "") do Pasek formuły i naciśnij Wchodzę klucz. Następnie przeciągnij uchwyt wypełnienia w dół, aby zaznaczyć wszystkie piki, jak pokazano poniżej.

2. Wybierz kolumnę xiy i kliknij wstawka > Wstaw wykres punktowy (X, Y) lub bąbelkowy > Rozpraszaj za pomocą prostych linii i znaczników aby wstawić wykres punktowy do arkusza. Zobacz zrzut ekranu:

3. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

4. w Microsoft Visual Basic for Applications kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Code.

Kod VBA: zaznacz wszystkie piki na wykresie punktowym

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

Uwagi: W kodzie Wykres 1 to nazwa utworzonego wykresu punktowego, a „C1” to pierwsza komórka w kolumnie pomocy zawierającej wyniki formuły zastosowane w kroku 1. Zmień je w zależności od potrzeb.

5. wciśnij F5 klucz do uruchomienia kodu. Następnie wszystkie piki są zaznaczane na wykresie punktowym, jak na poniższym zrzucie ekranu:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL