Cari Nilai Tertinggi dan Namanya

May 3, 2009 at 3:51 pm 3 comments

Pertanyaan Pak Martono dari Pakisaji – Malang:
Bagaimana mencari nilai tertinggi sekalian dengan namanya ( bisa jadi nilai tertinggi ada dua orang atau lebih) digunakan untuk mencari nilai tertinggi untuk ujian, thank

Berikut solusinya:
Untuk mencari nilai tertinggi bisa digunakan fungsi Max() sedangkan untuk mencari nama bisa digunakan index atau vlookup.  Contoh berikut menggunakan fungsi Index(), Match() dan Max() dapat di download disini.

Nama Nilai Nilai tertinggi
Achmad 46 Dipo dengan nilai  88
Amir 21
Andi 42 dengan rumus
Budi 60 INDEX(A2:B11,MATCH(MAX(B2:B11),$B$2:$B$11,0),1)& ” dengan nilai  ” &MAX(B2:B11)
Badrun 86
Bakti 68
Dimas 50
Dipo 88
Sujiwo 69
Suharto 38

Entry filed under: Ms Excel, Tips, Tutorial. Tags: , , .

vba Bekerja dengan Workbooks Menggunakan Pivot Untuk Meringkas Data

3 Comments Add your own

  • 1. martono  |  May 5, 2009 at 3:03 am

    thank you mas.

    Reply
  • 2. Andre  |  June 3, 2018 at 6:03 am

    Bagaimana caranya untuk menampilkan variabel yang memiliki nilai yang sama dari data berikut.
    Nama Nilai
    Andi 86
    Budi 78
    Anto 86

    Sehingga Kolom komentar yang diinginkan menjadi
    Nilai tertinggi adalah Andi dan Anto.
    Terimakasih

    Reply
  • 3. aurino  |  June 10, 2018 at 5:34 pm

    Kalau untuk dua atau lebih yang sama harus menggunakan kolom antara dan dilengkapi dengan vba:

    Nama Nilai Max Gabung
    Anto 86 =IF(B3=MAX(rng),A3,””) =GabungTeks(“, “,1,C3:C7)
    Andi 78 =IF(B4=MAX(rng),A4,””)
    Amir 54 =IF(B5=MAX(rng),A5,””)
    Agus 86 =IF(B6=MAX(rng),A6,””)
    Achmad 72 =IF(B7=MAX(rng),A7,””)

    fungsi VBAnya adalah sbb:

    Option Explicit
    Function GabungTeks(delim As String, LoncatKosong As Boolean, arr)
    Dim d As Long
    Dim c As Long
    Dim arr2()
    Dim t As Long, y As Long
    t = -1
    y = -1
    If TypeName(arr) = “Range” Then
    arr2 = arr.Value
    Else
    arr2 = arr
    End If
    On Error Resume Next
    t = UBound(arr2, 2)
    y = UBound(arr2, 1)
    On Error GoTo 0

    If t >= 0 And y >= 0 Then
    For c = LBound(arr2, 1) To UBound(arr2, 1)
    For d = LBound(arr2, 1) To UBound(arr2, 2)
    If arr2(c, d) “” Or Not LoncatKosong Then
    GabungTeks = GabungTeks & arr2(c, d) & delim
    End If
    Next d
    Next c
    Else
    For c = LBound(arr2) To UBound(arr2)
    If arr2(c) “” Or Not LoncatKosong Then
    GabungTeks = GabungTeks & arr2(c) & delim
    End If
    Next c
    End If
    GabungTeks = Left(GabungTeks, Len(GabungTeks) – Len(delim))
    End Function

    Reply

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Enter your email address to subscribe to this blog and receive notifications of new posts by email.

Join 14 other followers

Blog Stats

  • 110,819 hits

Iklan


%d bloggers like this: