In questo articolo, elaboreremo come realizzare un cronometro che puoi utilizzare per gli esami in Word tramite VBA.
Con l'editor VBA in Word, puoi effettivamente creare molti strumenti piccoli ma utili da solo. E oggi vogliamo mostrarti come fare il cronometro. Puoi attivarlo e usarlo ogni volta che Word è aperto. Ad esempio, ti tornerà utile durante gli esami.
Inserisci un modulo nel progetto VBA
- Prima di tutto, premi "Alt + F11" per aprire l'editor VBA in Word.
- Quindi fare clic sul progetto "Normale" e fare clic su "Inserisci".
- Scegli "Modulo" in quel menu.
- Fare doppio clic sul modulo per aprirlo.
- Premere "F4" per aprire la "Finestra Proprietà". Cambia il nome del modulo come "modStopwatch".
- Quindi incolla i seguenti codici sul modulo:
Public g_dtStart As Variant
Public g_bOnTimer As Boolean
Public Sub OnTimerUpdate()
Dim tmNextUpdate As Variant
frmStopwatch.lblShowElapsedTime = Format(Now - g_dtStart, "hh:mm:ss")
tmNextUpdate = Now + TimeValue("00:00:01")
If g_bOnTimer Then
Application.OnTime tmNextUpdate, "OnTimerUpdate"
End If
End Sub
Sub TriggerStopwatch() frmStopWatch.Show End Sub
- Infine, salva i codici.
Inserisci un modulo utente
- Nell'editor VBA, fai clic su "Inserisci" e scegli "UserForm".
- Quindi fare clic sulle sue maniglie per regolare le dimensioni del modulo.
- Avanti denominare il modulo utente come "frmStopwatch", imposta la sua didascalia come "Cronometro"e imposta il colore di sfondo. Anche, imposta "ShowModal" come "False".
- Fare clic sulla scheda "Visualizza" e selezionare "Casella degli strumenti".
- Nella casella degli strumenti, fai clic su "Etichetta" e disegna sei etichette in una posizione corretta sul modulo utente, ad esempio sotto:
- Ora, imposta le proprietà per ogni etichetta.
- Fare clic sull'etichetta 1. Quindi andare alla finestra delle proprietà. Inserisci “Start Time:” per la didascalia. Cambia il colore di sfondo e il carattere come richiesto.
- Clicca sull'etichetta 2. Chiamalo come "lblStartTempo”. Impostare "BackColor" in bianco. Quindi imposta "Font" correttamente.
- Clicca sull'etichetta 3. Digita "End Time:" per la didascalia. Imposta il colore di sfondo e il carattere come quelli dell'etichetta 1.
- Clicca sull'etichetta 4. Chiamalo come "lblEndTime". Impostare "BackColor" in bianco. Quindi imposta il carattere uguale a quello dell'etichetta 2.
- Clicca sull'etichetta 5. Immettere "Tempo trascorso:" per la didascalia. Imposta il colore di sfondo e il carattere come quelli dell'etichetta 1.
- Clicca sull'etichetta 6. Chiamalo come "lblShowElapsedTime". Impostare "BackColor" in bianco. Quindi imposta il carattere uguale a quello dell'etichetta 2.
- Nella casella degli strumenti, fai clic su "CommandButton" e crea 3 pulsanti. Disporli nel seguente ordine:
- Allo stesso modo, imposta le proprietà del pulsante.
- Fare clic sul pulsante 1. Chiamalo come "btnStart ". Imposta il suo colore di sfondo. Inserisci “Start Timer” per la didascalia. E imposta il carattere correttamente.
- Fare clic sul pulsante 2. Chiamalo come "btnStop". Imposta il suo colore di sfondo. Immettere "Stop Timer" per la didascalia. E imposta il carattere correttamente.
- Fare clic sul pulsante 3. Denominalo come "cmdClose". Imposta il suo colore di sfondo. Digita "Chiudi" per la didascalia. E imposta il carattere correttamente.
- Ora fai doppio clic su “Start Timer”. E inserisci i seguenti codici:
Private Sub btnStart_Click()
Dim tmNextUpdate As Variant
g_dtStart = Now
frmStopwatch.lblStartTime = Format(g_dtStart, "hh:mm:ss")
frmStopwatch.lblShowElapsedTime = Format(0, "hh:mm:ss")
tmNextUpdate = Now + TimeValue("00:00:01")
g_bOnTimer = True
Application.OnTime tmNextUpdate, "modStopwatch.OnTimerUpdate", 0
End Sub
La prima e l'ultima riga sono già presenti, quindi non è necessario inserirle nuovamente. Salva i codici.
- Avanti doppio clic sul pulsante "Stop Timer". Quindi inserisci questi codici:
Private Sub btnStop_Click() varEndTime = Now lblEndTime = Format(varEndTime, "hh:mm:ss") g_bOnTimer = False End Sub
- Fare doppio clic sul pulsante "Chiudi" e incollare i codici:
Private Sub cmdClose_Click() Unload Me End Sub
Quindi puoi assegnare un pulsante per la macro "TriggerCronometro”.Per quanto riguarda i passaggi dettagliati per assegnare il pulsante per la macro, puoi fare riferimento a questo articolo: Come rimuovere la formattazione dei testi incollati con macro e VBA in Your Word
Ecco una dimostrazione dell'utilizzo del cronometro:
Scegli lo strumento di recupero giusto
Con più dispositivi digitali coinvolti nella memorizzazione delle informazioni, il recupero dei dati è diventato un argomento caldo al giorno d'oggi. Ad esempio, se si verifica un collasso di Word, è necessario procurarsi uno strumento per ripararlo parola corrotta. Allora è di utmost importanza per ottenere uno strumento idoneo.
Introduzione dell'autore:
Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare xlsx e pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com