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

Příspěvky uživatele

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.

Rozšírený filter

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

Prípadne druhý riadok nahradiť týmto

ActiveSheet.UsedRange.Cells(1, 1).End(xlDown).Activate

S podmieneným formátovaním to nejde. To by asi bolo trochu zložitejšie.
Najjednoduchšie by bolo to podmienené formátovanie nahradiť makrom.
Ale ak nepriložíš tvoj súbor, tak je to skôr veštenie.

Sub Makro1()
x = 0
For Each bunka In Intersect(Selection, ActiveSheet.UsedRange)
If (bunka.Interior.Color <> 16777215) Then x = x + 1
Next
MsgBox x
End Sub
Vyznač si stlpec a spusti makro

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje