Question : Bouton de VB sur le rendement à exceler

Bonjour, le

I ont le code que les sorties pour exceler de l'accès et préformate le bilan. je regarde pour incorporer d'un certain des boutons VB au spreadsheet.

So que je voudrais que les les boutons les options donnent utilisateur au nombre le plus élevé de sorte au nombre le plus peu élevé près sur certain columns

So par exemple, le

Is de la colonne B. là me code peux incorporer au bouton de rendement d'accès qui créerait ces boutons sur le spreadsheet.

Thanks, le
Seamus

Here est mon code courant :
Dim du

Private Command5_Click () strFile comme String
strFile = acOutputTable, « prise absente », acFormatXLS, strFile, oXL de False

Dim comme oWB d'Object
Dim comme oWS d'Object
Dim comme Object
Dim FormulaRow en tant qu'oWB d'oXL du
Set de Long
= de
Set de CreateObject acOutputForm du
'DoCmd.OutputTo de « F:\MissingDataOutput.xls ", prise de Me.Missing, acFormatXLS, strFile, False
DoCmd.OutputTo (le « Excel.Application ») = l'oWS du
Set d'oXL.Workbooks.Open (strFile) = oWB.Sheets (oWS
FormulaRow de 1)
With =. Cellules (. Rows.Count, « b »). Extrémité (- 4162). Rangée + 2 'xlUp
. Cells.Font.Size = 10
. Rangées (1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range (« b : h ») .NumberFormat = « 0.00% ; [Rouge] 0.00% "
.range (« b : h ») .NumberFormat = « #, ##0.00 ; [Rouge] #, ##0.00 "
.range (« c : e »). Modèle = « pour cent "
.range (« b : b ») .NumberFormat = « £#, ##0.00 ; [£# de rouge], ##0.00 "
.range (« f : h ») .NumberFormat = « £#, ##0.00 ; [£# de rouge], ##0.00 " extrémité With

/>oXL.Visible = oWS de True

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

Réponse : Bouton de VB sur le rendement à exceler

En ce qui concerne le code pour les boutons, souvent vous pouvez obtenir un début en enregistrant un macro pour faire la tâche en question, l'éditant alors comme nécessaire.