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
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:
Note: 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
Note: 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
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!