Iš pirmo žvilgsnio galite pamatyti, kurie šriftai galimi „Excel“
Galite lengvai pasirinkti langelio šriftą. Tačiau įdiegtų šriftų sąrašas yra ilgas. Jei ieškote tinkamo ekrano šrifto arba norite šiek tiek eksperimentuoti su šriftais, jums padės makrokomanda.
Jei norite išvardyti visus galimus šriftus naujos darbaknygės A stulpelyje, naudokite šią makrokomandą:
Antriniai šriftai Enter ()
Šviesinti šriftų sąrašą kaip „CommandBarControl“, skaičiuoti kaip sveiką skaičių
Application.ScreenUpdating = Netiesa
Darbaknygės. Pridėti
Nustatyti šriftų sąrašą = Application.CommandBars.FindControl (ID: = 1728)
Skaitliukui = 1 Į šriftų sąrašą. ListCount
Su langeliais (skaitiklis, 1)
.Value = Šriftų sąrašas. Sąrašas (skaitiklis)
.Font.Name = Šriftų sąrašas. Sąrašas (skaitiklis)
Pabaiga su
Kitas skaitiklis
Stulpeliai (1). AutoFit
Application.ScreenUpdating = Tiesa
Pabaiga Sub
„Excel“ į langelius įveda kiekvieno šrifto pavadinimą ir iškart suformatuoja langelį atitinkamu šriftu. Toliau pateikta iliustracija parodo, kaip tai gali atrodyti:
