personalizzare la barra di stato excel 2007

[papiriof]

E' possibile personalizzare la barra di stato di excel 2007 ?
Mi spiego nella parte in basso a destra trovo attive le funzioni Somma, Minimo , Massimo e altre di un eventuale intervallo di celle selezionato, la domanda: è possibile immettere in qualche modo anche la funzione "Moda" ?

[alfrimpa]

Ciao

Prova dare uno sguardo qui

http://stackoverflow.com/questions/1861 ... r-in-excel

[Anthony47]

Traduco il suggerimento linkato da Alfredo:
In modo nativo puoi solo scegliere le opzioni che trovi facendo tasto dx sulla barra di status, dove Moda non esiste.
Pero' usando ad esempio l'evento Worksheet_SelectionChange puoi calcolare il dato che vuoi e farlo comparire nella barra di stato, in sostituzione dei messaggi standard di sistema. Nel tuo caso l'istruzione che visualizza Moda potrebbe essere

Codice: Seleziona tutto

Application.StatusBar = Application.WorksheetFunction.Mode(Selection)

Ciao

[papiriof]

Grazie ad Alfredo e Anthony ho risolto in questa maniera:

Codice: Seleziona tutto

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If TypeName(Target) = "Range" Then
        If Target.Cells.Count > 1 Then
        Application.StatusBar = "MODA: " & Application.WorksheetFunction.Mode(Selection)
          '  Application.StatusBar = "My Function: " & _
                                 '   Application.Evaluate( _
                                   '                       "=MODE(" & _
                                  '                         Target.Address & _
                                    '                       ") / (MODE(" & _
                                     '                      Target.Address & _
                                      '                     ") + COUNTBLANK(" & _
                                         '                  Target.Address & _
                                          '               "))" _
                                            '               )
       End If
    End If
End Sub

[papiriof]

Un piccolo inconveniente: come detto nel messaggio precedente Ho usato una Private Sub che logicamente ho messo nel modulo del foglio dove desideravo che agisse , solo che cambiando foglio (della stessa cartella) allorquando seleziono un intervallo in basso a sinistra compare "Moda:seguito dal numero+frequente" esattamente come se stesse nel foglio dove ho piazzato la Private Sub suddetta.
La cosa non mi dispiace solo che quel "Moda:seguito dal numero+frequente" si va a mettere esattamente dove sta il pulsante per registrare le macro togliendo quest'ultimo ; per farlo riapparire come fare, attualmente devo chiudere la cartella e riaprila...

[papiriof]

Rettifico parzialmente "Moda:seguito dal numero+frequente" rimane su un altro foglio solo se utilizzo una selezione di almeno 2 celle nel foglio contenente la private sub

[Anthony47]

Insomma rimane nella status bar un messaggio congelato, che e' l'ultimo che era stato visualizzato sul foglio dove ti interessava?

Nello stesso modulo dove hai inserito la Sub Worksheet_SelectionChange inserisci:

Codice: Seleziona tutto

Private Sub Worksheet_Deactivate()
Application.StatusBar = ""
End Sub


Ciao

[papiriof]

OK !! così funge,in pratica quando abbandono il foglio si ritorna allo stato normale

[Anthony47]

Cosi' credi che funzioni...
Io temo che devi aggiungere anche queste nel modulo ThisWorkbook:

Codice: Seleziona tutto

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = ""
End Sub

Private Sub Workbook_Deactivate()
Application.StatusBar = ""
End Sub

Chiara la logica?