☰

Formatee una celda de Excel desde VB 6.0 con una cantidad con dos decimales

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vb6
Formatee una celda de Excel desde VB 6.0 con una cantidad con dos decimales

Cuando usamos vb 6.0 para hacer una celda, no podemos forzar que la cantidad se muestre con 2 lugares después del decimal si el número no termina en 1-9. Por ejemplo, 59.12 aparece correctamente pero si probamos 59.10 obtenemos 59.1 en la celda. He probado muchos formatos y salidas de texto diferentes, pero sin éxito.

En respuesta a lo que hemos probado, a continuación se muestra una parte del código que hemos estado probando con los más destacados:

StartForm:


ActiveWorkbook.Styles.Add(Name:="NelcoAmt").NumberFormat = "#.00"

'ActiveWorkbook.Styles("Number").NumberFormat = "######.00"
'ActiveWorkbook.Styles("Number").Application.FixedDecimalPlaces = 2
'ActiveWorkbook.Styles("Currency").Application.Caption = ""

'ActiveWorkbook.Styles("Currency").IncludePatterns = False

'ActiveWorkbook.Styles("Currency").Application. = ""

'ActiveWorkbook.Styles("Currency").Application.

'xlSheet.Cells(1, 34).NumberFormat = "@"

'xlSheet.Cells(2, 34).NumberFormat = "#.00"

'xlSheet.Cells(2, 34).Format = "#.00"

ActiveWorkbook.Styles("NelcoAmt").Application.FixedDecimalPlaces = 2
xlSheet.Cells(2, 34).Style = "NelcoAmt":  '.NumberFormat = "#.00": 'Number

'For i% = 1 To ActiveWorkbook.Styles.Count


'Text$ = ActiveWorkbook.Styles(i%).Name

'xlSheet.Cells(i%, 1).Style = Text$
'xlSheet.Cells(i%, 1).Value = 59.4

'xlSheet.Cells(i%, 2).Value = Text$

'Next i%



Rem-----9/15/14---set header for variables
xlSheet.Cells(1, 1).Value = "UniqueFormKey"
xlSheet.Cells(1, 2).Value = "FormName"
xlSheet.Cells(1, 3).Value = "OR_EFIN"
xlSheet.Cells(1, 4).Value = "OR_Type"










Rem======================================start of test section
Dim NumAns As Double

'7/16/15
    'NumAns = Format$(Format$(Val(Frm941Inp.Scr941(19)), "########.00"), "@@@@@@@@@@@")
    txtOut = Format$(Format$(Val(Frm941Inp.Scr941(19)), "########.00"), "@@@@@@@@@@@")

    'NumAns = FormatNumber((Val(Frm941Inp.Scr941(19))), 2)

    NumAns = Val(Frm941Inp.Scr941(19))


    If Val(Frm941Inp.Scr941(18)) = 0 Then txtOut = "0.00"
    txtOut = Frm941Inp.Scr941(19)
'xlSheet.Cells(2, 34).NumberFormat = "@": ' = txtOut: '"########.00"]
'xlSheet.Cells(2, 34) =  (FormatNumber(Val(Frm941Inp.Scr941(19)), 2), "text"): 'txtOut ', "########.00"): '5d 2 tax on add medi wage
'xlSheet.Cells(2, 34) = "'" & FormatNumber(Val(Frm941Inp.Scr941(19)), 2): 'txtOut ', "########.00"): '5d 2 tax on add medi wage
'txtOut = "'" & txtOut

xlSheet.Cells(2, 34).Style.NumberFormat = "#.00": 'Number
xlSheet.Cells(2, 34) = Format(NumAns, "#.00"): 'txtOut: 'Val(Frm941Inp.Scr941(19)):  'txtOut ', "########.00"): '5d 2 tax on add medi wage

'xlSheet.Cells(2, 34).Style.NumberFormat = "#.00": 'Number

'xlSheet.Cells(2, 34).NumberFormat = "#.00"

'xlSheet.Cells(2, 34).Value = Val(Frm941Inp.Scr941(19))

'xlSheet.Cells(2, 34).value = FormatNumber(Val(Frm941Inp.Scr941(19)), 2): '"#######.00")
'xlSheet.Cells(2, 34).Value = Format$(Format$(Val(Frm941Inp.Scr941(19)), "########.00"), "@@@@@@@@@@@")

'xlSheet.Cells(2, 34).Value = Val(Frm941Inp.Scr941(19)): '5d 2 tax on add medi wage
Rem===================================end of test section=================================================

Respuesta1

Para hojas de cálculo: lo que se muestra en la celda y lo que realmente se almacena pueden diferir bastante.

Ejemplo: los valores de fecha y hora son 1,0 por día, con horas, minutos y segundos presentes en los decimales, de modo que 42205,5 equivale a "2015-07-20 12:00".

Para que "59.1" (o cualquier otra cosa que pueda redondearse a dos decimales) se muestre como "59.10", debe configurar el formato de visualización en "0.00" o similar.

Mantenga presionado y CTRLluego presione 1; En el diálogo, busque "Número", haga clic en él y cambie "Lugares decimales" para que diga "2". Ahora haga clic OKpara configurarlo y abandone el diálogo.

Una alternativa es usar "Personalizado" (o "Definido por el usuario" para LibreOffice) en el mismo cuadro de diálogo y escribir "0.00" como "Código de formato", con el mismo resultado final.

¿Exactamente cómo hacerlo desde VBA? Te lo dejo como tarea.

información relacionada