< návrat zpět

MS Excel

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

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
Lugr


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
avatar
Super - přesně tohle jsem myslel.
Moc děkuji! 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje