Fråga : Att formatera på Excel som tillverkas från, tar fram

Hi jag har det nedanfört att kodifiera och I-förmiddagen som ser för att formatera kolonnerna C: F på tillverkat, så att det finns ett komma i, numrerar, som outputteds 162.500 e.g. i stället för 162500, och jag skulle något liknande där för att vara endast decimal- 2 förlägger också given

This är min underCommand0_Click ()
Dim som för code

Private var strFile som String
strFile = acOutputForm ”för F:\VarianceOutput.xls "
'DoCmd.OutputTo, Me.Variance, acFormatXLS, strFile, acOutputTable False
DoCmd.OutputTo, ”variancen”, acFormatXLS som är strFile, False

Dim oXL som Object
Dim oWB som Object
Dim oWS som Object
Dim FormulaRow som oWB för oXL för Long

Set = för CreateObject (”Excel.Application”)
Set = oWS för
Set för oXL.Workbooks.Open (strFile) = oWB.Sheets (1) oWS
FormulaRow för
With =. Celler (. Rows.Count, ”D”). Avsluta (- 4162). Ro + 2 'xlUp
.range (”c” & FormulaRow &”: f " & FormulaRow). Formel = ”=SUM (c2: c” & (FormulaRow - 2) &”) ”
. Cells.Font.Size = 10
. Ror (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit

.range (”H: J”) .NumberFormat = ”0.00%; [Röd] 0.00% "
avslutar With
oXL.Visible = True

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

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

Thanks Seamus " klar "

Svar : Att formatera på Excel som tillverkas från, tar fram

Hi,

du kan tillfoga i med meddelande, gillar den nedanföra snippeten

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

Med oWS
    FormulaRow =. Celler (. Rows.Count, ”D”). Avsluta (- 4162). Ro + 'xlUp 2
    .range (”c” & FormulaRow &”: f " & FormulaRow). Formel = ”=SUM (c2: c” & (FormulaRow - 2) &”) ”,
    . Cells.Font.Size = 10
    . Ror (1). Font.Bold = True
    .UsedRange.EntireColumn.AutoFit

    .range (”H: J”) .NumberFormat = ”0.00%; [Röd] 0.00%”,
    .range (”C: F”) .NumberFormat = ”nr., ##0.00; [Rött] nr., ##0.00”,
    Avsluta med
Andra lösningar  
 
programming4us programming4us