< návrat zpět

MS Excel


Téma: zaokrouhlit nahoru rss

Zaslal/a 22.1.2016 17:54

Zdravím, mám číslo např 5,24785 a potřebuji ho zaokrouhlit na celé číslo směrem nahoru tzn. na 6. Našel jsem funkci ceiling, ale VBA mi píše function not defined?

Zaslat odpověď >

#029477
Hav-Ran
Vo verzii E2007
ActiveCell.FormulaR1C1 = "=CEILING(RC[-2],1)"
pričom zapisujem do bunky C1 a zaokruhlujem hodnotu v A1citovat
icon #029478
avatar
Sub test1()
Const i As Double = 5.24785
Dim j As Byte
j = WorksheetFunction.Ceiling(i, 1)
Debug.Print j
End Sub


Sub test2()
Const i As Double = 5.24785
Dim j As Byte
j = WorksheetFunction.RoundUp(i, 0)
Debug.Print j
End Sub


Sub test3()
Const i As Double = 5.24785
Dim j As Single
j = Sgn(i) * (Sgn(i) * Fix(i) - ((i - Fix(i)) <> 0))
Debug.Print j
End Sub
citovat
#029482
avatar
Děkuji. AL to trefil přesně 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21