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

Příspěvky uživatele

V tom prípade sú zlé aj metre. Kompletne by to malo byť takto:
[<10] 0,0" mm";[<100] #0,00" cm";#0,00" m"

Prosím prepáčte, len som sa zle vyjadril. Všetko platí, stačí formát upraviť na:
[<10] 0,0" mm";[<100] #0,00" cm";0,00 " m"

Skúste tento postup:

Sub pokus()
pomoc = Workbooks.Count
Application.DisplayAlerts = False
Workbooks(pomoc - 1).Close
Application.DisplayAlerts = True
End Sub

a dá sa aj

Sub pokus()
Application.DisplayAlerts = False
Workbooks(Workbooks.Count - 1).Close
Application.DisplayAlerts = True
End Sub

S cm je problém s medzerou (u mňa zapísanou podčiarkovníkom), ktorá znamená delenie (hodnoty) tisícom.
[<100] 0,00_" cm"
potom 90 => 0,09 cm
Okrem toho nuly sú povinné rády a pri cm a chýba definícia voľných numerických rádov #. cm by som definoval:
[<100] #0,00" cm"

Robím to pomocou dvoch vzorcov. Prvý do stĺpca A na každý riadok dám podmienku, ktorá testuje vyplnenie stĺpca D a keď je v D prílušnom riadku hodnota, vráti číslo riadku.
a5=IF(d5<>"";row();0)
Okrem toho mám v A1=max(a3:a1000000) a túto hodnotu nastavím ako spodný okraj tlačovej oblasti, týmto príkazom vo VBA.
ActiveSheet.PageSetup.PrintArea = "c3:m" & range("A1")

Takto sa vždy nastaví každá strana sama volaním

Call NastTlačObl("c3:m", ActiveSheet.Range("A1"))

makra

Sub NastTlačObl(odazstlp As String, poriadok As Double)
1)), poriadok)
ActiveSheet.PageSetup.PrintArea = odazstlp & poriadok
End Sub

Ja som si myslel, že rozumiem češtine, ale Merlin99 ma presvedčil o opaku. Vôbec nechápem o čom točí a vôbec nechápem potrebu robiť tabuľku na stojato tj. dátumy hore (ako názvy stĺpcov) a položky v danom stĺpci v riadkoch. Ja by som to otočil. Tiež nikde nie je jasné z ktorého stĺpca chce údaje prepisovať?

Na odpichnutie času pre prvú zmenu zmenu bunky (B1) sa dá použiť aj zacyklený vzorec v A1
=IF(B1<>"";NOW();A1)
ak chcete hodnotu resetnúť (na nové odpichnutie času) je potrebné znova zapísať vzorec.
Ináč dobrá je aj klávesová skratka
Ctrl+; je dátum a
Ctrl+(shift)+: je čas
ak stlačíte CTRL; medzeru a CTRL: máte v bunke hodnotu Now().

Ja by som to riešil malým makrom a kontingenčnou tabuľkou. V prílohe

V 2016
=TEXTJOIN(",";TRUE;A2:A7)

Nie čo podobné sa preberalo na tejto adrese:
http://www.jaknaoffice.cz/2-forum/?id=1932
kde je aj môj príspevok bez programovania pomocou PowerQuery.
Prikláňam sa však k názoru, že bez jedinej vzorky aj keď vymyslených údajov, Vám nedokáže nikto pomôcť a celé riešenie si budete musieť vytvoriť sami.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje