VBA Excel: Trik Sakti Isi, Baca, Format, dan Kondisional di Sel

Halo, teman-teman! 👋
Hari ini kita bakal bahas VBA Excel, tapi dari sisi yang super fundamental: gimana caranya mengisi, membaca, menggunakan variabel dinamis, memformat, sampai pakai format kondisional buat sel di Excel. Bahas satu-satu, santai kayak di pantai yaa. 😎

📚 Artikel Terkait:

1. Mengisi Nilai ke Dalam Sel

Kalau kamu mau nulis sesuatu ke Excel pakai VBA, gampang banget. Misalnya mau tulis "Madrasah Maju" di A1? Begini caranya:


Sub IsiSel()
    Range("A1").Value = "Madrasah Maju"
End Sub

Mau isi angka juga sama aja:


Range("B2").Value = 100

Mudah? Ya pasti lah! 😁

2. Membaca Nilai dari Sel

Kebalikannya, kalau mau ambil isi sel ke dalam VBA, begini caranya:


Sub BacaSel()
    Dim isi As Variant
    isi = Range("B2").Value
    MsgBox "Isi sel B2 adalah: " & isi
End Sub

Hasilnya? Muncul pop-up manis: "Isi sel B2 adalah: 100" (kalau B2 isinya 100).

3. Menggunakan Variabel Dinamis

Kalau mau flexible, kita bisa pakai variabel buat menunjuk sel, bukan ketik manual alamatnya.


Sub IsiDinamis()
    Dim baris As Integer
    Dim kolom As Integer

    baris = 5
    kolom = 2

    Cells(baris, kolom).Value = "Isi Dinamis"
End Sub

Artinya, kalau baris = 5 dan kolom = 2, berarti yang diisi adalah sel B5. Besok mau pindah ke baris lain? Tinggal ubah variabelnya, beres!

4. Memformat Sel

Bukan cuma ngisi, kita juga bisa makeover tampilan selnya.


Sub FormatSel()
    With Range("B2")
        .Font.Bold = True
        .Font.Color = vbBlue
        .Interior.Color = vbYellow
        .Font.Size = 14
    End With
End Sub

Penjelasan cepat:

Bold tulisannya
Warna biru untuk teks
Background kuning untuk sel
Ukuran font dibesarkan jadi 14

5. Penerapan Format Kondisional Pakai VBA

Sama kayak Conditional Formatting di Excel biasa, tapi ini pakai VBA. Misalnya, mau warnai nilai siswa yang kurang dari 70 jadi merah:


Sub FormatKondisionalManual()
    Dim cell As Range

    For Each cell In Range("C2:C100")
        If IsNumeric(cell.Value) Then
            If cell.Value < 70 Then
                cell.Interior.Color = vbRed
            Else
                cell.Interior.Color = vbGreen
            End If
        End If
    Next cell
End Sub

Gampang banget:

Cek satu-satu nilai di kolom C
Kalau di bawah 70, sel berwarna merah
Kalau 70 ke atas, sel berwarna hijau

Mini Studi Kasus: Isi, Baca, Format, dan Kondisional Sekaligus

Yuk sekalian kita gabungkan semua skill di satu contoh nyata.

Skenario:

Kolom C berisi nilai siswa, isi otomatis angka 50–100
Format font besar dan tebal
Warnai merah kalau tidak lulus, hijau kalau lulus

Kode VBA-nya:


Sub AllInOneSiswa()
    Dim i As Integer
    Dim nilai As Integer

    For i = 2 To 11 ' Misal 10 siswa
        ' 1. Isi nilai acak
        nilai = Int((100 - 50 + 1) * Rnd + 50)
        Cells(i, 3).Value = nilai
        
        ' 2. Format font
        With Cells(i, 3)
            .Font.Bold = True
            .Font.Size = 14
        End With
        
        ' 3. Format warna kondisional
        If nilai < 70 Then
            Cells(i, 3).Interior.Color = vbRed
        Else
            Cells(i, 3).Interior.Color = vbGreen
        End If
    Next i
End Sub

Dengan sekali klik, semua siswa dapet nilai random, diformat, dan dikasih warna sesuai kelulusan. Mantap kan? 🚀

Kesimpulan

Hari ini kita udah belajar:

Mengisi nilai ke sel
Membaca isi sel
Variabel dinamis
Memformat tampilan sel
Format kondisional manual

Kalau kamu rajin latihan trik ini, kerjaan Excel kamu bakal secepat kilat! ⚡ Jadi, siap praktek dan bikin worksheet kamu makin keren? Let's gooo! 🔥

newExcelHeru

Cari Blog Ini