Excel vba button onaction

1.6 Adding Buttons to an Excel Spreadsheet

In the previous lesson, you created a simple Sub in the code window. In this lesson, you’ll activate that Sub from a button on a spreasheet.

At the top of the VBA Editor, locate the Excel icon, just under the File menu:

Click this icon to return to your spreadsheet. We’ll now place a button control on the spreadsheet.

Locate the Controls panel on the Developer toolbar, and then click the Insert item. From the Insert menu, click the first item, which is a button:

Now move your mouse to your spreadsheet. Hold down your left mouse button somewhere on the F column (F3 will do). Keep it held down and draw out a rectangular button. Let go of the left mouse button when your cursor is on H4

As soon as you let go of the left mouse button you’ll see the Assign Macro dialogue box appear:

Select your Macro from the list and click OK. The button on your spreadsheet should now look like this:

You can edit the text on a button quite easily. Right click the button to see a menu appear. From the menu, select Edit Text:

When you select Edit Text, a cursor will appear at the start of the text. Use the arrow keys on your keyboard to move the cursor to the end of the line. Delete the text Button 1 and type Range(«A1:D6»).Select instead (If you accidentally click away from the button, click on it again with right mouse button and not the left button. This will select your button again.):

Click away from the button to exit edit mode and you’ll see the sizing handles disappear.

You can now test your button out. Give it a click and you’ll see the cells A1 to D6 highlighted:

Congratulations! You have now written Excel VBA code to select a range of cells on a spreadsheet. And all with the click of a button!

Now return to the Visual Basic editor (From the Developer toolbar, click Visual Basic on the Code panel.) Type a single quote before your Range line. The line should turn green:

The reason it turns green is because a single quote is used for comments. When the line is commented out it means Visual Basic will no longer see it as code, so doesn’t do anything with it. You can add comments to remind yourself what your code does, as in the image below:

Adding comments to your code is a good habit to get in to. Especially when you come back to your code after a few weeks or so. If you haven’t added comments you may not quite understand what it was you were trying to do.

Back to the Range code, though. Notice how we referred to the range of cells A1 to D6:

Another way to refer to the same range is like this:

This time, the start cell A1 and the end cell D6 are enclosed with double quotes. In between the two we have a comma.

Both the examples above do the same thing: they first select the top left cell of the range, and then the bottom right cell of the range. It’s entirely up to you which you use. But with the second version you can use something called the ActiveCell.

ActiveCell

Instead of typing the name of a cell you can also refer to which cell on your spreadsheet is currently highlighted. The currently highlighted cell is called the ActiveCell (no spaces and with capital letters for the «A» and «C»). You can use this in your code. Let’s see how it works.

After the End Sub of your first Subroutine, add the following:

Press the enter key on your keyboard to let the VB editor add the End Sub for you. Now add the following line between the Sub and End Sub of your code:

Your coding window will then look like this:

So the top left cell we want to select is the ActiveCell, which is whatever cell you clicked in on your spreadsheet. The bottom right cell we want to select is D6.

Click the icon to return to your Excel spreadsheet. Now draw another button on your form, just below the first one. You should see the Assign Macro dialogue box appear again:

Select your new Macro (your Sub) from the list and click OK.

When you get back to your spreadsheet, edit the text of the button again. Type ActiveCell as the text. When you have finished editing the text, click away. Click inside another cell on your spreadsheet, cell A2 for example. Now click your button. You should see the cells A2 to D6 highlighted:

Click inside any other cell on your spreadsheet and click the button again. The cells from your active cell to D6 will be selected.

In the next part of this tutorial, we’ll take a look at the Offset property. So save you work before moving on.

Источник

[SOLVED] Buttons, onAction and Parameter

LinkBack

Thread Tools

Rate This Thread

Display

[SOLVED] Buttons, onAction and Parameter

I am trying to create some buttons on my sheet, that execute a macro on
click. I want to add a parameter or a reference to the button somehow.
The code I have is the following:

With ActiveSheet.Buttons.Add(194, (rownr) * 12.75 — 5, 13, 13)
..Characters.Text = «+»
..Name = artikel
..OnAction = «mymacro»
‘ .Parameter = name ‘this does not work
End With

now in this mymacro i have the following code:

sub mymacro()
‘ name = CommandBars.ActionControl.Name ‘this does not work
‘ name = Selection.name ‘ this does not work either

