FiveTech Software tech support forums

... will convert numbers to numbers, but there are times that numbers are (product codes) and need to be Char. With OLE and functions like Set( "NumberFormat", '0.00' ) I can do this... looking for more samples at the moment..... I found small samples like this, but they look more complex... ...

... 1 objExcel:Range("K7:L56"):Borders():LineStyle := 1 objExcel:Range("B7:L56"):Font:Size := 8 objExcel:Range("C7:C56"):NumberFormat := "###" // FORMATEAR CELDA NUMERICA nRen:=7 nCol:=2 Select 1 Do while !Eof() objExcel:Cells(nRen,nCol):Value := Alltrim(aInven->Descript) ...

... these two lines as below: oRange:Rows( 1 ):Value := aHead AEval( Eval( bLine ), { |u,i| If( ValType( u ) == "C", oRange:Columns( i ):NumberFormat := "@", nil ) } ) nRow := 2 Please let us know if this resolves your issue.

Cells(1, 1):Value = doc(date())
Cells(1, 1):NumberFormat = "dd/mm/yyyy"

... estoy creando, al final para dar formato a los campos numericos doy: oSheet:Range("A1:H"+Alltrim(Str(oSheet:UsedRange:Rows:Count()))):NumberFormat:="###,##0.00" y las cifras me la pone: -4615952,98 cuendo es -4,615,952.98 4219371,98 4.219,371.98 -396581 -396,581.00 alguna ...

oSheet:Cells( 1, 1 ):NumberFormat :=
Please do not use it as a function.

... = xlHAlignCenter oAs:Range ('M'+LTRIM(STR(nRow))+':M65536'):HorizontalAlignment = xlHAlignRight oAs:Range ('K'+LTRIM(STR(nRow))+':K65536'):NumberFormat = '###,###,###.00'

... ) ) > 0 cFormat := Left( cformat, nAt ) + '"' + SubStr( cFormat, nAt + 1 ) + '"' endif endif oSheet:GetColumns():GetByIndex( nCol-1 ):NumberFormat:=GetNumberFormatId(oBook, cFormat, cType) oSheet:GetColumns():GetByIndex( nCol-1 ):HoriJustify = 3 // 3 Right Alignement Any ideas ? Thank ...

Gracias a todos por su colaboracion

Disculpandome por la demora en responder la funcion que me funciono perfectamente fue esta

oSheet:Cells(nRow, nCol):Set("NumberFormat","@")


Gracias por el aporte

Saludos

Amigos

Indico el Numero de la columna para que el solo haga el incremento por la linea (dejo fijo la columna 3, y hace el incremento por linea), ya intente con el numberformat pero eso sirve solamente para convertir la columna a formato numerico (no para convertirla a formato texto)

Enrico Can you try something like this ? oSheet:Range( "A:A" ):Set( "NumberFormat", '00/00/00' ) // field mask// sets headersoSheet:Cells( 1, 1 ):value  := "Date".........Do while ...         ...

As of now there is no way except review all our code and modify wherever dates are assigned. oSheet:Cells(r,c):NumberFormat := "dd-mm-yyyy" // or similar oSheet:Cells(r,c):Value := If( Year(d) < 1900, nil, d ) I prefer oSheet:Cells(r,c):Value := If( Year(d) < 1900, ...

Hi

Can anyone share a code snippet to allow me to do this in Calc? In Excel, I use

oSheet:Range(aColumns[16]+"5:"+aColumns[16]+ltrim(str(nRow))):NumberFormat := "####0.0000"

I looked at ToCalc in xBrowse but I'm lost

TIA
David

... an Excel file with Office 2013, I have no problem with previous versions, in all previous cases put the following line: oSheet: Cells (NFIL, 6): NumberFormat: = "#, ## 0.00" And I format the cell with "," as thousand separator, with "." as decimal point and 2 decimal ...

... Office 2013, problema que no tengo con las versiones anteriores, en todos los casos anteriores coloco la siguiente linea : oHoja :Cells( nFil, 6 ):NumberFormat := "#,##0.00" Y me formatea la celda con "," como separador de miles, con "." como indicador decimal y con ...