Excel 2003

I take it there's no way VBA method to access control of the
AutoCalculate feature in the status bar that shows avg/sum/etc upon
selecting cells of numbers... right?

I wanted to create a button that would make it toggle from sum to avg
instead of the conventional right-clicking it and then choosing the
function manually.

If not, I'm thinking of making my own display such as a modeless form
or toolbar.

Any experience with this or any ideas?

Thanks,
Melina

How about you see several functions at once?

Forgot who posted this.......Jim Rech?

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim s As String
Dim wfn As WorksheetFunction
Set wfn = Application.WorksheetFunction
On Error GoTo errH:
If wfn.Count(Target) < 2 Then
s = ""
Else

s = "Sum= " & wfn.Sum(Target) & " " & _
"Avg= " & wfn.Average(Target) & " " & _
"Min= " & wfn.Min(Target) & " " & _
"Max= " & wfn.Max(Target)

End If
errH:
Application.StatusBar = s
End Sub


Gord Dibben MS Excel MVP

On Thu, 1 Oct 2009 15:51:53 -0700 (PDT), Mel <(E-Mail Removed)> wrote:

>Excel 2003
>
>I take it there's no way VBA method to access control of the
>AutoCalculate feature in the status bar that shows avg/sum/etc upon
>selecting cells of numbers... right?
>
>I wanted to create a button that would make it toggle from sum to avg
>instead of the conventional right-clicking it and then choosing the
>function manually.
>
>If not, I'm thinking of making my own display such as a modeless form
>or toolbar.
>
>Any experience with this or any ideas?
>
>Thanks,
>Melina

Too cool! Much simpler than I was going to build. Saved me a lot of
time. Thanks.

Melina

On Oct 1, 6:55*pm, Gord Dibben <gorddibbATshawDOTca> wrote:
> How about you see several functions at once?
>
> Forgot who posted this.......Jim Rech?
>
> Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
> * * * * * * * * * * * * ByVal Target As Range)
> Dim s As String
> Dim wfn As WorksheetFunction
> * * Set wfn = Application.WorksheetFunction
> * * On Error GoTo errH:
> * * If wfn.Count(Target) < 2 Then
> * * * * s = ""
> * * Else
>
> * * * * s = "Sum= " & wfn.Sum(Target) & " " & _
> * * * * * * "Avg= " & wfn.Average(Target) & " " & _
> * * * * * * "Min= " & wfn.Min(Target) & " " & _
> * * * * * * "Max= " & wfn.Max(Target)
>
> * * End If
> errH:
> * * Application.StatusBar = s
> End Sub
>
> Gord Dibben *MS Excel MVP
>
> On Thu, 1 Oct 2009 15:51:53 -0700 (PDT), Mel <mel.tu...@yahoo.com> wrote:
> >Excel 2003
>
> >I take it there's no way VBA method to access control of the
> >AutoCalculate feature in the status bar that shows avg/sum/etc upon
> >selecting cells of numbers... right?
>
> >I wanted to create a button that would make it toggle from sum to avg
> >instead of the conventional right-clicking it and then choosing the
> >function manually.
>
> >If not, I'm thinking of making my own display such as a modeless form
> >or toolbar.
>
> >Any experience with this or any ideas?
>
> >Thanks,
> >Melina

The originator will be happy to hear that.

Glad I could pass it on.


Gord

On Thu, 1 Oct 2009 19:45:43 -0700 (PDT), Mel <(E-Mail Removed)> wrote:

>Too cool! Much simpler than I was going to build. Saved me a lot of
>time. Thanks.
>
>Melina
>
>On Oct 1, 6:55*pm, Gord Dibben <gorddibbATshawDOTca> wrote:
>> How about you see several functions at once?
>>
>> Forgot who posted this.......Jim Rech?
>>
>> Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
>> * * * * * * * * * * * * ByVal Target As Range)
>> Dim s As String
>> Dim wfn As WorksheetFunction
>> * * Set wfn = Application.WorksheetFunction
>> * * On Error GoTo errH:
>> * * If wfn.Count(Target) < 2 Then
>> * * * * s = ""
>> * * Else
>>
>> * * * * s = "Sum= " & wfn.Sum(Target) & " " & _
>> * * * * * * "Avg= " & wfn.Average(Target) & " " & _
>> * * * * * * "Min= " & wfn.Min(Target) & " " & _
>> * * * * * * "Max= " & wfn.Max(Target)
>>
>> * * End If
>> errH:
>> * * Application.StatusBar = s
>> End Sub
>>
>> Gord Dibben *MS Excel MVP
>>
>> On Thu, 1 Oct 2009 15:51:53 -0700 (PDT), Mel <mel.tu...@yahoo.com> wrote:
>> >Excel 2003
>>
>> >I take it there's no way VBA method to access control of the
>> >AutoCalculate feature in the status bar that shows avg/sum/etc upon
>> >selecting cells of numbers... right?
>>
>> >I wanted to create a button that would make it toggle from sum to avg
>> >instead of the conventional right-clicking it and then choosing the
>> >function manually.
>>
>> >If not, I'm thinking of making my own display such as a modeless form
>> >or toolbar.
>>
>> >Any experience with this or any ideas?
>>
>> >Thanks,
>> >Melina