Kuidas VBA kaudu oma Wordi eksamite jaoks stopperit teha

Sõnalahendused September 28, 2025

Selles artiklis käsitleme üksikasjalikumalt, kuidas teha stopperit, mida saate kasutada Wordis VBA kaudu uuringuteks.

Wordi VBA-redaktoriga saate tegelikult ise luua palju väikeseid, kuid kasulikke tööriistu. Ja täna tahame teile näidata stopperi valmistamise viisi. Saate seda käivitada ja kasutada alati, kui Word on avatud. Näiteks tuleb see kasuks eksamite tegemisel.Tehke oma Wordi eksamite jaoks VBA kaudu stopper

Sisestage moodul VBA projekti

  1. Kõigepealt vajutage Wordis VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  2. Seejärel klõpsake "Tavaline" projekt ja klõpsake "Lisa".
  3. Valige selles menüüs "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  4. Mooduli avamiseks topeltklõpsake sellel.
  5. Atribuutide akna avamiseks vajutage "F4". Muutke mooduli nimeks "modStopwatch".
  6. Järgmisena kleepige moodulisse järgmised koodid:
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
  1. Lõpuks salvestage koodid.Nimetage uus moodul -> Kleebi koodid -> Salvesta koodid

Sisestage kasutajavorm

  1. VBA redaktoris klõpsake "Insert" ja valige "UserForm".
  2. Seejärel klõpsake vormi suuruse reguleerimiseks selle käepidemeid.
  3. järgmine nimetage kasutajavorm "frmStopwatch", määrake selle pealkirjaks "Stopper"ja määrake taustavärv. Samuti määrake "ShowModal" väärtuseks "False".
  4. Klõpsake vahekaarti "Vaade" ja valige "Tööriistakast".Klõpsake "Vaade" -> valige "Tööriistakast"
  5. Klõpsake tööriistakastis nuppu "Silt" ja joonistage kuus silti kasutajavormi õigesse kohta, näiteks allpool:Sisesta kuus silti -> Määra iga sildi atribuut
  6. Nüüd määrake iga sildi omadused.
  • Klõpsake sildil 1. Seejärel minge atribuutide aknasse. Sisestage pealkirja jaoks „Algusaeg:”. Muutke taustavärvi ja fonti vastavalt vajadusele.
  • Klõpsake sildil 2. Nimeta see kui „lblStartTime“. Määrake "BackColor" valgeks. Seejärel määrake "Font" õigesti.
  • Klõpsake sildil 3. Sisestage pealdise jaoks "Lõppaeg:".. Määrake 1. sildi taustavärv ja font.
  • Klõpsake sildil 4. Nimetage see kui "lblEndTime". Määrake "BackColor" valgeks. Seejärel määrake sama font kui sildil 2.
  • Klõpsake sildil 5. Sisestage pealdise jaoks „Möödunud aeg:”.. Määrake 1. sildi taustavärv ja font.
  • Klõpsake sildil 6. Nimetage see kui "lblShowElapsedTime". Määrake "BackColor" valgeks. Seejärel määrake sama font kui sildil 2.
  1. Klõpsake tööriistakastis "CommandButton" ja looge 3 nuppu. Järjesta need järgmises järjekorras:Looge kolm nuppu -> Määra nupu atribuudid
  2. Samamoodi määrake nupu omadused.
  • Klõpsake nuppu 1. Nimeta see kui „btnStart“. Määrake selle taustavärv. Sisestage pealkirjaks „Alusta taimerit”. Ja määrake font õigesti.
  • Klõpsake nuppu 2. Nimetage see kui "btnStop". Määrake selle taustavärv. Sisestage pealdisteks "Stop Timer".. Ja määrake font õigesti.
  • Klõpsake nuppu 3. Nimetage see kui "cmdClose". Määrake selle taustavärv. Tiitrite jaoks tippige "Sule".. Ja määrake font õigesti.
  1. Nüüd topeltklõpsake nupul „Käivita taimer“ ja sisestage järgmised koodid:
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

Esimene ja viimane rida on juba olemas, nii et te ei pea neid uuesti sisestama. Salvestage koodid.

  1. Järgmisena topeltklõpsake nuppu "Stop Timer". Seejärel sisestage need koodid:
Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub
  1. Topeltklõpsake nuppu "Sule" ja kleepige koodid:
Private Sub cmdClose_Click()
  Unload Me
End Sub

Kleebi koodidSeejärel saate määrata makro jaoks nupuTriggerStopper.Mis puudutab üksikasjalikke samme makrole nupu määramiseks, siis vaadake seda artiklit: Kuidas eemaldada Wordis makro ja VBA abil kleebitud tekstide vorming

Siin on stopperi kasutamise esitlus:

Valige õige taastetööriist

Kuna teabe salvestamisega tegeleb rohkem digitaalseid seadmeid, on andmete taastamine muutunud tänapäeval kuumaks teemaks. Näiteks kui kogete Wordi kokkuvarisemist, peate hankima parandamiseks tööriista rikutud sõnaSiis on äärmiselt oluline hankida sobiv tööriist.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastada xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.