Cara Mengubah Warna Text Box Menggunakan Macro Di Excel

 Aplikasi Excelku. Selamat datang kembali di blog sederhana Saya ini, pada kesempatan kali ini Saya akan berbagi mengenai Aplikasi Excel, dan masih tentang Macro VBA. Sesuai dengan judul artikel/postingan ini, Saya akan memberikan sebuah tutorial sederhana mengenai Cara Mengubah Warna Text Box Menggunakan Macro.

Cara ini juga sudah Saya terapkan kedalam Aplikasi Cetak Kartu Pelajar Berbasis Excel yang sudah Saya bagikan melalui artikel/postingan Saya sebelumnya. Baiklah langsung saja kita menuju kepokok pembahasan kali ini, dan berikut ini langkah-langkahnya :

A. Menyisipkan Text Box

1. Siapkan sebuah Text Box, kita sisipkan sebuah Text Box ke dalam lembar kerja Ms. Excel kita. Caranya adalah klik menu Insert kemudian klik lagi pada Shapes, lalui pilih Text Box. Perhatikan gambar di bawah ini :

2. Kemudian tuliskan sebuah teks didalam Text Box tadi, pada contoh ini Saya menuliskan "Text Box Warna", perti pada gambar di bawah ini :

3. Selanjutnya ubah nama Text Box tersebut, disini Saya mengubah namanya menjadi "Objek1", caranya : Pastikan Text Box sedang aktif atau kita klik terlebih dahulu Text Box tersebut, kemudian di klom Name Range kita ubah menjadi "Objek1" kemudian tekan Enter pada keyboard :

B. Membuat Tombol

Tombol yang kita buat nanti akan kita jadikan Switch untuk mengubah warna dari Text Box yang kita buat tadi, dan pada contoh ini Saya akan membuat 3 (tiga) buah tombol, karena pada sontoh ini Saya akan mengubah warna Text Box tersebut dalam 3 (tiga) pilihan warna, yaitu : Merah, Biru, dan Kuning. Dan tombol yang Saya buat masih menggunakan Shape untuk jenisnya Saya menggunakan Rounded Rectangle :

Dan hasilnya adalah seperti pada gambar di bawah ini :

C. Menyisipkan Macro

Langkah berikutnya adalah menyisipkan Macro, dan karena disini Saya akan menggubah warna Text Box dalam 3 (tiga) pilihan warna, secara otomatis ada 3 (tiga) kode/script Macro, dan berikut ini kode/script Macro tersebut :

Macro 1 (Warna Merah)

Sub WarnaMerah()
    'https://aplikasiexcelku.blogspot.com
    ActiveSheet.Shapes.Range(Array("Objek1")).Select
                   If Range("a1").Value < 0 Then
     With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
    Else
        With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    End If
End Sub

Macro 2 (Warna Biru)

Sub WarnaBiru()
    'https://aplikasiexcelku.blogspot.com
    ActiveSheet.Shapes.Range(Array("Objek1")).Select
                   If Range("a1").Value < 0 Then
     With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 255)
        .Transparency = 0
        .Solid
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
    Else
        With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 255)

        .Transparency = 0
        .Solid
    End With
    End If
End Sub 

Macro 3 (Warna Kuning)

Sub WarnaKuning()
    'https://aplikasiexcelku.blogspot.com
    ActiveSheet.Shapes.Range(Array("Objek1")).Select
                   If Range("a1").Value < 0 Then
     With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
    Else
        With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
    End If
End Sub 

 

Catatan : Kode yang berwarna merah merupakan kode Macro untuk warna, Sobat Blogger bisa melihat kode-kode awarna melalui web ini .

Langkah selanjutnya adalah kita masuk ke halaman Visual Basic Ms. Excel kita, caranya klik pada menu Developer kemudian klik pada Visual Basic. Namun jika di lembar kerja Ms. Excel tidak ada menu Developer bisa menggunakan kombinasi tombol ALT+F11 pada keyboard. Di dalam halaman Visual Basic kita sisipkan sebauh Module, klik pada menu Insert kemudian klik lagi pada Module :

Kemudian copy dan paste kode/script Macro di atas (Macro1-Macro3) ke dalam module tersebut. sehingga menjadi seperti pada gambar di bawah ini :

Kemudian tutup halaman Visual Basicnya.

D. Penerapan Macro

Jika langkah-langkah di atas sudah selesai, saatnya kita menerapkan/mengaplikasikan kode/script Macro tadi ke masing-masing tombol yang sudah kita buat tadi, agar nantinya tombol tersebut bisa kita fungsikan/gunakan untuk mengubah warna dari Text Box sesuai dengan warna yang sudah kita tentukan sebelumnya. Caranya adalah : Klik kanan pada tombol yang sudah kita buat tadi, pada contoh ini Saya akan menerapkan Macro ke dalam tombol Red, klik kanan kemudian pilih Assign Macro :

 

 Kemudian pilih pada WarnaMerah, kemudian klik OK.

Untuk tombol yang lainnya silahkan lakukan sama seperti langkah-langkah di atas, hanya saja pada saat menentukan Macro silahkan pilih sesuai dengan warna yang sesuai dengan tombol kita. Jika sudah semuanya, kita lihat hasilnya. Dan berikut ini contoh  dari hasilnya :

Sobat Blogger juga bisa mengunduh file sample dari tutorial kali ini, silahkan Sobat Blogger unduh/donwload melalui link di bawah ini :

Download Sample File - Mediafire

Download Sample File - YandexDisk

Download Sample File - Box

Demikian mengenai  Cara Mengubah Warna Text Box Menggunakan Macro Di Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya, sekian, terimakasih, dan selamat mencoba.

Share :