Mengubah Sebagian Text Menjadi Bold Pada Ms. Excel dengan VBA

<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

Ok Teman-teman, pernahkah anda mengalami suatu masalah dalam menyelesaikan pengetikan pekerjaan dengan Ms. Excel. Dimana kita ingin mengubah sebagian text dari beberapa gabungan kalimat hasil dari gabungan formula menjadi gabungan text bold (tebal), italic (miring) atau underline (garis bawah)?. Sebagai contoh misalnya  :

Gabungan Text 1 : Berdasarkan Surat Permohonan Rekanan dari

Gabungan Text 2 : CV. PERMATA  (text ini ingin kita bold/Italic/Underline kan)

Gabungan Text 3 : yang beralamat di

Gabungan Text 4 : Jl Dusun 1 RT. 0 RW. 0 Desa Subur Kec. Podo Seneng (text ini ingin kita bold/Italic/Underline kan)

Gabungan Text 5 : dengan pekerjaan yang telah dilaksanakan yaitu

Gabungan Text 6 : Pembangunan Drainase Lingkungan, Simpang Commah menuju Jl. Damai Dusun VIII Desa Podo Seneng Kec. Podo Seneng (text ini ingin kita bold/Italic/Underline kan)

Dimana gabungan text ke - 2, ke - 4 dan ke-6 ingin kita jadikan gabungan text bold/italic/underline kan adalah hasil dari suatu formula misalnya fungsi Lookup. Tentunya kita tidak akan berhasil melakukanya dengan cara memblok lalu menekan tombol toolbar bold/italic/underline pada letak cell pada gabungan formula tersebut, yang kita inginkan hingga hasil gabungan kalimatnya menjadi :

Berdasarkan Surat Permohonan Rekanan dari CV. PERMATA yang beralamat di Jl Dusun 1 RT. 0 RW. 0 Desa Subur Kec. Podo Seneng dengan pekerjaan yang telah dilaksanakan yaitu Pembangunan Drainase Lingkungan, Simpang Commah menuju Jl. Damai Dusun VIII Desa Podo Seneng Kec. Podo Seneng

Kita tidak dapat melakukanya langsung kedalam rumus, tanpa melakukan CopyPaste sebagai nilai atau Value terlebih dahulu lalu mengubahnya secara manual dari formula bar. Hal ini sangat lah lama seandainya kita menginginkan waktu pengerjaan yang sesingkat-singkatnya karena banyaknya tugas yang akan dikerjakan.

Untuk menyelesaikan masalah tersebut, kita dapat memanfaatkan fasilitas Visual Basic pada Ms. Excel melalui pembuatan sebuah tombol. Jika kita klik tombol tersebut, maka otomatis melakukan CopyPaste seperti yang kita inginkan diatas.

Langkah 1 :

Membuat gambar kotak tombol melalui menu Insert >> terus klik Shepes >> Ractangle

<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

dan buat juga caption/ judul kotaknya dengan nama DiBold

Langkah 2 :

Mengingat letak cell yang terdapat kata yang mau kita bold, contoh :

Gabungan Text 1 : Berdasarkan Surat Permohonan Rekanan dari (di Cell A1)

Gabungan Text 2 : CV. PERMATA  (text ini ingin kita bold/Italic/Underline kan) (Cell A2)

Gabungan Text 3 : yang beralamat di (Cell A3)

Gabungan Text 4 : Jl Dusun 1 RT. 0 RW. 0 Desa Subur Kec. Podo Seneng (text ini ingin kita bold/Italic/Underline kan) (Cell A4)

Gabungan Text 5 : dengan pekerjaan yang telah dilaksanakan yaitu (Cell A5)

Gabungan Text 6 : Pembangunan Drainase Lingkungan, Simpang Commah menuju Jl. Damai Dusun VIII Desa Podo Seneng Kec. Podo Seneng (text ini ingin kita bold/Italic/Underline kan) (Cell A6)

Lalu di Cell A7 adalah gabungan text yang kita inginkan dapat menggunakan rumus :

=CONCATENATE(A1;A2;A3;A4;A5;A6)

Cell A8 adalah hasil akhir pengCopyan yang ingin kita letakkan. lalu aturlah isi dalam Cellnya nanti menjadi rata-rata dengan cara ketik Ctrl 1 >> Klik Alignment >>Lihat Text Alignment >> Klik tombol panah pada CommboBox Horizontal >> Klik Justify.

Langkah 3 :

Klik kanan pada kotak Bold yang kita buat, terus klik Assign Macro

Ganti Nama Macronya dengan Dibold_Click dengan tujuan kalau kita memiliki banyak gambar tombol pada bentuk ini tidak kesulitan dalam mencari. Lalu klik New

hasil tampilan visual basic seperti ini

Langkah 4 :

Lalu ketik Script di bawah ini :

Sub DiBold_Click()
Application.ScreenUpdating = False
Range("a7").Copy
With Range("a8")
    .PasteSpecial xlPasteValues
    .Characters(WorksheetFunction.Find(Range("a2"), Range("a8").Value, 1), Len(Range("a2"))).Font.Bold = True
    .Characters(WorksheetFunction.Find(Range("a4"), Range("a8").Value, 1), Len(Range("a4"))).Font.Bold = True
    .Characters(WorksheetFunction.Find(Range("a6"), Range("a8").Value, 1), Len(Range("a6"))).Font.Bold = True
End With
End Sub

Jika selesai silahkan di uji coba dengan tekan tombol f5 atau toolbar run. Lalu simpan mengklik Save As pada menu File sebagai Excel Maco - Enabled Workbook

Semoga bermanfaat...