Vraag : Het formatteren op de Output van Excel van Toegang

Hallo, heb ik de onderstaande code en ik kijk om de Kolommen C te formatteren: F op output zodat er een komma in de aantallen is die outputted b.v. 162.500 in plaats van 162500 zijn en ik ook daar slechts 2 decimalen given

This zou willen zijn is mijn code

Private SubCommand0_Click ()
Dim strFile als String
strFile = „F:\VarianceOutput.xls "
'DoCmd.OutputTo acOutputForm, strFile Me.Variance, acFormatXLS, acOutputTable False
DoCmd.OutputTo, „Verschil“, acFormatXLS, strFile, False

Dim oXL als Object
Dim oWB als Object
Dim oWS als Object
Dim FormulaRow als Long

Set oXL = CreateObject („Excel.Application“)
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Cellen (. Rows.Count, „D“). Eind (- 4162). Rij + 2 'xlUp
.range („c“ & FormulaRow &“: F " & FormulaRow). Formule = „=SUM (c2: c“ & (FormulaRow - 2) &“) „
. Cells.Font.Size = 10
. Rijen (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit

.range („H: J“) .NumberFormat = „0.00%; [Rood] 0.00% "
Eind With
oXL.Visible = True

Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing
End Sub



Thanks Seamus

Antwoord : Het formatteren op de Output van Excel van Toegang

Hallo,

u kunt in met verklaring, zoals het hieronder fragment toevoegen

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

Met oWS
    FormulaRow =. Cellen (. Rows.Count, „D“). Eind (- 4162). Rij + 'xlUp 2
    .range („c“ & FormulaRow &“: F " & FormulaRow). Formule = „=SUM (c2: c“ & (FormulaRow - 2) &“) „
    . Cells.Font.Size = 10
    . Rijen (1). Font.Bold = Waar
    .UsedRange.EntireColumn.AutoFit

    .range („H: J“) .NumberFormat = „0.00%; [Rood] 0.00%“
    .range („C: F“) .NumberFormat = „#, ##0.00; [Rood] #, ##0.00“
    Eind met
Andere oplossingen  
 
programming4us programming4us