Ви можете швидко подивитися, які шрифти доступні в Excel
Ви можете легко вибрати шрифт для комірки. Але список встановлених шрифтів довгий. Якщо ви шукаєте правильний шрифт для дисплея або хочете трохи поекспериментувати зі шрифтами, вам допоможе макрос.
Використовуйте такий макрос, якщо ви хочете перелічити всі доступні шрифти у стовпці А нової книги:
Підшрифти Enter ()
Затемнити список шрифтів як CommandBarControl, лічильник як ціле число
Application.ScreenUpdating = Неправда
Робочі зошити.Додати
Встановити список шрифтів = Application.CommandBars.FindControl (ID: = 1728)
Для лічильника = 1 До списку шрифтів.ListCount
З клітинками (лічильник, 1)
.Value = Список шрифтів. Список (лічильник)
.Font.Name = Список шрифтів. Список (лічильник)
Закінчити з
Наступний лічильник
Стовпці (1)
Application.ScreenUpdating = Істина
End Sub
Excel вводить назву кожного шрифту в клітинки і негайно форматує комірку відповідним шрифтом. Наступна ілюстрація показує, як це може виглядати:
