Pergunta : Tecla de VB na saída a Excel

Olá!, o

I tem o código que as saídas para primar do acesso e pre-formats o spreadsheet. eu estou olhando para incorporar teclas de um algum VB no spreadsheet.

So que eu gostaria o das teclas de dar as opções de usuário ao número o mais elevado da sorte ao mais baixo número perto em determinado columns

So por exemplo,

Is da coluna B. lá codifico-me posso incorporar na tecla que criaria estas teclas no spreadsheet.

Thanks,
Seamus

Here da saída do acesso sou meu código atual:
Dim do

Private Command5_Click () strFile como String
strFile = acOutputTable, “plugue de dados de falta”, acFormatXLS, strFile, oXL de False

Dim como o oWB de Object
Dim como o oWS de Object
Dim como Object
Dim FormulaRow como o oWB do oXL do
Set de Long
= do
Set de CreateObject acOutputForm do
'DoCmd.OutputTo de “F:\MissingDataOutput.xls ", plugue de dados de Me.Missing, acFormatXLS, strFile, False
DoCmd.OutputTo (“Excel.Application”) = o oWS do
Set de oXL.Workbooks.Open (strFile) = oWS
FormulaRow do
With de oWB.Sheets (o 1) =. Pilhas (. Rows.Count, “b”). Extremidade (- 4162). Fileira + 2 'xlUp
. Cells.Font.Size = 10
. Fileiras (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (“b: h”) .NumberFormat = “0.00%; [Vermelho] 0.00% "
.range (“b: h”) .NumberFormat = “#, ##0.00; [Vermelho] #, ##0.00 "
.range (“c: e”). Estilo = “por cento "
.range (“b: b”) .NumberFormat = “£#, ##0.00; £# [do vermelho], ##0.00 "
.range (“f: h”) .NumberFormat = “£#, ##0.00; £# [do vermelho], ##0.00 do " extremidade With

/>oXL.Visible = oWS de True

Set = oWB de Nothing
Set = oXL de Nothing
Set = Nothing
End Sub class= do

Resposta : Tecla de VB na saída a Excel

Tanto quanto o código para as teclas, frequentemente você pode começ um começo gravando um macro para fazer a tarefa na pergunta, editando então a como necessário.