Come visualizzare un Spinner Quando una macro VBA è in esecuzione

September 9

Come visualizzare un Spinner Quando una macro VBA è in esecuzione


Il modo migliore per consentire un aumento di utente o diminuire un valore nell'applicazione Microsoft Excel quando una macro è in esecuzione è quello di utilizzare un pulsante di selezione. Una macro è comunemente usato per registrare una sequenza di azioni che in seguito possono essere eseguite manualmente eseguendo il macro o facendo clic su un pulsante. Una macro è creato attraverso l'utilizzo di Visual Basic, Applications Edition (VBA), un linguaggio di programmazione utilizzato in applicazioni di Microsoft Office per automatizzare le attività di routine, come la visualizzazione di un filatore.

istruzione

1 Avviare Microsoft Excel, fare clic sulla scheda "developer" e fare clic sull'icona "Inserisci" nel riquadro "Controlli". Fai clic su "Button" e fare clic sul foglio di calcolo per aggiungere un nuovo pulsante di comando. Fai clic su "Pulsante di selezione" sotto "Controlli ActiveX" e aggiungerlo al foglio di calcolo.

2 Fare clic con il filatore e fare clic su "Proprietà" per visualizzare la finestra delle proprietà. Scegliere "False" accanto alla proprietà "visibile". Fare clic sull'icona "Macro" e digitare "IncrementValues" sotto "Nome macro". Fare clic sul pulsante "Crea" per creare una nuova macro.

3 Copiare e incollare il seguente codice per creare un "Mentre ... Loop" e aggiornare il foglio di calcolo con i valori ogni volta che l'utente fa clic sul pulsante filatore:

Sheet1.SpinButton1.Visible = True

Do While (contatore <> 10)

Range("A1").Select

Range ( "A1"). Value = contatore

Range ( "A2"). Selezionare

Range ( "A2"). Value = "esecuzione di macro ..."

Application.Wait ora + TimeValue ( "00:00:02")

DoEvents

Ciclo continuo

Range ( "A1"). Selezionare

Range ( "A1"). Value = ""

Range ( "A2"). Selezionare

Range ( "A2"). Value = "Macro finita."

Sheet1.SpinButton1.Visible = false

contatore = 0

4 Aggiungere la seguente riga di codice nella parte superiore del modulo per creare una variabile globale:

contatore globale come numero intero

5 Tornare a Microsoft Excel e fare clic destro "Pulsante 1" Fai clic su "Assegna macro" e fare clic su "IncrementValues." Fai clic su "OK".

6 Fare clic con il tasto filatore e fare clic su "Visualizza codice" per aprire un modulo di codice VBA. Copia e incolla il seguente codice per incrementare o decrementare il valore della variabile globale:

Private Sub SpinButton1_SpinDown ()

contatore = contatore - 1

End Sub

Private Sub SpinButton1_SpinUp ()

contatore = contatore + 1

End Sub

7 Tornare a Microsoft Excel e fare clic su "Pulsante 1" per avviare l'esecuzione della macro e visualizzare la casella di selezione. Fare clic sulla freccia verso l'alto del pulsante selezione per incrementare o la freccia verso il basso per diminuire. La macro nasconderà il filatore e interrompere l'esecuzione quando la variabile globale è pari a 10.