• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Nastavení velikosti písma přepínači

Zaslal/a parkovec 18.2.2022 22:51

Dobrý večer,
potřeboval bych v jedné buňce měnit velikost písma třemi přepínači.
Přepínač č.1 - velikost 36
přepínač č.2 - velikost 38
přepínač č.3 - velikost 40

Dalo by se to nějak udělat nebo aspoň nějaký jiný způsob, jak jednoduše měnit velikost písma v buňce bez nutnosti odemknutí listu a zápisu velikosti?

Zaslat odpověď >

---

Lugr(19.2.2022 9:01)#052142

Sub F_36()

Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

Application.ScreenUpdating = False
wsDATA.Unprotect Password:=""

wsDATA.Range("A1").Font.Size = 36

wsDATA.Protect Password:=""
Application.ScreenUpdating = True

End Sub

Sub F_38()

Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

Application.ScreenUpdating = False
wsDATA.Unprotect Password:=""

wsDATA.Range("A1").Font.Size = 38

wsDATA.Protect Password:=""
Application.ScreenUpdating = True

End Sub

Sub F_40()

Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")

Application.ScreenUpdating = False
wsDATA.Unprotect Password:=""

wsDATA.Range("A1").Font.Size = 40

wsDATA.Protect Password:=""
Application.ScreenUpdating = True

End Subcitovat

parkovec(19.2.2022 15:08)#052144

Super - přesně tohle jsem myslel.
Moc děkuji! citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse