excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: do zápatí data z buňky
MS Excel
Téma: do zápatí data z buňky 
Zaslal/a wimpi 25.3.2009 14:03
Ahoj, neřešil jste někdo problém jak dostat do záhlaví či zápatí data přímo z určité buňky např (list1!A3)? Ať dělám co dělám nějak se mi to nedaří.
Díky
no to jsem zkoušel, ale chtěl jsem dynamický odkaz bez pravidelného spouštění makra. Tak asi nejde
Díkycitovat
Díkycitovat
Bez makra to asi nepůjde. To makro může být přímo na listu a navázáno na událost Change na listu. To se pak chová dynamicky => makro je spuštěno jakoukoliv změnou na listu (nebo jen určité oblasti na listu).citovat
(22.1.2025 13:56)#057185
Ahoj, a jak udělat aby se to makro aktualizovalo jen při změně určité buňky, případně ideálně před tiskem?citovat
ahoj,
do určeného listu (List1) vlož:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A3" Then Call tvojeMakro
End Sub
místo "tvojeMakro" vlož svoje makrocitovat
do určeného listu (List1) vlož:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A3" Then Call tvojeMakro
End Sub
místo "tvojeMakro" vlož svoje makrocitovat
Bezpečnejšie bude použiť Intersect, aby to odchytilo aj viacbunkovú zmenu.
If Not Intersect(Target, Range("A3")) Is Nothing Then Call tvojeMakrocitovat
If Not Intersect(Target, Range("A3")) Is Nothing Then Call tvojeMakrocitovat
(22.1.2025 22:01)#057188
Abych to shrnul, někde jsem tu zachytil že lze vyvolat aktualizaci až před tiskem což by bylo nejideálnější. Takže by to mělo fungovat asi tak, že před tiskem vloží makro hodnotu z buňky řekněme A1 daný text do pravé části zápatí. Šlo by? Díkycitovat
Do modulu ThisWorkbook (Tento_zošit) vložte:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Hárok1")
.PageSetup.RightFooter = .Range("A3").Value
End With
End Sub
Ale v náhľadovom okne to ešte neuvidíte, až keď dáte tlačiť, tak sa kód vykoná.citovat
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Hárok1")
.PageSetup.RightFooter = .Range("A3").Value
End With
End Sub
Ale v náhľadovom okne to ešte neuvidíte, až keď dáte tlačiť, tak sa kód vykoná.citovat
(23.1.2025 7:32)#057190
Nevim, asi dělám něco zle. Funguje to i na tisk do PDF? No nicméně, pokud to nepůjde vidět už v náhledu tisku tak by možná bylo lepší udělat to tak aby se záhlaví aktualizovalo už při změně buňky ze které se hodnota vezme, popřípadě to zkombinovat pokud to jde. Jen ještě z jiného soudku, chtěl jsem do záhlaví vložit obrázek což samo o sobě není problém, problém je, že při tisku je obrázek škaredě rozmázlý. Původní obrázek má kvalitu dostatečnou, když byl vložen normálně na listu a zmenšen na požadovanou velikost tak při tisku vypadal dobře ale nástroje pro záhlaví neumožňují měnit velikost obrázku a tak musel být zmenšen ještě před vložením ale tím utrpěl na kvalitě. Jsou jiné možnosti? Např jiný formát souboru obrázku?citovat
(23.1.2025 7:38)#057191
Beru zpět, až teď jsem si všiml že v makru je zápatí ale já měl v hlavě záhlaví tak jsem to hledal tam 
Takže makro funguje, nicméně jak bylo řečeno, změna se projeví až "na papíře", bylo by dobré to vidět ještě před samotným tiskem.citovat
Takže makro funguje, nicméně jak bylo řečeno, změna se projeví až "na papíře", bylo by dobré to vidět ještě před samotným tiskem.citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články