Si të bëni një kronometër për provimet në Word përmes VBA

Në këtë artikull, ne do të shtjellojmë se si të bëni një kronometër që mund ta përdorni për ekzaminime në Word përmes VBA.

Me redaktuesin VBA në Word, ju mund të krijoni vetë shumë mjete të vogla por të dobishme. Dhe sot, ne duam t'ju tregojmë mënyrën për të bërë kronometër. Mund ta aktivizoni dhe ta përdorni sa herë që Word është i hapur. Për shembull, do të jetë i dobishëm gjatë marrjes së provimeve.

Futni një modul në Projektin VBA

1. Para së gjithash, shtypni "Alt+ F11" për të hapur redaktorin VBA në Word.
2. Pastaj klikoni projektin "Normal" dhe klikoni "Insert".
3. Zgjidhni "Modul" në atë menu.
4. Klikoni dy herë në modul për ta hapur atë.
5. Shtypni "F4" për të hapur "Properties Window". Ndryshoni emrin e modulit si "modStopwatch".
6. Më pas ngjisni kodet e mëposhtme në 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. Më në fund, ruani kodet.

Fut një formular përdoruesi

1. Në redaktorin VBA, klikoni "Insert" dhe zgjidhni "UserForm".
2. Pastaj klikoni në dorezat e tij për të rregulluar madhësinë e formularit.
3. Tjetër emërtoni formularin e përdoruesit si "frmStopwatch", vendose titullin e saj si "Kronometër", dhe vendosni ngjyrën e sfondit. Gjithashtu, vendosni "ShowModal" si "False".
4. Klikoni në skedën "Shiko" dhe zgjidhni "Toolbox".
5. Në kutinë e veglave, klikoni "Etiketa" dhe vizatoni gjashtë etiketa në një pozicion të duhur në formularin e përdoruesit, si më poshtë:
6. Tani, vendosni vetitë për secilën etiketë.

• Klikoni mbi etiketën 1. Më pas shkoni te dritarja e pronës. Shkruani "Start Time:” për titullin. Ndryshoni ngjyrën e sfondit dhe fontin sipas nevojës.
• Klikoni në etiketën 2. Emërtojeni si "lblStartTime”. Vendosni "BackColor" në të bardhë. Pastaj vendosni "Font" siç duhet.
• Klikoni në etiketën 3. Shkruani "Koha e përfundimit:" për titullin. Vendosni ngjyrën dhe fontin e sfondit të njëjtë me atë të etiketës 1.
• Klikoni në etiketën 4. Emërtojeni si "lblEndTime". Vendosni "BackColor" në të bardhë. Pastaj vendosni fontin të njëjtë me atë të etiketës 2.
• Klikoni në etiketën 5. Fut "Koha e kaluar:" për titull. Vendosni ngjyrën dhe fontin e sfondit të njëjtë me atë të etiketës 1.
• Klikoni në etiketën 6. Emërtojeni si "lblShowElapsedTime". Vendosni "BackColor" në të bardhë. Pastaj vendosni fontin të njëjtë me atë të etiketës 2.

7. Në kutinë e veglave, klikoni "CommandButton" dhe krijoni 3 butona. Renditni ato në rendin e mëposhtëm:
8. Në mënyrë të ngjashme, vendosni vetitë e butonit.

• Klikoni në butonin 1. Emërtojeni si "btnStart ”. Vendosni ngjyrën e sfondit. Shkruani "Start Timer” për titull. Dhe vendosni fontin siç duhet.
• Klikoni në butonin 2. Emërtojeni si "btnStop". Vendosni ngjyrën e sfondit. Fut "Stop Timer" për titull. Dhe vendosni fontin siç duhet.
• Klikoni në butonin 3. Emërtojeni si "cmdClose". Vendosni ngjyrën e sfondit. Shkruani "Mbyll" për titull. Dhe vendosni fontin siç duhet.

9. Tani klikoni dy herë në "Starbutoni t Timer”. Dhe shkruani kodet e mëposhtme:

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

Rreshti i parë dhe i fundit janë tashmë aty, kështu që nuk keni nevojë t'i futni përsëri. Ruani kodet.

10. Pastaj klikoni dy herë në butonin "Stop Timer". Pastaj futni këto kode:

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

11. Klikoni dy herë në butonin "Mbyll" dhe ngjitni kodet:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Pastaj mund të caktoni një buton për makro "Kronometri këmbëzues"Sa i përket hapave të detajuar për të caktuar butonin për makro, mund t'i referoheni këtij artikulli: Si të hiqni formatimin e teksteve të ngjitura me makro dhe VBA në Word

Këtu është një demonstrim i përdorimit të kronometër:

Zgjidhni mjetin e duhur të rimëkëmbjes

Me më shumë pajisje dixhitale të përfshira në ruajtjen e informacionit, rikuperimi i të dhënave është bërë një temë e nxehtë në ditët e sotme. Për shembull, nëse përjetoni një kolaps të Word-it, duhet të merrni një mjet për ta riparuar fjalë e korruptuar. Atëherë është e utmost rëndësi për të marrë një mjet të përshtatshëm.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni xlsx pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com