Salah satu dari sekian banyaknya dari kelebihan komputer adalah banyaknya jumlah jenis huruf (atau yang biasa kita sebut dengan font) yang bisa digunakan, sehingga memungkinkan kita untuk menghasilkan dokumen dengan variasi jenis huruf.

Hampir semua Aplikasi yang terdapat di dalam komputer termasuk aplikasi Microsoft Excel memiliki pilihan untuk memilih dan merubah jenis huruf yang ingin digunakan untuk menghasilkan hasil ketikan yang lebih bervariatif.

Kita tinggal memilih nama jenis huruf yang terdapat di ribbon home kategori font, dan kemudian kita aplikasikan untuk huruf, kata, atau kalimat yang terdapat di dalam sebuah sel ataupun range. Hasilnya adalah, huruf yang terpilih baik di dalam sel ataupun dalam range akan memiliki tampilan sesuai dengan font yang dipilih.

Akan tetapi, Jika ingin menampilkan semua jenis huruf atau font yang terinstal dalam komputer, barangkali akan sedikit susah jika harus dilakukan secara manual, belum lagi jika font yang terinstal di dalam komputer berjumlah sangat banyak. Maka dari itu, solusi untuk menampilkan semua font yang terinstal di dalam komputer dan menghasilkan tulisan yang sama persis dengan font yang dimaksud adalah dengan menggunakan Macro VBA, seperti langkah berikut ini :

1. Buka jendela Microsoft Visual Basic Editor dengan menekan tombol pintas ALT + F11
2. Buat sebuah module baru, kemudian ketikkan baris kode berikut didalamnya
   

   Sub ShowInstalledFonts()
   Dim DaftarFont As CommandBarControl
   Dim TempBar As CommandBar
   Dim i As Long
   
   Application.ScreenUpdating = False
   Set TempBar = Application.CommandBars.Add
   Set DaftarFont = TempBar.Controls.Add(ID:=1728)
   
   Range("A:A").ClearContents
   For i = 0 To DaftarFont.ListCount - 1
   Cells(i + 1, 1) = DaftarFont.List(i + 1)
   Next i
   
   TempBar.Delete
   Application.ScreenUpdating = True
   End Sub
   

3. Langkah terakhir adalah, menjalankan kode yang telah dibuat di atas dengan cara menekan ikon ► atau tombol F5 yang terdapat dalam keyboard.

Hasil dari kode di atas hanya menampilkan nama-nama font yang terinstal di dalam komputer, seperti tampak dalam tampilan berikut

Jika menginginkan hasil font sesuai dengan aslinya, maka tambahkan baris kode berikut di dalam serangkaian kode For ... Next

Cells(i + 1, 1).Font.Name = DaftarFont.List(i + 1)

Hasil akhir dari penambahan baris kode


Silahkan mencoba, dan pilih mana yang sesuai dengan kebutuhan Anda.

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :