Questione : Tasto di VB su uscita ad Excel

Ciao, il

I ha codice che le uscite per eccellere da accesso e preformatta il foglio elettronico. sto osservando per incorporare i tasti di qualche VB nello spreadsheet.

So che vorrei i tasti per dare le opzioni di utente all'più alto numero di specie al numero più basso vicino su determinato columns

So per esempio,

Is della colonna B. là lo codifico posso incorporare nel tasto che genererebbe questi tasti sullo spreadsheet.

Thanks,
Seamus

Here dell'uscita di accesso sono il mio codice corrente:
Dim del

Private Command5_Click () strFile come String
strFile = acOutputTable, “spina di dati di sig.na„, acFormatXLS, strFile, oXL di False

Dim come oWB di Object
Dim come oWS di Object
Dim come Object
Dim FormulaRow come il oWB del oXL del
Set di Long
= del
Set di CreateObject acOutputForm del
'DoCmd.OutputTo “di F:\MissingDataOutput.xls ", spina di dati di Me.Missing, acFormatXLS, strFile, False
DoCmd.OutputTo (“Excel.Application„) = il oWS del
Set di oXL.Workbooks.Open (strFile) = oWB.Sheets (oWS
FormulaRow di 1)
With =. Cellule (. Rows.Count, “b„). Estremità (- 4162). Fila + 2 'xlUp
. Cells.Font.Size = 10
. File (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (“b: h„) .NumberFormat = “0.00%; [Colore rosso] 0.00% "
.range (“b: h„) .NumberFormat = “#, ##0.00; [Colore rosso] #, ##0.00 "
.range (“c: e„). Stile = “le percentuali "
.range (“b: b„) .NumberFormat = “£#, ##0.00; £# [di colore rosso], ##0.00 "
.range (“f: h„) .NumberFormat = “£#, ##0.00; £# [di colore rosso], ##0.00 " estremità With

/>oXL.Visible = oWS di True

Set = oWB di Nothing
Set = oXL di Nothing
Set = Nothing
End Sub class= del

Risposta : Tasto di VB su uscita ad Excel

Per quanto il codice per i tasti, potete ottenere spesso un inizio registrando una macro per fare l'operazione in questione, allora pubblicante la come stato necessario.