[Solved] Round all numeric cells to 2 decimals

[luofeiyu]

I write a triple loop to round all cells whose type is number to 2:

Code: Select all

sub roundAllCells
   dim oFunAccess as object
   oFunAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
   for each oSheet in ThisComponent.Sheets
        oCurs = oSheet.createCursor()  
        oCurs.gotoEndOfUsedArea(True)
        num_row = oCurs.Rows.Count
        num_col = oCurs.Columns.Count
        for  i=0 to num_row-1
        for  j=0 to num_col-1
            oCell = oSheet.getCellByPosition(j,i)
            if  oCell.type  = 1 then               
               oCell.value = oFunAccess.CallFunction( "round", array(oCell.value,2))
            end if
        next j
        next i 
   next
end sub

It is so long ,can simplify it with pure starbasic code,instead of setting "CompatibilityMode( true )" to use "round(number,digitals)" in VBA?

Edit: Changed subject, was How can simplify the function to round all cells whose type is number?  Make your post understandable by others  -- MrProgrammer, forum moderator

[MrProgrammer]

It is so long …

Zero lines of programming are needed when you use Precision as shown. Zero lines of programming require zero hours of research, testing, and debugging. Read about this setting in Help → Index or in User Guides (PDF) or searching for topics about it in the Calc Forum. It is best when you use a style to specify the numeric formats for your cells.

202502010822.gif (84.05 KiB) Viewed 8482 times

If this solved your problem please go to your first post use the Edit ✏️ button and add [Solved] to the start of the Subject field. Select the green checkmark icon at the same time.

[Tutorial] Ten concepts that every Calc user should know

[karolus]

Code: Select all

def round_to_digits(*_, digits=2):
    doc = XSCRIPTCONTEXT.getDocument()
    sheet = doc.Sheets[0]
    values = sheet.queryContentCells(1)  # 1 ⇒ any float, except its interpreted as date or return of Formula #
    # use »17« to include also Formularesults, ! be aware the Formulas will be lossed! #
    for cell in values.Cells:
        cell.Formula = round(cell.Value, digits)

[Bidouille]

Why call the ROUND function?
Use the Format instruction (type F1 key for help)