I am a little confused by the differences between the different ways of
creating buttons (buttons.add, shapes.add, oleobjects.add,
commandbars.controls.add)
I don’t know which command to use and why. The sheet is created on the
fly and creates a given number of buttons based on other data. What I
need to do is to fill in some data when the buttons are clicked, and
create a combobox somewhere.

Thanks in advance

Re: Buttons, onAction and Parameter

There are buttons and there are buttons, as you already know. But you are
very close; the macro called will recognize the button name with
Application.Caller. Try this:

Sub tester()
Dim rownr As Long
rownr = 5

With ActiveSheet.Buttons.Add(194, (rownr) * 12.75 — 5, 13, 13)
..Characters.Text = «+»
..Name = «Plus button»
..OnAction = «mymacro»
End With
rownr = rownr + 1
With ActiveSheet.Buttons.Add(194, (rownr) * 12.75 — 5, 13, 13)
..Characters.Text = «-»
..Name = «Minus button»
..OnAction = «mymacro»
End With

Sub mymacro()
MsgBox Application.Caller
End Sub

HTH. Best wishes Harald

skrev i melding
news:1106125687.355433.75650@c13g2000cwb.googlegroups.com.
> Hi,
>
> I am trying to create some buttons on my sheet, that execute a macro on
> click. I want to add a parameter or a reference to the button somehow.
> The code I have is the following:
>
>
> With ActiveSheet.Buttons.Add(194, (rownr) * 12.75 — 5, 13, 13)
> .Characters.Text = «+»
> .Name = artikel
> .OnAction = «mymacro»
> ‘ .Parameter = name ‘this does not work
> End With
>
>
> now in this mymacro i have the following code:
>
>
> sub mymacro()
> ‘ name = CommandBars.ActionControl.Name ‘this does not work
> ‘ name = Selection.name ‘ this does not work either
>
>
> I am a little confused by the differences between the different ways of
> creating buttons (buttons.add, shapes.add, oleobjects.add,
> commandbars.controls.add)
> I don’t know which command to use and why. The sheet is created on the
> fly and creates a given number of buttons based on other data. What I
> need to do is to fill in some data when the buttons are clicked, and
> create a combobox somewhere.
>
> Thanks in advance
>

Re: Buttons, onAction and Parameter

Parameter applies to commandbar buttons, and you are not creating this type
of button, but a shapes button. Thus you can not add a parameter or access
such.

These buttons are a little limited in what you can pass. AFAIK there are no
properties that you can tap into, but you could always use a worksheet range
and test that in the macro.

If you are using 1 macro for many buttons, you could use Application.Caller
to get the name of the button initiating the macro.

RP
(remove nothere from the email address if mailing direct)

wrote in message
news:1106125687.355433.75650@c13g2000cwb.googlegroups.com.
> Hi,
>
> I am trying to create some buttons on my sheet, that execute a macro on
> click. I want to add a parameter or a reference to the button somehow.
> The code I have is the following:
>
>
> With ActiveSheet.Buttons.Add(194, (rownr) * 12.75 — 5, 13, 13)
> .Characters.Text = «+»
> .Name = artikel
> .OnAction = «mymacro»
> ‘ .Parameter = name ‘this does not work
> End With
>
>
> now in this mymacro i have the following code:
>
>
> sub mymacro()
> ‘ name = CommandBars.ActionControl.Name ‘this does not work
> ‘ name = Selection.name ‘ this does not work either
>
>
> I am a little confused by the differences between the different ways of
> creating buttons (buttons.add, shapes.add, oleobjects.add,
> commandbars.controls.add)
> I don’t know which command to use and why. The sheet is created on the
> fly and creates a given number of buttons based on other data. What I
> need to do is to fill in some data when the buttons are clicked, and
> create a combobox somewhere.
>
> Thanks in advance
>

Re: Buttons, onAction and Parameter

The following is based on the CommandBar example on my website.

In the Workbook Code Module:

Private Sub Workbook_Activate()
Toolbar_ON
End Sub

Private Sub Workbook_Deactivate()
Toolbar_OFF
End Sub

In a standard Code Module:

Const cCommandBar = «MyCommandBar»

Sub Toolbar_OFF()
Dim bar As CommandBar

»’ Delete the Commandbar if it already exists
For Each bar In Application.CommandBars
If bar.Name = cCommandBar Then bar.Delete
Next
End Sub

Sub Toolbar_ON()
Dim bar As CommandBar

Источник

Add a Button and Assign a Macro in Excel

