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");"")
Sheets("Harok1").Cells(Radek, 8)= Cells.(Radek, 5)*Cells.(Radek, 7)
sumif(A1:A20;">0")
sumif(A1:A20;"<0")
Asi takto sa to tvorí. Ako píše aj pavlus.
Hyperbolický paraboloid.
IF((A1+A2+A3)<20;"nízke hodnoty";IF((A1+A2+A3)>31;"vysoké hodnoty";"stredné hodnoty"))
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.