eLCHa napsal/a:
@marjankaj
Škoda že není "reverzní funkce" k HODNOTA.NA.TEXT - tedy já o ni nevím a proto se ptám - nic jsem nenašel.
Něco jako HODNOTA, ale s parametrem, v jakém formátu je text, takže nějak
=HODNOTA("20-pro-2012") česká verzia
=VALUE("20-dec-2012") anglická verzia
Text medzi apostrofmi sa nekonvertuje, teda treba to zabezpečiť inak. Makrom, alebo nejako zložito funkciou REPLACE(Nahradit) alebo SUBSTITUTE.
A zazipoval si ten súbor?
=IF(B1<>"";A1;"")
česky
=KDYŽ(B1<>"";A1;"")
Ako si to skopíroval? Odkiaľ?
Neviem, či som to dobre pochopil. Skús toto.
Sub Makro1()
Dim oblast As Range
Set oblast = Range(Selection, Selection.Offset(0, 8))
Range(oblast, oblast.End(xlDown)).Copy oblast.Offset(1, 0)
With Selection
Range(.Offset(0, 0), .Offset(0, 2)).ClearContents
Range(.Offset(0, 4), .Offset(0, 8)).ClearContents
End With
Set oblast = Nothing
End Sub
A tu je súbor. S prepínačmi.
Robil som to v open office, tam MROUND fungovalo.
Tak potom trochu inak.
=COUNTIF(ZAOKROUHLIT(R1C1:R3C1*2;1)/2;0,15)
A maticovo. CTRL+SHIFT+ENTER
Ako to zaokrúhľuješ?
=COUNTIF(MROUND(A1:A3;0,05);0,15)
Maticovo
Sheets(1).Visible=xlSheetVeryHidden
Sheets(1).Visible=xlSheetVisible
Sheets(1).Visible=xlSheetHidden
Tak to napíšem tretíkrát.
Prilož súbor.
Zadaniu nerozumiem ani ja. Dokonca ani keď AL napísal riešenie.
A myslím,že zadávateľovi to veľmi nepomôže.
No hin se hukáže.
AL napsal/a:
len poznámka: Optimalizácia v prípade jednej dimenzie (rezanie rúry, strihanie drôtu) je v exceli triviálna vec. Zaujímavejšie a pomerne zložité je optimalizovať napr. rezanie plechu (2D), či rezanie nejakých 3D súčiastok napr. z kvádra...
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.