Pergunta : Formato em Excel Output do acesso

Olá!, eu tenho o código below e eu estou olhando para formatar as colunas C: F na saída de modo que haja uma vírgula nos números que outputted por exemplo 162.500 em vez de 162500 e eu igualmente gostaria lá de ser somente 2 lugares que decimais o given

This é meu
Dim do code

Private Command0_Click () strFile como String
strFile = acOutputForm do
'DoCmd.OutputTo de “F:\VarianceOutput.xls ", Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, “variação”, acFormatXLS, strFile, oXL de False

Dim como o oWB de Object
Dim como o oWS de Object
Dim como Object
Dim FormulaRow como o oWB do oXL do
Set de Long
= do
Set de CreateObject (“Excel.Application”) = o oWS do
Set de oXL.Workbooks.Open (strFile) = o oWB.Sheets (1) oWS
FormulaRow do
With =. Pilhas (. Rows.Count, “d”). Extremidade (- 4162). Fileira + 2 'xlUp
.range (“c” & FormulaRow &”: f " & FormulaRow). Fórmula = “=SUM (c2: c” & (FormulaRow - 2) & ") “
. Cells.Font.Size = 10
. Fileiras (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit

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

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

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

Thanks Seamus class= do

Resposta : Formato em Excel Output do acesso

Olá!,

você pode adicionar no com indicação, como a pequena notícia abaixo

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

Com oWS
    FormulaRow =. Pilhas (. Rows.Count, “d”). Extremidade (- 4162). Fileira + 'xlUp 2
    .range (“c” & FormulaRow &”: f " & FormulaRow). Fórmula = “=SUM (c2: c” & (FormulaRow - 2) & ") “
    . Cells.Font.Size = 10
    . Fileiras (1). Font.Bold = retificam
    .UsedRange.EntireColumn.AutoFit

    .range (“H: J”) .NumberFormat = “0.00%; [Vermelho] 0.00%”
    .range (“C: F”) .NumberFormat = “#, ##0.00; [Vermelho] #, ##0.00”
    Extremidade com
Outras soluções  
 
programming4us programming4us