Cuestión : Configuración en Excel hecho salir del acceso

Hola, tengo el código below y estoy mirando para dar formato a las columnas C: F en la salida de modo que haya una coma en los números que outputted e.g. 162.500 en vez de 162500 y también quisiera allí ser solamente 2 lugares decimales que el given

This es mi
Dim del code

Private Command0_Click () strFile como String
strFile = acOutputForm del
'DoCmd.OutputTo de “F:\VarianceOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, “variación”, acFormatXLS, strFile, oXL de False

Dim como oWB de Object
Dim como oWS de Object
Dim como Object
Dim FormulaRow como oWB del oXL del
Set de Long
= del
Set de CreateObject (“Excel.Application”) = oWS del
Set de oXL.Workbooks.Open (strFile) = oWB.Sheets (1)
FormulaRow de/>With =. Células (. Rows.Count, “d”). Extremo (- 4162). Fila + 2 'xlUp
.range (“c” y FormulaRow y”: f " y FormulaRow). Fórmula = “=SUM (c2: c” y (FormulaRow - 2) y ") “
. Cells.Font.Size = 10
. Filas (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit

.range (“H: J”) .NumberFormat = “0.00%; [Rojo] 0.00% " extremos With
/>oXL.Visible = oWS de True

Set = oWB de Nothing
Set = oXL de Nothing
Set = Nothing
End Sub

----------------------------------

Thanks Seamus class= del

Respuesta : Configuración en Excel hecho salir del acceso

Hola,

usted puede agregar en con la declaración, como el recorte abajo

aclamaciones, teylyn
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Con el oWS
    FormulaRow =. Células (. Rows.Count, “d”). Extremo (- 4162). Fila + 'xlUp 2
    .range (“c” y FormulaRow y”: f " y FormulaRow). Fórmula = “=SUM (c2: c” y (FormulaRow - 2) y ") “
    . Cells.Font.Size = 10
    . Filas (1).Font.Bold = verdad
    .UsedRange.EntireColumn.AutoFit

    .range (“H: J”) .NumberFormat = “0.00%; [Rojo] 0.00%”
    .range (“C: F”) .NumberFormat = “#, ##0.00; [Rojo] #, ##0.00”
    Extremo con
Otras soluciones  
 
programming4us programming4us