Excel Buttons

In Excel, Buttons are used to call Macros. This tutorial will cover how to create Excel buttons, assign Macros to them, adjust their properties, and more.

By default, Excel macros are accessible in a list via the “Macros” button on the View ribbon.

Often though, you’ll want to provide easy access to a particular macro directly on your worksheet. This can be achieved using a Button control.

A Button control looks like a Microsoft Windows button, and runs a macro when clicked. It’s a much handier way to access your most commonly used macros, and is an easy way to expose custom functionality to other users of your workbook.

Run a Macro From a Button

To run a Macro from a button in Excel, simply click the button:

The Excel Developer Tab

Buttons are accessible via the Developer Tab.

Unfortunately, Excel hides the Developer tab by default. If you don’t see the Developer Ribbon, follow these steps:

• Click File >Options in the list on the left-hand border

• In the Options dialog select Customize Ribbon > Customize the Ribbon > Main Tabs and add a check-mark in the box for “Developer”, and click OK.

Add a Macro Button

In Excel, select the Developer tab, then click on the “Insert” dropdown in the Controls section. There are several types of controls divided into two sections, “Form Controls” and “ActiveX Controls”.

For now, just click on the Button control under “Form Controls”. Next, move the mouse anywhere over the worksheet surface, then hold left-click and drag the mouse to draw the outline of a rectangle. When you release left-click, a new dialog will appear titled “Assign Macro”.

Assigning a Macro to a Button

Here you can assign an existing Macro to the button, record a new macro, create a new macro from scratch using VBA, or click “Cancel” and return to your button later.

Assign Existing Macro to a Button

To assign an existing Macro, you simply select the macro’s name in the list, then click OK.

Edit an Existing Macro Before Assigning to a Button

To edit a macro before assigning it to the button, select the macro’s name in the list and click the “Edit” button (the “New” button text changes to “Edit”).

Record a Macro and Assign to Button

To record a new macro and assign it to the button, click “Record…”. This brings up the Record Macro dialog, where you specify a name and click “OK”. The button will be assigned that macro. Meanwhile, Excel will remain in a recording state until you click “Stop Recording” in the “Code” section of the Developer tab.

Write VBA Procedure and Assign to Button

To write a new macro for the button, type a new name for your macro in the textbox at the top of the dialog, then click “New”. Excel will bring up the VB Editor, in which you’ll see a new empty macro procedure with the name you entered. This procedure will be stored in a new module, visible in the Project window.

Change Macro Assigned to Button

To change the Macro that’s assigned to a button, simply right-click the button and select Assign Macro:

Here you can see the assigned Macro and make any desired changes.

How to Adjust Button Properties in Excel

Move or Resize Excel Button

After you’ve placed a button, you can easily move or resize it. To perform any of these actions, right-click on the button. Then you can left-click and drag the button to your desired location or resize it.

Rename Button

With the button selected, left-click on the button text to edit.

To add multiple lines, simple press the ENTER key.

Format Button

To format other button properties, Right-Click > Format Control

Here you can adjust font sizes, and many other button properties:

Of particular note is the “Properties” tab, which changes how the button behaves as surrounding rows and columns are inserted, deleted, resized, or hidden/unhidden.

• Move and size with cells: The button will move and resize when rows and columns are changed.
• Move but don’t size with cells: The button will move, but not resize.
• Don’t move or size with cells: The button will not move or resize.
• Finally, Print Object can set the object to appear on printouts. This is unchecked by default, but can be toggled on if desired.

Assign a Macro to a Shape

Besides buttons, macros can assigned to other objects like Pictures, Textboxes, and Shapes. With a Picture or Shape, you can make a button that looks any way you like. Excel includes a wide variety of customizable Shapes including polygons, arrows, banners, and more that may be better suited to your worksheet than a regular button control.

Shapes are accessed from the Insert tab:

Select the shape you want from the Shape dropdown, draw it onto your worksheet as you would a button control, then right-click it and select “Assign Macro…” from the pop-up dialog. The options are the same as assigning a macro to a button.

Assign a Macro to a Hyperlink

Macros can also be assigned to hyperlinks by using VBA Events. Events are procedures that are triggered when certain actions are performed:

• Open/Close/Save Workbook
• Activate / Deactivate Worksheet
• Cell Values Change
• Click Hyperlink
• and more.

Events require knowledge of VBA. To learn more about events, visit our VBA Tutorial.

Источник