Kuinka tehdä sekuntikello kokeille Wordissa VBA: n kautta

Tässä artikkelissa kerromme tarkemmin, kuinka voit tehdä sekuntikellon, jota voit käyttää Word-tutkimuksissa VBA: n kautta.

WBA-editorin avulla voit itse luoda monia pieniä mutta hyödyllisiä työkaluja. Ja tänään haluamme näyttää sinulle tavan tehdä sekuntikello. Voit käynnistää ja käyttää sitä aina, kun Word on auki. Esimerkiksi sen on oltava kätevää kokeita suoritettaessa.

Lisää moduuli VBA-projektiin

1. Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin Wordissa.
2. Napsauta sitten "Normaali" projekti ja napsauta "Lisää".
3. Valitse kyseisestä valikosta ”Moduuli”.
4. Kaksoisnapsauta moduulia avataksesi sen.
5. Avaa “Ominaisuudet-ikkuna” painamalla ”F4”. Vaihda moduulin nimeksi "modStopwatch".
6. Seuraava liitä seuraavat koodit moduuliin:

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. Tallenna lopuksi koodit.

Lisää käyttäjän lomake

1. Napsauta VBA-editorissa "Lisää" ja valitse "UserForm".
2. Napsauta sitten sen kahvoja säätääksesi lomakkeen kokoa.
3. seuraava nimeä käyttäjälomake nimellä “frmStopwatch”, aseta tekstitys sekuntikelloksija aseta taustaväri. Myös, aseta “ShowModal” arvoksi ”False”.
4. Napsauta “View” -välilehteä ja valitse “Toolbox”.
5. Napsauta työkaluruudussa Etiketti ja piirrä kuusi tarraa oikeaan kohtaan käyttäjälomakkeessa, kuten paljasta:
6. Määritä nyt kullekin tarralle ominaisuudet.

• Napsauta tarraa 1. Siirry sitten ominaisuusikkunaan. Kirjoita kuvatekstiin ”Aloitusaika:”. Vaihda taustaväri ja kirjasin tarpeen mukaan.
• Napsauta tarraa 2. Nimeä se nimellä ”lblStartTime”. Aseta ”BackColor” valkoiseksi. Aseta sitten ”Fontti” oikein.
• Napsauta tarraa 3. Kirjoita kuvatekstiksi ”Lopetusaika:”. Aseta taustaväri ja fontti samaan tapaan kuin tarra 1.
• Napsauta tarraa 4. Nimeä se nimellä "lblEndTime". Aseta ”BackColor” valkoiseksi. Aseta sitten fontti sama kuin tarra 2.
• Napsauta tarraa 5. Syötä tekstitykseen ”Kulunut aika:”. Aseta taustaväri ja fontti samaan tapaan kuin tarra 1.
• Napsauta tarraa 6. Nimeä se nimellä “lblShowElapsedTime”. Aseta ”BackColor” valkoiseksi. Aseta sitten fontti sama kuin tarra 2.

7. Napsauta työkaluruudussa "CommandButton" ja luo 3 painiketta. Järjestä ne seuraavassa järjestyksessä:
8. Määritä samalla tavalla painikkeen ominaisuudet.

• Napsauta painiketta 1. Nimeä se nimellä “btnStart”. Aseta sen taustaväri. Kirjoita kuvatekstiksi ”Käynnistä ajastin”. Ja aseta kirjasin oikein.
• Napsauta painiketta 2. Nimeä se nimellä "btnStop". Aseta sen taustaväri. Syötä "Stop Timer" tekstitykseen. Ja aseta kirjasin oikein.
• Napsauta painiketta 3. Nimeä se nimellä "cmdClose". Aseta sen taustaväri. Kirjoita tekstitys ”Sulje”. Ja aseta kirjasin oikein.

9. Kaksoisnapsauta nyt “Käynnistä ajastin” -painiketta ja syötä seuraavat koodit:

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

Ensimmäinen ja viimeinen rivi ovat jo siellä, joten sinun ei tarvitse kirjoittaa niitä uudelleen. Tallenna koodit.

10. Kaksoisnapsauta sitten Stop Stop-painiketta. Syötä sitten nämä koodit:

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

11. Kaksoisnapsauta Sulje-painiketta ja liitä koodit:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Sitten voit määrittää makrolle painikkeenTriggerSekuntikelloMakro-painikkeen määrittämisen yksityiskohtaisista vaiheista voit lukea tämän artikkelin: Kuinka poistaa liitettyjen tekstien muotoilu makrolla ja VBA: lla Wordissasi

Tässä on sekuntikellon käytön esittely:

Valitse oikea palautustyökalu

Kun yhä enemmän digitaalisia laitteita on mukana tietojen tallentamisessa, tietojen palauttamisesta on tullut kuuma aihe nykyään. Jos esimerkiksi koet Wordin romahduksen, sinun on hankittava korjattava työkalu turmeltunut sanaSitten on äärimmäisen tärkeää hankkia kelvollinen työkalu.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauta xlsx ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com