valor de una celda de excel

[Betina232022]

Hola a todos.

quiero obtener el valor de una celda de excel, pero si es número y tiene decimal 0 obtengo solo el valor entero y lo quiero con todo y decimal.

esta es mi instrucción

sTxt = Libro1.TextRC(1,1)

sTxt es string, por ejemplo tengo el valor 70.0 y solo obtengo 70.

Como puedo hacerle para que me tome el valor completo.

Gracias

[pana99]

hola, proba asi por favor
Te lo va a mostrar siempre con 2 decimales (tenga o no la celda A1) y con separador de miles

Código:

sTxt = Libro1.Format(Cells(1, 1), "###,#0.00")
o sino
sTxt = Format(Cells(1, 1), "###,#0.00"

Espero te sirva

[pana99]

Perdon, falto el parentesis final

Código:

sTxt = Format(Cells(1, 1), "###,#0.00")

[Betina232022]

Gracias por contestar, ya lo probe y de todos modos me devuelve el valor entero

[pana99]

Hmm que raro
Yo lo probé y funciona correctamente
Tal vez sea un tema de configuracion regioanl, no se
Yo tengo como separador de miles "," (coma) y como simbolo decimal "." (punto)

Lo probe asi tambien y funciona (incluso independientemente dle formato que tenga la celda... numero, texto, etc)

Código:

Sub Mostrar()
Dim sTxt As String
    sTxt = Format(Cells(1, 1), "###,#0.00")
    MsgBox sTxt
End Sub

[lokoman]

Y asi:

Código vb:

sTxt = FormatNumber(Libro1.TextRC(1, 1), 2)
 

o asi:

Código vb:

sTxt = Libro1.TextRC(1, 1)
sTxt = FormatNumber(sTxt, 2)
 

[Betina232022]

lo que quiero hacer es recorrer una tabla tomo los valores de cada celda y comparo si es número.

si es número pregunto si tiene decimales, y dependiendo de eso se le da el formato.

asi estan las instrucciones

sTxt = Libro1.TextRC(i, ii)
If IsNumeric(sTxt) Then
Libro1.Row = i
Libro1.Col = ii
If InStr(1, Str(sTxt), ".") > 0 Then
Libro1.NumberFormat = "#,###,###,##0.0##############"
Else
Libro1.NumberFormat = "###,###,###,###,###,##0"
End If
End If

[pana99]

ok. Ahora entiendo mas.
Aca van dos ejemplos. Uno para que te muestre por pantalla los 2 decimales (pero en el contenido de la celda no, y otro para que en ambas este con decimales

Código:

Sub mostrar()
Dim x As Integer
'Recorro la tabla desde la celda A1 hasta el final
For x = 1 To Range("A1").CurrentRegion.Rows.Count
    'Si la celda tiene un numero
    If IsNumeric(Cells(x, 1)) Then
        'La formateo. Esto muestra por pantalla el numero con
        '2 decimales pero la celda tiene el valor original
        Cells(x, 1).Value = Format(Cells(x, 1), "###,#0.00")
    End If
Next
End Sub

Código:

Sub mostrar_1()
Dim x As Integer
'Recorro la tabla desde la celda A1 hasta el final
For x = 1 To Range("A1").CurrentRegion.Rows.Count
    'Si la celda tiene un numero
    If IsNumeric(Cells(x, 1)) Then
        'La formateo a texto para que luego me muestre por
        'pantalla el numero con 2 decimales y ademas en la
        'la celda quede con 2 decimales tambien.
        Cells(x, 1).NumberFormat = "@"
        Cells(x, 1).Value = Format(Cells(x, 1), "###,#0.00")
    End If
Next
End Sub