Fråga : VB knäppas på tillverkat för att överträffa

Hi

I har att kodifiera, som tillverkar för att överträffa från tar fram, och förformaterar räknearket. förmiddag som i ser till införlivat några VB, knäppas in i den outputted spreadsheet.
So som jag skulle något liknande knäppas för att ge användarealternativen för att sortera highest numrerar lowest för att numrera by på bestämd columns

So for example,

Is för kolonnen B. där kodifierar mig kan införlivat in i ta fram som tillverkades för att knäppas som skulle skapar dessa knäppas på den outputted spreadsheet.
Thanks,
Seamus

Here är min ström kodifierar: underCommand5_Click ()
Dim som för

Private är strFile som String
strFile = pluggar, acFormatXLS som är strFile, acOutputTable False
DoCmd.OutputTo, ”saknade data, pluggar”, 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 acOutputForm ”för F:\MissingDataOutput.xls "
'DoCmd.OutputTo, Me.Missing-data (”Excel.Application”)
Set = oWS för
Set för oXL.Workbooks.Open (strFile) = oWS
FormulaRow för
With för oWB.Sheets (1) =. Celler (. Rows.Count, ”b”). Avsluta (- 4162). Ro + 2 'xlUp
. Cells.Font.Size = 10
. Ror (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (”b: H”) .NumberFormat = ”0.00%; [Röd] 0.00% "
.range (”b: H”) .NumberFormat = ”nr., ##0.00; [Rött] nr., ##0.00 "
.range (”c: e”). Utforma = ”procent "
.range (”b: b”) .NumberFormat = ”£#, ##0.00; [Röd] £#, ##0.00 "
.range (”f: H”) .NumberFormat = ”£#, ##0.00; [Röd] £#, ##0.00 "
avslutar With
oXL.Visible = True

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

Svar : VB knäppas på tillverkat för att överträffa

, som kodifiera för knäppas, angå så långt, ofta dig kan få en start, genom att anteckna en makro för att göra uppgiften, ifrågasätter in och därefter att redigera den som behövt.