Вопрос : Кнопка VB на выходе, котор нужно первенствовать

Hi,

I имеет Кодего которому выходы для того чтобы первенствовать от доступа и pre-formats электронная таблица. я смотрят, что включаю кнопки некоторого VB в outputted spreadsheet.

So, котор я хотел был бы кнопки для того чтобы дать варианты потребителя к номеру вида самому высокому к самому низкому номеру мимо на некотором columns

So например,

Is B. колонки там кодирую меня могу включать в кнопку которая создала бы эти кнопки на outputted spreadsheet.

Thanks,
Seamus

Here выхода доступа буду моим в настоящее время Кодим:
Dim

Private Sub Command5_Click () strFile как String
strFile = acOutputTable, «пропуская штепсельная вилка данных», acFormatXLS, strFile, oXL False

Dim как oWB Object
Dim как oWS Object
Dim как Object
Dim FormulaRow как oWB oXL
Set Long
=
Set CreateObject acOutputForm
'DoCmd.OutputTo «F:\MissingDataOutput.xls ", штепсельная вилка данным по Me.Missing, acFormatXLS, strFile, False
DoCmd.OutputTo («Excel.Application») = oWS
Set oXL.Workbooks.Open (strFile) = oWB.Sheets (oWS
FormulaRow 1)
With =. Клетки (. Rows.Count, «b»). Конец (- 4162). Рядок + 2 'xlUp
. Cells.Font.Size = 10
. Рядки (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range («b: h») .NumberFormat = «0.00%; [Красный цвет] 0.00% "
.range («b: h») .NumberFormat = «#, ##0.00; [Красный цвет] #, ##0.00 "
.range («c: e»). Тип = «проценты "
.range («b: b») .NumberFormat = «£#, ##0.00; £# [красного цвета], ##0.00 "
.range («f: h») .NumberFormat = «£#, ##0.00; £# [красного цвета], ##0.00 " конец With

/>oXL.Visible = oWS True

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

Ответ : Кнопка VB на выходе, котор нужно первенствовать

Насколько Кодий для кнопок обеспокоенный, часто вы можете получать старт путем записывать макрос для того чтобы сделать задачу в вопросе, после этого редактируя ее как нужно.