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

Příspěvky uživatele

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

Aj bielu farbu považuješ za farbu?

Trochu som to upravil.
Ale ak to chceš použiť priamo v liste, tak prečo nepoužiješ funkciu =ZLEVA(A1;2)? Alebo anglicky =LEFT(A1;2)

Function smazat_nesmazat(Retezec As String)as string
Dim x as string
if len(Retezec)=3 then x=left(retezec,2) else x=retezec
End If
smazat_nesmazat=x
End Function
Ale stačí ti to aj takto
Function smazat_nesmazat(Retezec As String)as string
smazat_nesmazat=left(retezec,2)
End Function

Sub AktualizaceCasu()
UserForm1.Label5.Caption = Format(tCas * 24 * 3600, "#")
NextTick = Now + TimeValue("00:00:01")
tCas = tCas + TimeValue("00:00:01")
Application.OnTime NextTick, "AktualizaceCasu"
End Sub

Možno aj takto.

Celkom nerozumiem otázke. Veď v neprestupnom roku ti dátum 29.2. vynecháva.

Stačí?

súbor

Do stlpca B5 daj vzorec =DATE(YEAR(B4);MONTH(B4)+1;DAY(B4))
A skopíruj až po B15
A do AD5 vzorec =IF(MONTH(AC5+1)=3;"";AC5+1))

Veď si to predsa chcel pre celé stĺpce G a J

Potřeboval bych radu, jak to upravit, aby to fungovalo pro pro všechny řádky v sloupci.

A čo takto?

=IF(AND(A2>100000;A2<800000);CHOOSE(MOD(A2/100000;9);"malé";$F$3;$G$3;$H$3;$I$3;$J$3;$K$3;$L$3;"velké";"ešte väčšie");"")

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje