Kako napraviti štopericu za ispite u Wordu putem VBA

U ovom članku ćemo elaborirati kako napraviti štopericu koju možete koristiti za ispite u Wordu putem VBA.

Sa VBA editorom u Wordu, zapravo možete sami kreirati mnoge male, ali korisne alate. A danas želimo da vam pokažemo način da napravite štopericu. Možete ga pokrenuti i koristiti kad god je Word otvoren. Na primjer, dobro će doći prilikom polaganja ispita.

Umetnite modul u VBA projekat

1. Prije svega, pritisnite “Alt+ F11” da otvorite VBA editor u Wordu.
2. Zatim kliknite na “Normal” projekt i kliknite na “Insert”.
3. U tom meniju izaberite „Modul“.
4. Dvaput kliknite na modul da ga otvorite.
5. Pritisnite “F4” da otvorite “Prozor sa svojstvima”. Promijenite naziv modula u “modStopwatch”.
6. Zatim zalijepite sljedeće kodove na modul:

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

7. Konačno, sačuvajte kodove.

Umetnite korisnički obrazac

1. U VBA editoru kliknite na “Insert” i odaberite “UserForm”.
2. Zatim kliknite na njegove ručke da prilagodite veličinu obrasca.
3. sljedeći nazovite korisnički obrazac kao "frm Štoperica", postavite njegov natpis kao "Štoperica"i postavite boju pozadine. također, postavite “ShowModal” kao “False”.
4. Kliknite karticu "Prikaz" i odaberite "Toolbox".
5. Na kutiji s alatima, kliknite na “Label” i nacrtajte šest oznaka na odgovarajućoj poziciji na korisničkom obrascu, kao što je dolje:
6. Sada postavite svojstva za svaku oznaku.

• Kliknite na oznaku 1. Zatim idite na prozor sa svojstvima. Unesite “Start Vrijeme:” za naslov. Promijenite boju pozadine i font prema potrebi.
• Kliknite na oznaku 2. Nazovite ga kao “lblStartTime”. Postavite “BackColor” u bijelo. Zatim pravilno postavite “Font”.
• Kliknite na oznaku 3. Unesite "Vrijeme završetka:" za naslov. Postavite boju pozadine i font na isti kao na naljepnici 1.
• Kliknite na oznaku 4. Imenujte ga kao "lblEndTime". Postavite “BackColor” u bijelo. Zatim postavite font kao isti na naljepnici 2.
• Kliknite na oznaku 5. Unesite “Proteklo vrijeme:” za naslov. Postavite boju pozadine i font na isti kao na naljepnici 1.
• Kliknite na oznaku 6. Imenujte ga kao "lblShowElapsedTime". Postavite “BackColor” u bijelo. Zatim postavite font kao isti na naljepnici 2.

7. Na alatnoj kutiji kliknite na “CommandButton” i kreirajte 3 dugmeta. Poređajte ih sljedećim redoslijedom:
8. Slično, postavite svojstva gumba.

• Kliknite na dugme 1. Nazovite ga kao “btnStart ”. Postavite njegovu boju pozadine. Unesite “Start Timer” za natpis. I pravilno postavite font.
• Kliknite na dugme 2. Nazovite ga kao "btnStop". Postavite njegovu boju pozadine. Unesite “Stop Timer” za natpis. I pravilno postavite font.
• Kliknite na dugme 3. Imenujte ga kao “cmdClose”. Postavite njegovu boju pozadine. Upišite "Zatvori" za natpis. I pravilno postavite font.

9. Sada dvaput kliknite na “Start Tajmer”. I unesite sljedeće kodove:

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

Prvi i zadnji red su već tu, tako da ih ne morate ponovo unositi. Sačuvajte kodove.

10. Zatim dvaput kliknite na dugme “Stop Timer”. Zatim unesite ove kodove:

Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub

11. Dvaput kliknite na dugme "Zatvori" i zalijepite kodove:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Zatim možete dodeliti dugme za makro "TriggerStopwatch„Što se tiče detaljnih koraka za dodeljivanje dugmeta za makro, možete pogledati ovaj članak: Kako ukloniti formatiranje zalijepljenih tekstova pomoću makroa i VBA u Wordu

Evo demonstracije korištenja štoperice:

Odaberite pravi alat za oporavak

Sa više digitalnih uređaja uključenih u pohranjivanje informacija, oporavak podataka postao je vruća tema u današnje vrijeme. Na primjer, ako doživite kolaps Worda, morate nabaviti alat za popravak pokvarena riječ. Onda je od utmost važno je dobiti odgovarajući alat.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporavi xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com