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
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    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
    809
    Versione Office
    2016 64bit
    Likes ricevuti
    142
    Likes dati
    52
    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à
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    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
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    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à
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    977
    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
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    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, 20: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
  •