United States

Change

All Microsoft Sites

Help and Support

Identificativo articolo: 213630 - Ultima modifica: giovedì 12 ottobre 2006 - Revisione: 5.2

Utilizzo delle istruzioni IF THEN ELSE e SELECT CASE in esempi scritti in Visual Basic per Excel 2000

Visualizza i prodotti a cui si riferisce l?articolo.

In Microsoft Visual Basic, Applications Edition, vi sono due istruzioni che possono essere utilizzate per eseguire un'istruzione condizionale: un'istruzione If...Then...Else o un'istruzione Select Case. L'istruzione If...Then...Else esegue un gruppo di istruzioni in base al valore di un'espressione mentre l'istruzione Select Case esegue una sola istruzione tra tante in base al valore di un'espressione.

Torna all'inizio

Informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare procedure atte a soddisfare specifiche esigenze. Le macro di esempio seguenti mostrano come utilizzare le istruzioni If...Then...Else e Select Case.

Torna all'inizio

Macro di esempio utilizzando l'istruzione If...Then...Else

   Sub Using_IF()
      ' Dimension the variable.
      Dim x As Integer
      ' Place a value in x.
      x = Int(Rnd * 100)
      ' Display the value of x.
      MsgBox "The value of x is " & x & "."
      ' Test to see if x less than or equal to 10.
      If x <= 10 Then
         ' Display a message box.
         MsgBox "X is <=10"
      ' Test to see if x less than or equal to 40 and greater than 10.
      ElseIf x <= 40 And x > 10 Then
         MsgBox "X is <=40 and > 10"
      ' Test to see if x less than or equal to 70 and greater than 40.
      ElseIf x <= 70 And x > 40 Then
         MsgBox "X is <=70 and > 40"
      ' Test to see if x less than or equal to 100 and greater than 70.
      ElseIf x <= 100 And x > 70 Then
         MsgBox "X is <= 100 and > 70"
      ' If none of the above tests returned true.
      Else
         MsgBox "X does not fall within the range"
      End If
   End Sub

Torna all'inizio

Macro di esempio utilizzando l'istruzione Select Case

   Sub Using_Case()
      ' Dimension the variable.
      Dim x As Integer
      ' Place a value in x.
      x = Int(Rnd * 100)
      ' Display the value of x.
      MsgBox "The value of x is " & x & "."
      ' Start the Select Case structure.
      Select Case x
         ' Test to see if x less than or equal to 10.
         Case Is <= 10
            ' Display a message box.
            MsgBox "X is <=10"
         ' Test to see if x less than or equal to 40 and greater than 10.
         Case 11 To 40
            MsgBox "X is <=40 and > 10"
         ' Test to see if x less than or equal to 70 and greater than 40.
         Case 41 To 70
            MsgBox "X is <=70 and > 40"
         ' Test to see if x less than or equal to 100 and greater than 70.
         Case 71 To 100
            MsgBox "X is <= 100 and > 70"
         ' If none of the above tests returned true.
         Case Else
            MsgBox "X does not fall within the range"
      End Select
   End Sub

Torna all'inizio

Riferimenti

Per ulteriori informazioni sull'utilizzo delle istruzioni Select Case, in Visual Basic Editor scegliere Guida in linea Microsoft Visual Basic dal menu ?, digitare Utilizzo di istruzioni Select Case nella casella dell'Assistente di Office o della Ricerca libera, quindi fare clic su Cerca per visualizzare l'argomento.
Per ulteriori informazioni sull'utilizzo dell'istruzione IF, in Visual Basic Editor scegliere Guida in linea Microsoft Visual Basic dal menu ?, digitare Utilizzo di istruzioni If...Then...Else nella casella dell'Assistente di Office o della Ricerca libera, quindi fare clic su Cerca per visualizzare l'argomento.
Per ulteriori informazioni sulla visualizzazione della guida di Visual Basic, Applications Edition, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:

226118 (http://support.microsoft.com/kb/226118/ ) Elenco delle risorse disponibili per apprendere nozioni di programmazione per Visual Basic, Applications Edition

Per ulteriori informazioni sull'utilizzo del codice di esempio riportato in questo articolo, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:

212536 (http://support.microsoft.com/kb/212536/ ) OFF2000: Come eseguire il codice di esempio contenuto negli articoli della Knowledge Base

Torna all'inizio

Le informazioni in questo articolo si applicano a

Microsoft Excel 2000 Standard Edition

Torna all'inizio

kbdtacode kbhowto kbprogramming KB213630

Torna all'inizio

LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.