Risultati da 1 a 6 di 6

Discussione: funzione IF....



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1290
    Versione Office
    Excel 2016
    Likes ricevuti
    25
    Likes dati
    19

    funzione IF....

    Ciao a tutti........
    per ottimizzare il msgbox, ho questo funzione............
    Codice HTML: 
    Private Sub CommandButton2_Click()
        If ComboBox1 = "" Then
        Risp = MsgBox("Attento non hai selezionato nessuna squadra da modificare!!", 6 + 48, "Attenzione !!")
        End If
        
    Risp = MsgBox("Sei sicuro di voler modificare la squadra?", 1 + 48, "Attenzione !!")
      If Risp = 1 Then
      MsgBox "La squadra è stata modificata correttamente", 1 + 32, "Messaggio !!"
        Else
        Exit Sub
        End If
    With Foglio2
    .............................
    vorrei sapere come posso dopo il primo messaggio se premendo il tasto ok la funzione mi torna indietro
    fino a quando non seleziona un nome dall combbox?
    perche adesso la macro mi và avanti ugualmente
    windows 10
    Excel 2016

  2. #2
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    982
    Versione Office
    2016 64bit
    Likes ricevuti
    182
    Likes dati
    92
    Esattamente come nell' If/Then successivo; aggiungi il Exit Sub dopo il messaggio (l' Else qui non serve perché c'è da rispondere solo Ok) e così si interrompe la macro e costringi l'utilizzatore a cliccare nuovamente il bottone se non ha selezionato la squadra.

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    54
    Messaggi
    10081
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2584
    Likes dati
    1554
    Ciao,
    non entrando nel merito del codice, giusto come dice rollis, che saluto.

    Codice: 
    Private Sub CommandButton2_Click()
        If ComboBox1 = "" Then
        Risp = MsgBox("Attento non hai selezionato nessuna squadra da modificare!!", 6 + 48, "Attenzione !!")
        Exit Sub
        Else
        
    Risp = MsgBox("Sei sicuro di voler modificare la squadra?", 1 + 48, "Attenzione !!")
      If Risp = 1 Then
      MsgBox "La squadra è stata modificata correttamente", 1 + 32, "Messaggio !!"
        End If
        End If
    With Foglio2 ......
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1290
    Versione Office
    Excel 2016
    Likes ricevuti
    25
    Likes dati
    19
    Come sempre grazie a entrambi per il passaggio e la spiegazione.......
    windows 10
    Excel 2016

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    46
    Messaggi
    3531
    Versione Office
    Excel 2013
    Likes ricevuti
    1228
    Likes dati
    1303
    Giusto per puntualizzare, la prima variabile "Risp" non ha nessuna utilità al contrario della seconda che serve a conoscere la risposta dell'operatore:

    Codice: 
    Private Sub CommandButton2_Click()
    If ComboBox1 = "" Then
        'Risp = MsgBox("Attento non hai selezionato nessuna squadra da modificare!!", 6 + 48, "Attenzione !!")
        MsgBox "Attento non hai selezionato nessuna squadra da modificare!!", 6 + 48, "Attenzione !!"
        Exit Sub
    Else
        Risp = MsgBox("Sei sicuro di voler modificare la squadra?", 1 + 48, "Attenzione !!")
        If Risp = 1 Then
            MsgBox "La squadra è stata modificata correttamente", 1 + 32, "Messaggio !!"
        End If
    End If
    End Sub
    ...OMISSIS...

  6. #6
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1290
    Versione Office
    Excel 2016
    Likes ricevuti
    25
    Likes dati
    19
    Grazie Rubik......... ho verificato la prima "risp" come variabile non serve
    già modificato tutto

    :246:
    windows 10
    Excel 2016

Discussioni Simili

  1. Funzione indice/confronta all'interno della Funzione "O" ed "E"
    Di Rosaria79 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 28/06/16, 19:57

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •