
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 :
- Buka jendela Microsoft Visual Basic Editor dengan menekan tombol pintas
ALT + F11 - 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
- Langkah terakhir adalah, menjalankan kode yang telah dibuat di atas dengan cara menekan ikon
► atau tombolF5 yang terdapat dalam keyboard.

Jika menginginkan hasil font sesuai dengan aslinya, maka tambahkan baris kode berikut di dalam serangkaian kode
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.
Terimakasih sudah membaca
Tutorial: Menampilkan Font Yang Terinstal di Komputer
Label: Macro VBA - Author: excelive
Tutorial: Menampilkan Font Yang Terinstal di Komputer
Label: Macro VBA - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :