| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simulate click of AutoSum doesn't work in 2007
In the past I have used the following code line to simulate a click of the
"AutoSum" button. Application.CommandBars("Standard").Controls("&Aut oSum").Execute This doesn't work in 2007; recording the macro doesn't work either. Anyone have an equivalent that works in 2007; if so could you please post? Thanks in advance for your assistance. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Simulate click of AutoSum doesn't work in 2007
This vintage code still seems to work in Excel 2007.
Sub DoAutoSum() Dim x As CommandBarControl Set x = CommandBars.FindControl(ID:=226) Set x = x.Controls(1) x.Execute 'AutoSum If Selection.Cells.Count = 1 Then x.Execute 'Again to exit edit mode End If End Sub -- Jim "XP" wrote in message ... | In the past I have used the following code line to simulate a click of the | "AutoSum" button. | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute | | This doesn't work in 2007; recording the macro doesn't work either. Anyone | have an equivalent that works in 2007; if so could you please post? | | Thanks in advance for your assistance. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Simulate click of AutoSum doesn't work in 2007
Hi Jim
I try this first but it blow Application.CommandBars.FindControl(ID:=226).Execu te So posted this Application.CommandBars.ExecuteMso ("AutoSum") But yours is working OK -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Jim Rech" wrote in message ... This vintage code still seems to work in Excel 2007. Sub DoAutoSum() Dim x As CommandBarControl Set x = CommandBars.FindControl(ID:=226) Set x = x.Controls(1) x.Execute 'AutoSum If Selection.Cells.Count = 1 Then x.Execute 'Again to exit edit mode End If End Sub -- Jim "XP" wrote in message ... | In the past I have used the following code line to simulate a click of the | "AutoSum" button. | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute | | This doesn't work in 2007; recording the macro doesn't work either. Anyone | have an equivalent that works in 2007; if so could you please post? | | Thanks in advance for your assistance. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Simulate click of AutoSum doesn't work in 2007
I see now that the menu and autosum have the same value(226)
-- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Ron de Bruin" wrote in message ... Hi Jim I try this first but it blow Application.CommandBars.FindControl(ID:=226).Execu te So posted this Application.CommandBars.ExecuteMso ("AutoSum") But yours is working OK -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Jim Rech" wrote in message ... This vintage code still seems to work in Excel 2007. Sub DoAutoSum() Dim x As CommandBarControl Set x = CommandBars.FindControl(ID:=226) Set x = x.Controls(1) x.Execute 'AutoSum If Selection.Cells.Count = 1 Then x.Execute 'Again to exit edit mode End If End Sub -- Jim "XP" wrote in message ... | In the past I have used the following code line to simulate a click of the | "AutoSum" button. | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute | | This doesn't work in 2007; recording the macro doesn't work either. Anyone | have an equivalent that works in 2007; if so could you please post? | | Thanks in advance for your assistance. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Simulate click of AutoSum doesn't work in 2007
Totally forgot about ExecuteMso, Ron. Thanks.
-- Jim "Ron de Bruin" wrote in message ... | Hi Jim | | I try this first but it blow | Application.CommandBars.FindControl(ID:=226).Execu te | | So posted this | Application.CommandBars.ExecuteMso ("AutoSum") | | But yours is working OK | | | -- | | Regards Ron de Bruin | http://www.rondebruin.nl/tips.htm | | | "Jim Rech" wrote in message ... | This vintage code still seems to work in Excel 2007. | | Sub DoAutoSum() | Dim x As CommandBarControl | Set x = CommandBars.FindControl(ID:=226) | Set x = x.Controls(1) | x.Execute 'AutoSum | If Selection.Cells.Count = 1 Then | x.Execute 'Again to exit edit mode | End If | End Sub | | -- | Jim | "XP" wrote in message | ... | | In the past I have used the following code line to simulate a click of the | | "AutoSum" button. | | | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute | | | | This doesn't work in 2007; recording the macro doesn't work either. Anyone | | have an equivalent that works in 2007; if so could you please post? | | | | Thanks in advance for your assistance. | |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Simulate click of AutoSum doesn't work in 2007
Hi Jim
Is my answer in this thread "Selective Ribbon miminise" correct or is there a better way ? I never wanted to keep the QAT and hide the Ribbon myself so this was my first thought. -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Jim Rech" wrote in message ... Totally forgot about ExecuteMso, Ron. Thanks. -- Jim "Ron de Bruin" wrote in message ... | Hi Jim | | I try this first but it blow | Application.CommandBars.FindControl(ID:=226).Execu te | | So posted this | Application.CommandBars.ExecuteMso ("AutoSum") | | But yours is working OK | | | -- | | Regards Ron de Bruin | http://www.rondebruin.nl/tips.htm | | | "Jim Rech" wrote in message ... | This vintage code still seems to work in Excel 2007. | | Sub DoAutoSum() | Dim x As CommandBarControl | Set x = CommandBars.FindControl(ID:=226) | Set x = x.Controls(1) | x.Execute 'AutoSum | If Selection.Cells.Count = 1 Then | x.Execute 'Again to exit edit mode | End If | End Sub | | -- | Jim | "XP" wrote in message | ... | | In the past I have used the following code line to simulate a click of the | | "AutoSum" button. | | | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute | | | | This doesn't work in 2007; recording the macro doesn't work either. Anyone | | have an equivalent that works in 2007; if so could you please post? | | | | Thanks in advance for your assistance. | |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Simulate click of AutoSum doesn't work in 2007
What you posted is the only way I know of to HIDE the ribbon and leave the
QAT. But he didn't ask that. He wanted (1) a macro to (2) "disable" the ribbon and (3) leave the QAT so he can use it for his toolbar. So I think the answer to his question is "it can't be done".<g -- Jim "Ron de Bruin" wrote in message ... | Hi Jim | | Is my answer in this thread "Selective Ribbon miminise" correct | or is there a better way ? | | I never wanted to keep the QAT and hide the Ribbon myself so this was my first thought. | | | -- | | Regards Ron de Bruin | http://www.rondebruin.nl/tips.htm | | | "Jim Rech" wrote in message ... | Totally forgot about ExecuteMso, Ron. Thanks. | | -- | Jim | "Ron de Bruin" wrote in message | ... | | Hi Jim | | | | I try this first but it blow | | Application.CommandBars.FindControl(ID:=226).Execu te | | | | So posted this | | Application.CommandBars.ExecuteMso ("AutoSum") | | | | But yours is working OK | | | | | | -- | | | | Regards Ron de Bruin | | http://www.rondebruin.nl/tips.htm | | | | | | "Jim Rech" wrote in message | ... | | This vintage code still seems to work in Excel 2007. | | | | Sub DoAutoSum() | | Dim x As CommandBarControl | | Set x = CommandBars.FindControl(ID:=226) | | Set x = x.Controls(1) | | x.Execute 'AutoSum | | If Selection.Cells.Count = 1 Then | | x.Execute 'Again to exit edit mode | | End If | | End Sub | | | | -- | | Jim | | "XP" wrote in message | | ... | | | In the past I have used the following code line to simulate a click of | the | | | "AutoSum" button. | | | | | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute | | | | | | This doesn't work in 2007; recording the macro doesn't work either. | Anyone | | | have an equivalent that works in 2007; if so could you please post? | | | | | | Thanks in advance for your assistance. | | | |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Simulate click of AutoSum doesn't work in 2007
Use this XP
Application.CommandBars.ExecuteMso ("AutoSum") -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "XP" wrote in message ... In the past I have used the following code line to simulate a click of the "AutoSum" button. Application.CommandBars("Standard").Controls("&Aut oSum").Execute This doesn't work in 2007; recording the macro doesn't work either. Anyone have an equivalent that works in 2007; if so could you please post? Thanks in advance for your assistance. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Autosum doesn't work. How do I get column total? | Excel Discussion (Misc queries) | |||
| Simulate left click... | Excel Programming | |||
| macro doesn't properly record AutoSum (and SendKeys doesn't work) | Excel Programming | |||
| Should have ability to right click to accept autosum, not Enter. | Excel Worksheet Functions | |||
| Simulate Click Event | Excel Programming | |||
Hybrid Mode
