Tuesday, October 4, 2016

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 diatas..!! 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 
  • 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.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon