Bagaimana menghitung jumlah puncak dalam kolom data di Excel?
Misalkan, dua kolom data ditempatkan di lembar kerja Anda seperti tangkapan layar kiri yang ditampilkan, bagaimana cara menghitung jumlah puncak di kolom B? Sebenarnya Anda bisa menilai nilai sel (seperti B3) sebagai puncak jika secara bersamaan lebih besar dari B2 dan B4. Jika tidak, itu bukan puncak jika tidak memenuhi kedua kriteria ini. Artikel ini membahas tentang membuat daftar dan menghitung semua puncak dalam kolom data di Excel.
Hitung jumlah puncak dalam kolom data di Excel
Rumus berikut dapat membantu Anda menghitung jumlah puncak dalam kolom data secara langsung di Excel.
1. Pilih sel kosong untuk menempatkan hasil, masukkan rumus =SUMPRODUCT(--(B3:B17>B2:B16),--(B3:B17>B4:B18)) ke dalam Formula Bar, lalu tekan tombol Enter kunci. Lihat tangkapan layar:
Note: Dalam rumusnya, B3: B17 adalah rentang dari sel ketiga (termasuk sel header) hingga sel terakhir kedua dari daftar, B2: B16 adalah rentang dari sel kedua (termasuk sel header) hingga sel antepenultimate dari daftar, dan akhirnya B4: B18 adalah cakupan rentang dari sel keempat (termasuk sel header) hingga yang terakhir dari daftar. Harap ubah sesuai kebutuhan Anda.
Tandai semua puncak dalam bagan sebar
Selain itu, Anda dapat dengan mudah mengetahui puncak kolom dengan membuat bagan sebar dan menandai semua puncak pada bagan tersebut. Silakan lakukan sebagai berikut.
1. Pilih sel - C3 yang berbatasan dengan sel B3 (nilai sel kedua dari daftar Anda tidak termasuk header), masukkan rumus = IF (AND (B3> B2, B3> B4), "Peak", "") ke dalam Formula Bar dan tekan tombol Enter kunci. Kemudian seret Fill Handle ke bawah untuk menandai semua puncak seperti gambar di bawah ini.
2. Pilih kolom x dan y, dan klik Menyisipkan > Masukkan Scatter (X, Y) atau Bubble Chart > Sebarkan dengan Garis Lurus dan Spidol untuk menyisipkan bagan sebar ke dalam lembar kerja. Lihat tangkapan layar:
3. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
4. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke jendela Kode.
Kode VBA: Tandai semua puncak dalam bagan sebar
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: Dalam kode, Bagan 1 adalah nama bagan pencar yang dibuat, dan "C1" adalah sel pertama dari kolom bantuan yang berisi hasil rumus yang Anda terapkan pada langkah 1. Harap ubah berdasarkan kebutuhan Anda.
5. tekan F5 kunci untuk menjalankan kode. Kemudian semua puncak ditandai pada bagan pencar seperti gambar di bawah ini:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!