Condividi:        

casella di riepilogo a discesa con + macro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

casella di riepilogo a discesa con + macro

Postdi pippo1300 » 19/07/10 07:45

Salve a tutti uso excel 2007 da poco, potrei sapere se è possibile gestire nel mio caso 3 macro differenti da una casella combinata a discesa ?
per intenderci ho un' intervallo di input f1;f3 collegamento cella d4
quindi ho: preventivi (in f1)conferme d'ordini (in f2) contratti in (f3) in d4 ho una sequenza di numeri 1,2,3 per ogni voce

come posso assegnare una macro differente per voce ?
grazie 1000 a chi mi aiuta.
pippo1300
Utente Junior
 
Post: 20
Iscritto il: 23/06/10 11:22

Sponsor
 

Re: casella di riepilogo a discesa con + macro

Postdi maxmula » 19/07/10 09:15

Eccome!

Supponi di avere nella tua combobox (che chiamiamo LISTA_FUNZIONI) le seguenti voci:
    somma
    differenza
    area
    perimetro

nell'evento LISTA_FUNZIONI_Change usi questo codice:
Codice: Seleziona tutto
Private Sub lista_funzioni_Change()
    Select Case UCase(lista_funzioni.Text)
    Case "SOMMA"
        Call SOMMA(VALORE1, VALORE2)
   
    Case "DIFFERENZA"
        Call DIFFERENZA(VALORE1, VALORE2)
       
    Case "AREA"
        Call AREA(VALORE1, VALORE2)
   
    Case "PERIMETRO"
        Call ERIMETRO(VALORE1, VALORE2)
       
    Case "ELSE"
        A = MsgBox("FUNZIONE NON VALIDA")
   
End Sub



Dove le funzioni AREA(), PERIMETRO(), ecc. sono le varie macro da richiamare e VALORE1, VALORE2 sono i parmetri da passare.


Ciao,
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: casella di riepilogo a discesa con + macro

Postdi maxmula » 19/07/10 09:19

Ops... mancava un pezzo!

Nel tuo caso, le voci saranno:
    Preventivi
    Conferme
    Contratti

Assolutamente analoga la gestione della Select Case, dovrai poi leggere i valori di D4 dalle funzioni richiamate, in modo da elaborarli correttamente.

Spero che la spiegazione sia chiara!

Ciao,
MAX
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: casella di riepilogo a discesa con + macro

Postdi ricky53 » 19/07/10 10:31

Ciao,

se la tua esigenza è avere una cella con un elenco ottenuto tramite convalida allora opera in questo modo:

1. nel foglio ove hai la cella con la convalida inserisci queste istruzioni:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
    Dato_Scelto = [D4]
    Select Case Dato_Scelto
    Case "Preventivi"
        Call Macro_Preventivi
    Case "Conferme d'ordini"
        Call Macro_Conferme_Ordini
    Case "Contratti"
        Call Macro_Contratti
    Case Else
        MsgBox ("Selezionare un dato")
    End Select
End Sub


2. in un modulo del VBAProject inserisci queste altre istruzioni:
Codice: Seleziona tutto
Public Dato_Scelto As String

Sub Macro_Preventivi()
    MsgBox "1. Dato selazionato:   '" & Dato_Scelto & "'"
End Sub

Sub Macro_Conferme_Ordini()
    MsgBox "2. Dato selazionato:   '" & Dato_Scelto & "'"
End Sub

Sub Macro_Contratti()
    MsgBox "3. Dato selazionato:   '" & Dato_Scelto & "'"
End Sub


a questo punto selezionando, nella cella "D4", un valore riceverai il messaggio che ho inserito io.
Tu dovrai sostituire, nelle varie macro, i messaggi con le tue istruzioni.

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: casella di riepilogo a discesa con + macro

Postdi pippo1300 » 19/07/10 13:33

grazie tante funziona
pippo1300
Utente Junior
 
Post: 20
Iscritto il: 23/06/10 11:22

Re: casella di riepilogo a discesa con + macro

Postdi ricky53 » 19/07/10 13:36

Ciao,

quale soluzione hai adottato?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: casella di riepilogo a discesa con + macro

Postdi pippo1300 » 19/07/10 18:15

Private Sub Worksheet_Change(ByVal Target As Range)
Dato_Scelto = [D4]
Select Case Dato_Scelto
Case "1"
Call Macro_Preventivi
Case "2"
Call Macro_Conferme_Ordini
Case "3"
Call Macro_Contratti
Case Else
MsgBox ("Selezionare un dato")
End Select
End Sub

ci sentiamo domani ho altri quesiti
per questo foglio di calcolo
ancora grazie sieti mitici
:)
pippo1300
Utente Junior
 
Post: 20
Iscritto il: 23/06/10 11:22

Re: casella di riepilogo a discesa con + macro

Postdi ricky53 » 19/07/10 23:35

Ciao,
CONSIGLIO: analizza bene quello che ti occorre e poi scrivi con attenzione quello che vuoi fare e ... ne usciremo in poco tempo ... sempre se quello che chiederai ... sia possibile farlo ...

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: casella di riepilogo a discesa con + macro

Postdi maxmula » 20/07/10 08:44

...E visto che siamo in tema di raccomandazioni... Ricorda di usare le funzioni (List) e (Code) per impaginare i post sul forum. ;)

Ti aspettiamo!
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34


Torna a Applicazioni Office Windows


Topic correlati a "casella di riepilogo a discesa con + macro":


Chi c’è in linea

Visitano il forum: Nessuno e 103 ospiti