< návrat zpět

MS Excel


Téma: výška písma v záhlaví při tisku rss

Zaslal/a 20.8.2017 18:54

Nedaří se mi nahradit výška písma pomocí proměnné.
Velikost 40 potřebuji nahradit např. pomocí
vyska = InputBox("Zadej výšku řádku v rozmezí 12-40")
a 40 nahradit vyska. Nedaří se mi to zapsat.

.LeftHeader = "&40" & Sheets("tiskZmenyZahlavi").Range("b3")

Díky za pomoc.

Laďa

Laďa

Zaslat odpověď >

#037330
elninoslov
Príklad:
Sub NastavHlavisku()
Dim S As String, Vyska As Single
S = InputBox("Zadej výšku řádku v rozmezí 12-40", "Výška písma", 12)
If Not IsNumeric(S) Then MsgBox ("Chyba !"): Exit Sub
Vyska = Val(S)
If Vyska < 12 Or Vyska > 40 Then MsgBox ("Nesprávna veľkosť"): Exit Sub
ActiveSheet.PageSetup.LeftHeader = "&" & Vyska & Sheets("tiskZmenyZahlavi").Range("B3")
End Sub

Za ActiveSheet bude ten list na ktorý sa odkazujete cez With, a ten "tiskZmenyZahlavi" je asi iba zdroj textu...citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse