Cara mengubah warna font di vba (3 metode)

Anda dapat menggunakan salah satu metode berikut untuk mengubah warna font di Excel menggunakan VBA:

Metode 1: Ubah Warna Font Menggunakan Nama Warna VBA

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Makro khusus ini akan mengubah warna font di sel A1 menjadi merah.

Metode 2: Ubah Warna Font Menggunakan Nilai RGB

 SubChangeColor ()
Range(" A1 ").Font.Color = RGB(255,0,0)
End Sub

Makro khusus ini akan mengubah warna font di sel A1 menjadi warna yang sesuai dengan nilai RGB (merah hijau biru) (255,0,0) yang kebetulan berwarna merah.

Metode 3: Ubah Warna Font Menggunakan Kode Warna Heksadesimal

 SubChangeColor ()
Range(" A1 ").Font.Color = &H0000FF
End Sub

Makro khusus ini akan mengubah warna font di sel A1 menjadi warna yang sesuai dengan kode warna heksadesimal #FF0000.

Catatan #1: Anda harus mengetik &H di depan kode warna heksadesimal yang ingin Anda gunakan agar VBA dapat mengenalinya sebagai kode warna heksadesimal.

Catatan #2: Kode warna heksadesimal biasanya diwakili oleh enam karakter di mana dua karakter pertama mewakili kode merah, dua karakter tengah mewakili kode hijau, dan dua karakter terakhir mewakili kode biru.

Namun, Excel menukar dua nilai pertama dengan dua nilai terakhir. Jadi, kode warna heksadesimal untuk merah adalah FF0000 tetapi sebaiknya ketik 0000FF saja.

Contoh berikut menunjukkan cara menggunakan masing-masing metode dalam praktik.

Contoh 1: Mengubah Warna Font Menggunakan Nama Warna VBA

Katakanlah kita memiliki teks di sel A1 yang warna fontnya saat ini hitam:

Kita bisa membuat makro berikut untuk mengubah warna font di sel A1 menjadi merah:

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa warna font di sel A1 sekarang berwarna merah.

Contoh 2: Ubah Warna Font Menggunakan Nilai RGB

Katakanlah kita memiliki string teks dalam rentang A1:A5 yang warna fontnya saat ini hitam:

Kita bisa membuat makro berikut untuk mengubah warna font di sel A1:A5 menjadi merah:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = RGB(255,0,0)
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa warna font di setiap sel dalam rentang A1:A5 sekarang berwarna merah.

Contoh 3: Mengubah warna font menggunakan kode warna heksadesimal

Mari kita asumsikan lagi bahwa kita memiliki string teks dalam rentang A1:A5 yang warna fontnya saat ini hitam:

Kita bisa membuat makro berikut untuk mengubah warna font di sel A1:A5 menjadi merah:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = &H0000FF
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa warna font di setiap sel dalam rentang A1:A5 sekarang berwarna merah.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk properti VBA Font.Color di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghilangkan spasi pada string
VBA: Cara mengganti karakter dalam sebuah string
VBA: Cara menyisipkan baris dengan format