VBA Excel Pemula 15 : Cara Mengubah Font Jadi Bold, Italic, dan Underline

VBA Excel Pemula 15 : Cara Mengubah Font Jadi Bold, Italic, dan Underline - Perhatikan gambar gif dibawah..!! agar paham maksud dan tujuan dari posting VBA Excel Pemula 15.

Pada gambar gif diatas terlihat pada Range A1 hingga C1 terjadi perubahan Font menjadi Bold, pada Range A2 hingga C6 terjadi perubahan Font menjadi Italic dan pada Range C7 terjadi perubahan Font menjadi Underline. Bagaimana caranya..!!! Ikuti langkah-langkahnya saja yeah..!!

Cara Mengubah Font Jadi Bold, Italic, dan Underline

Mempelajari kode Vba Excel secara otodidak, Admin sangat menyarankan membuat berbagai macam contoh file experiment agar cepat memahami dan mengetahui fungsi serta alur kerja kode.

Jika hanya membaca teori saja tanpa mempraktekkannya maka sedikit kemungkinan teori itu bermanfaat.

Ikuti langkah-langkah yang admin sajikan secara otodidak selangkah demi selangkah hingga anda dapat membuat contoh file yang sama.

Semoga artikel ini menjadi salah satu referensi bagi yang sedang mencari informasi tentang Cara Mengubah Font Jadi Bold, Italic, dan Underline

Cara Mengubah Font Jadi Bold, Italic, dan Underline

Buka Excel dan Pilih Tab Developer selanjutnya klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11.

Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 15" dan tambahkan CommandButton1 dengan Caption "BOLD", CommandButton2 dengan Caption "ITALIC" dan CommandButton3 dengan Caption "UNDERLINE"

Klik kanan pada CommandButton1 Caption "BOLD", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton1_Click()

Worksheets("Sheet1").Range("A1:C1").Font.Bold = True

End Sub

Klik kanan pada CommandButton2 Caption "ITALIC", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton2_Click()

Worksheets("Sheet1").Range("A2:C6").Font.Italic = True

End Sub

Klik kanan pada CommandButton1 Caption "UNDERLINE", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton3_Click()

Worksheets("Sheet1").Range("C7").Font.Underline = True

End Sub

Selesai..!!

Uji jalankan aplikasi dengan cara klik Run atau dengan menekan tombol F5. Bila anda sudah mengikuti dengan benar, maka aplikasi untuk akan berjalan sebagaimana mestinya.

Download : Aplikasi Pemula 15

Demikian Posting VBA Excel Pemula 15 : Cara Mengubah Font Jadi Bold, Italic, dan Underline. Semoga dapat digunakan dan dikembangkan menurut kebutuhan masing-masing.

Bila ada memiliki pertanyaan atau kode untuk dimodifikasi maka dapat dishare di kolom komentar.