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

Příspěvky uživatele

Čo je to "šablóna"?
A nedal by sa priložiť aj súbor, aby bolo vidieť, o čo ide?

No neviem, či to má byť takto.

Klikni pravým tlačítkom na bunku s komentárom a vyber možnosť zobraziť komentár.

Nech sa páči.

možno takto?

Sub Pridat_radek()

'Přidá řádek pod poslední plný
Range("A9").End(xlDown).Activate
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).EntireRow.Copy
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
riadok = Selection.Row + 1
Range(Cells(riadok, 1), Cells(riadok, 13)).ClearContents
Range("A9").Select
Application.CutCopyMode = False
End Sub

No ak si vymeníš vzorce napríklad
=B22+B23+B24+B25
za
=SUM(B22:B25)
alebo česky
=SUMA(B22:B25)
Tak by to malo fungovať

Alebo takto?

Napríklad PROPER(A1) dá na začiatku každého slova veľké písmeno.
Ak chceš iba prvé písmeno(napríklad na začiatku vety, tak takto =UPPER(LEFT(A1;1))&RIGHT(A1;LEN(A1)-1)
česky asi =VELKA(ZLEVA(A1;1))&ZPRAVA(A1;DELKA(A1)-1)

Áno podobne

Sub Makro()
Range("A1").End(xlToRight).Activate
ActiveCell.EntireColumn.Insert
ActiveCell.Offset(0, 1).EntireColumn.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(0, 1).ClearContents
Range("A1").Select
Application.CutCopyMode = False
End Sub

Stačí si zaznamenať makro, tak ako potrebuješ. Tak som na to prišiel.

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Prilož súbor.

No tu sa to aktualizuje. Ale asi je vhodné to potom vyfiltrovať.

Alebo kontingenčnú tabuľku.

Veď je to iba niekoľko klikov.
Ak nechceš makrá, tak asi potom použiť iný program ako excel.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje