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

Příspěvky uživatele

Zde je to tedy uplně FULL, resp. uplně NIC

No, přílohy najednou nejde vkládat, takže takto:
něco si z toho vyberte:
Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

nebo jen takto. Zbytek již jistě dovedete upravit.

edit:
nějak nejdou zase vkládat přílohy, zkusím ještě jednou

A je nutné znát číslo chyby?, pro ten váš výsledek stačí =KDYŽ(JE.ČISLO(AE7);AE7;0)

Myslím, že by to chtělo přílohu.

Nějak si to nedovedu představit proč by se to nemělo měnit, ale budiž.
Bunku A1 pojmenujte třeba celA1 bunku B1 celB1 a vzorec nepiště jako =A1/B1, ale =celA1/celB1

zkus tohle
Sub Makro1()
lin = Cells(Rows.Count, "A").End(xlUp).Row
Rows(lin).Copy
Rows(lin).Insert Shift:=xlDown
Application.CutCopyMode = False
Cells(lin + 1, 1) = lin + 1
End Sub

Zkus toto. Jen jsem to upravil.

@ AL
Ten vzorec si samozřejmě přeložit umím, ale vypíše jen jednu a to první hodnotu zleva. Nefunguje jako fce concatenate. Alespoň já jsem zadání pochopil tak, že když tam bude v pěti buňkách jednička, tak vypíše 11111.
A to teda ten vzorec nedělá.
edit:
OK už to vidím, "hodnota je jen v jedné bunce" beru zpět, takto funguje.

@ AL mě teda ten vzorec nefunguje ani jako maticový (samozřejmě u nás v česku - česky)

ale to co jsi psal předtím jsem tu přiložil makrem.
tedy fce concatenate a místo copy -paste jsem použil rychlejší value = value.

To jde ale asi jen makrem, když tam chceš mít jen hodnotu a ne vzorec.
Ale tak jak to napsal AL je to také v pořádku, oblast označíš > Ctrl +C a dáš vložit jinak > hodnoty.

Mě to na ten formát měny funguje tak jak to máš, ale s úpravou: (zde u mě pro sl. A)

If Right(Cells(lin, "A").Text, 3) = "Kč " Then

right 3, protože za "Kč" je ještě mezera, takže "Kč "

to ostatní v kodu jsem nezkoumal

nic lepšího se mi nepodařilo

netuším, pokud to má být jiný popisek než hodnota či název řady.
Jednoduchý Ganttův diagram lze udělat jen v tabulce, ale má samozřejmě svoje omezení a není to graf, jen jakési vizuální zobrazení. viz příloha

zobrazit takto - popis v grafu ?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje