Frage : VB Knopf auf Ausgang zu Excel

Hallo, haben

I Code, dem die Ausgänge, um vom Zugang zu übertreffen und den Verteilungsbogen pre-formats. ich schaue, um ein irgendein VB Knöpfe in das outputted spreadsheet.

So, das ich die möchte, dass Knöpfe die Benutzerwahlen zur höchsten Zahl der Art zur niedrigsten Zahl vorbei auf bestimmtem columns

So zum Beispiel, geben Spalte B.

Is dort zu enthalten kodiere mich kann in den Zugangs-Ausgangsknopf, der diese Knöpfe auf dem outputted spreadsheet.

Thanks, herstellen würde
Seamus

Here verbinden bin mein gegenwärtiger Code:

Private VorCommand5_Click ()
Dim strFile als String
strFile = „F:\MissingDataOutput.xls "
'DoCmd.OutputTo acOutputTable, „verfehlendaten-Stecker“, acFormatXLS, strFile, False

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

Set oXL = CreateObject acOutputForm, Me.Missing Daten-Stecker, acFormatXLS, strFile, False
DoCmd.OutputTo („Excel.Application“)
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Zellen (. Rows.Count, „b“). Ende (- 4162). Reihe + 2 'xlUp
. Cells.Font.Size = 10
. Reihen (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range („b: h“) .NumberFormat = „0.00%; [Rot] 0.00% "
.range („b: h“) .NumberFormat = „#, ##0.00; [Rot] #, ##0.00 "
.range („c: e“). Art = „Prozente "
.range („b: b“) .NumberFormat = „£#, ##0.00; [Rot] £#, ##0.00 "
.range („f: h“) .NumberFormat = „£#, ##0.00; [Rot] £#, ##0.00 "
Ende With
oXL.Visible = True

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

Antwort : VB Knopf auf Ausgang zu Excel

Insoweit der Code für die Knöpfe, häufig können Sie einen Anfang erhalten, indem Sie ein Makro notieren, um die Aufgabe zu tun, die fraglich ist und dann sie redigieren, wie gebraucht.