Sorot 10 Nilai Tertinggi

VBA 13.jpg

Jika kita memiliki banyak data berupa angka kita dapat menyorot data tersebut dengan memilih 10 nilai tertinggi dengan kode vba.

Cara lain untuk menyorot secara manual adalah kita menggunakan conditional formatting yang ada pada ribbon Excel.

Namun kali ini kita akan membuat kode untuk menyorot 10 nilai tertinggi menggunakan kode vba.

Berikut kode yang akan kita gunakan untuk membuat sorot 10 nilai tertinggi. Setelah kode kita buat langkah sebelumnya harus kita lakukan adalah memblok semua nilai yang akan kita jalankan dengan kode ini.

 

Sub Sorot10NilaiTertinggi()

Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
End With
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub

 

Download File Contoh

zip.png  Sorot 10 Nilai Tertinggi - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Jl. Cilincing jakarta utara

Tulangan Sidoarjo Jatim

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
SMS only : 085 606 139 312  im3 (Mas Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Ali, M.Pd.