Questione : Formattando su Excel prodotto da accesso

Ciao, ho il codice sotto e sto osservando per formattare le colonne C: F su uscita in modo che ci sia un virgola nei numeri che outputted per esempio 162.500 anziché 162500 ed inoltre vorrei là essere soltanto 2 posti che decimali il given

This è il mio
Dim del code

Private Command0_Click () strFile come String
strFile = acOutputForm del
'DoCmd.OutputTo “di F:\VarianceOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, “varianza„, acFormatXLS, strFile, oXL di False

Dim come oWB di Object
Dim come oWS di Object
Dim come Object
Dim FormulaRow come il oWB del oXL del
Set di Long
= del
Set di CreateObject (“Excel.Application„) = il oWS del
Set di oXL.Workbooks.Open (strFile) = oWB.Sheets (1)
FormulaRow di/>With =. Cellule (. Rows.Count, “d„). Estremità (- 4162). Fila + 2 'xlUp
.range (“c„ & FormulaRow &„: f " & FormulaRow). Formula = “=SUM (c2: c„ & (FormulaRow - 2) & ") “
. Cells.Font.Size = 10
. File (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit

.range (“H: J„) .NumberFormat = “0.00%; [Colore rosso] 0.00% " estremità With
/>oXL.Visible = oWS di True

Set = oWB di Nothing
Set = oXL di Nothing
Set = Nothing
End Sub

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

Thanks Seamus class= del

Risposta : Formattando su Excel prodotto da accesso

Ciao,

potete aggiungere in con la dichiarazione, come il frammento qui sotto

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

Con oWS
    FormulaRow =. Cellule (. Rows.Count, “d„). Estremità (- 4162). Fila + 'xlUp 2
    .range (“c„ & FormulaRow &„: f " & FormulaRow). Formula = “=SUM (c2: c„ & (FormulaRow - 2) & ") “
    . Cells.Font.Size = 10
    . File (1).Font.Bold = allineano
    .UsedRange.EntireColumn.AutoFit

    .range (“H: J„) .NumberFormat = “0.00%; [Colore rosso] 0.00%„
    .range (“C: F„) .NumberFormat = “#, ##0.00; [Colore rosso] #, ##0.00„
    Estremità con
Altre soluzioni  
 
programming4us programming4us