Desktop
Website
Multimedia
Database
Security
Enterprise
Вопрос : Кнопка 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.Applic
ation») = 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.Au
toFit
.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 на выходе, котор нужно первенствовать
Насколько Кодий для кнопок обеспокоенный, часто вы можете получать старт путем записывать макрос для того чтобы сделать задачу в вопросе, после этого редактируя ее как нужно.
Другие решения
Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
Шнур ошибки в блоке задвижки?
сколько вариант сервера SQL на одной машине
Внешний вид 2007 не может архивный файл открытой сети сохраненный
Активно директория DNS записывает вопрос
Отчет о доступа 2010 экспорта к CSV с коллекторами?
Прокладчик OCE 9400 не начинает
как добавить десятичное место в формуле в отчете о кристалла seagate
Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
VB6 к VS2010 - консультации тренировки?