MS Excel

Téma: zaokrouhlit nahoru

Zaslal/a karel50 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ěď >

Hav-Ran(22.1.2016 18:24)#029477

Vo verzii E2007
ActiveCell.FormulaR1C1 = "=CEILING(RC[-2],1)"
pričom zapisujem do bunky C1 a zaokruhlujem hodnotu v A1citovat

AL(22.1.2016 18:41)#029478

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 Subcitovat

karel50(22.1.2016 20:13)#029482

Děkuji. AL to trefil přesně

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

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.