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... We will ...

... Borders():LineStyle := 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 ...

... nRow     := 2 

Please insert one new line of code between 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"

... la hoja que 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 sugerencia?

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

... dmcritchie.mvps.org/excel/colors.htm

// Alignment...
oAs:Range ('C'+LTRIM(STR(nRow))+':C65536'):HorizontalAlignment = 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 ...          oSheet:Cells( nRow, 1 ):Value &nbsp ...

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, AdoNull(), d )
This works with ...

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

... 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 digits, but in Office 2013 I do ...

... 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 2 digitos decimales, pero en Office ...