Excel e gli applicativi Microsoft Office Sfida numero 4: MsgBox senza If

Voto per la Sfida n. 4

Scegli a chi dare il tuo voto per questa sfida (sono consentite tre preferenze)!

  • zer0kelvin0%0 votes
  • scossa50.00%4 votes
  • Albatros5437.50%3 votes
  • patel12.50%1 vote
  • Mirko50.00%4 votes
  • Marius4462.50%5 votes
  • Luca7350.00%4 votes
LoginRegistrati
Stai vedendo 11 articoli - dal 26 a 36 (di 36 totali)
  • Autore
    Articoli
  • #14671 Risposta

    Mirko
    Partecipante
      1 pt

      Ciao

      Seleziona la scheda di un foglio, poi inserisci Finestra di dialogo

      Per visualizzare la mia finestra esegui:

      `Sub Visualizza_Finestra()
        ActiveWorkbook.DialogSheets("Finestra di dialogo1").Visible = True
      End Sub`
      #14674 Risposta
      Luca73
      Luca73
      Partecipante
        44 pts

        OK Grazie

        #14675 Risposta

        vecchio frac
        Senior Moderator
          171 pts

          Oh ma da quanto tempo non vedevo un foglio macro!

          @luca: su una tab di un file Excel aperto, es Foglio1, tasto destro, Inserisci, poi "Finestra di dialogo Excel 5"

          #14676 Risposta

          vecchio frac
          Senior Moderator
            171 pts

            Non avevo visto la seconda pagina del thread, scusate ūüôā

            #14678 Risposta

            Mirko
            Partecipante
              1 pt

              Ciao allora sostituirei il msgbox con:

              Application.Assistant.DoAlert

              Rem Application.Assistant.DoAlert
              Rem On answer GoSub
              Sub self_destruction_16()
                  Dim answer As Long
                  answer = Application.Assistant.DoAlert("Attenzione", "Vuoi formattare il disco C: ?", _
                  vbOKCancel, 0, msoAlertDefaultFirst, msoAlertCancelDefault, False)
                  On answer GoSub Sub1, Sub2 ' Execution resumes here after
                  Exit Sub
              Sub1:
                  MsgBox "Boom!": Return
              Sub2:
                  Return
              End Sub

              h t t p s://docs.microsoft.com/en-us/dotnet/api/microsoft.office.core.assistant.doalert?view=office-pia

              #14679 Risposta

              vecchio frac
              Senior Moderator
                171 pts

                Mirko, ma come ti vengono?   

                #14681 Risposta

                vecchio frac
                Senior Moderator
                  171 pts

                  Allora via! Il televoto è aperto! Se non ho sbagliato le impostazioni, si possono esprimere tre preferenze.

                  Chiusura delle votazioni fra tre giorni, venerdì 5 aprile ore 20! Votate numerosi   

                  #14811 Risposta

                  vecchio frac
                  Senior Moderator
                    171 pts

                    Stop al televoto! E il vincitore è...

                    M  A  R  I  U  S  4  4 

                    Congratulazioni al vincitore!

                    E una coccarda     

                    E complimenti a tutti gli altri!!!

                    #14814 Risposta
                    Marius44
                    Marius44
                    Moderatore
                      36 pts

                      Buongiorno a tutti

                      Ragazzi, mi fate arrossire   

                      Son contento per aver conseguito la coccarda ma, tra tanti Guru, come ho fatto ad arrivare primo?

                      Non è che la nostra piattaforma e ... manipolabile (insinua qualcuno) "come la Rousseau"?

                      Comunque, grazie e ... me la tengo stretta.

                      Ciao,

                      Mario

                      #14818 Risposta

                      Anonimo
                        1 pt

                        Anch'io sono di quelli che ha votato Marius44.  

                        L'ho votato perché (senza nulla a togliere agli altri) mi è piaciuta la sua semplicità, immediatezza ed estrema leggibilità del codice.

                        Però davvero complimenti a tutti per la grande creatività dimostrata.  

                         

                         

                        #14820 Risposta

                        vecchio frac
                        Senior Moderator
                          171 pts

                          Grazie Leonardo... alla prossima Sfida parteciperai attivamente   

                        LoginRegistrati
                        Stai vedendo 11 articoli - dal 26 a 36 (di 36 totali)
                        Rispondi a: Sfida numero 4: MsgBox senza If
                        Gli allegati sono permessi solo ad utenti REGISTRATI
                        Le tue informazioni:



                        vecchio frac - 2750 risposte

                        patel
                        patel - 1089 risposte

                        albatros54
                        albatros54 - 1062 risposte

                        Marius44
                        Marius44 - 1000 risposte

                        Luca73
                        Luca73 - 798 risposte