Pytanie : VB guzik na Wydajność

Cześć,

I mieć kod che wydajność od Dostęp i pre-formats the spreadsheet. i patrzeć niektóre VB guzik w the outputted spreadsheet.

So i polubić the the guzik the użytkownik opcja wysoki liczba niski liczba obok na pewny columns

So na przykład, szpaltowy B.

Is tam  kodować i móc w the Dojazdowy Wydajność guzik który tworzyć te guzik na the outputted spreadsheet.

Thanks,
Seamus

Here być mój aktualny kod:

Private Okręt podwodny Command5_Click ()
Dim strFile Jako String
strFile = "F:\MissingDataOutput.xls "
'DoCmd.OutputTo acOutputForm, Me.Missing Dane Prymka, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, "Dane Prymka", acFormatXLS, strFile, False

Dim oXL Jako Object
Dim oWB Jako Object
Dim oWS Jako Object
Dim FormulaRow Jako Long

Set oXL = CreateObject ("Excel.Application")
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Komórka (. Rows.Count, "B"). Końcówka (- 4162). Rząd + 2 'xlUp
. Cells.Font.Size = 10
. Rząd (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range ("B: h") .NumberFormat = "0.00%; [Rewolucjonistka] 0.00% "
.range ("B: h") .NumberFormat = "#, ##0.00; [Rewolucjonistka] #, ##0.00 "
.range ("c: e"). Styl = "Procent "
.range ("B: B") .NumberFormat = "£#, ##0.00; [Czerwony] £#, ##0.00 "
.range ("f: h") .NumberFormat = "£#, ##0.00; [Czerwony] £#, ##0.00 "
Końcówka With
oXL.Visible = True

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

Odpowiedź : VB guzik na Wydajność

Tak daleko jak the kod dla the guzik dotyczyć, często ty móc początek macro the zadanie omawiany, wtedy redagować ono potrzebować.