Sorot Nilai Yang Lebih Kecil

VBA 16.jpg

Pada artikel sebelumnya admin telah berbagi Bagaimana membuat kode untuk menyorot nilai yang lebih besar dari kriteria. Nah kali ini admin akan berbagi Bagaimana membuat kode menyorot nilai yang lebih kecil dari kriteria.

Sebelum kita menjalankan kode ini langkah pertama yang harus dilakukan adalah memblok semua daftar nilai yang akan kita sorot.

Berikut kode yang akan kita gunakan untuk membuat sorot nilai yang lebih kecil sesuai dengan kriteria.

 

 

Sub SorotNiLKecil()
Dim A As Integer
A = InputBox("Enter Lower Than Value", "Enter Value")
Selection.FormatConditions.Delete
'Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula:=i
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:=A
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.Font.Color = RGB(0, 0, 0)
.Interior.Color = RGB(31, 218, 154)
End With
End Sub

Alternatif lainnya kita bisa menggunakan kode berikut 

Sub SorotNilaiLebihKecilALTERNATIF()
    Dim i As Integer
    i = InputBox("Enter Lower Than Value", "Enter Value")
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLower, Formula1:=i
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
    .Font.Color = RGB(0, 0, 0)
    .Interior.Color = RGB(217, 83, 79)
    End With
End Sub

 

Download File Contoh

zip.png  Sorot Nilai Lebih Kecil - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Pens Sky Venture - Sukolilo Surabaya

Jl. Cilincing jakarta utara

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
WA : 085 606 139 312  im3 (CS / 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.
Patrick A. Kembuan, S.Kom
Ali, M.Pd.