Cara Membuat Jam Randik untuk Peperiksaan di Word Anda melalui VBA

Dalam artikel ini, kami akan menghuraikan cara membuat jam randik yang boleh anda gunakan untuk peperiksaan di Word anda melalui VBA.

Dengan penyunting VBA di Word, anda sendiri boleh membuat banyak alat kecil tetapi berguna sendiri. Dan hari ini, kami ingin menunjukkan cara untuk membuat jam randik. Anda boleh mencetuskan dan menggunakannya setiap kali Word dibuka. Contohnya, ia akan berguna semasa mengambil peperiksaan.

Masukkan Modul dalam Projek VBA

1. Pertama sekali, tekan "Alt + F11" untuk membuka editor VBA di Word.
2. Kemudian klik projek "Normal" dan klik "Masukkan".
3. Pilih "Modul" pada menu itu.
4. Klik dua kali pada modul untuk membukanya.
5. Tekan "F4" untuk membuka "Properties Window". Tukar nama modul sebagai "modStopwatch".
6. Selanjutnya tampalkan kod berikut pada 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. Akhirnya, simpan kod.

Masukkan Borang Pengguna

1. Dalam editor VBA, klik "Masukkan" dan pilih "UserForm".
2. Kemudian klik pada pemegangnya untuk menyesuaikan saiz borang.
3. Seterusnya namakan borang pengguna sebagai "frmStopwatch", tetapkan kapsyennya sebagai "Jam randik", dan tetapkan warna latar belakang. Juga, tetapkan "ShowModal" sebagai "Salah".
4. Klik tab "Lihat" dan pilih "Kotak Alat".
5. Pada kotak alat, klik "Label" dan lukis enam label pada kedudukan yang betul pada borang pengguna, seperti di bawah:
6. Sekarang, tetapkan sifat untuk setiap label.

• Klik pada label 1. Kemudian pergi ke tetingkap harta tanah. Masukkan “Masa Mula:” untuk kapsyen. Tukar warna dan fon latar seperti yang diperlukan.
• Klik pada label 2. Namakannya sebagai “lblStartTime”. Tetapkan "BackColor" dengan warna putih. Kemudian tetapkan "Font" dengan betul.
• Klik pada label 3. Taip "Waktu Akhir:" untuk kapsyen. Tetapkan warna dan fon latar sama dengan label 1.
• Klik pada label 4. Namakannya sebagai "lblEndTime". Tetapkan "BackColor" dengan warna putih. Kemudian tetapkan fon sama dengan label 2.
• Klik pada label 5. Masukkan "Masa yang Berlalu:" untuk kapsyen. Tetapkan warna dan fon latar sama dengan label 1.
• Klik pada label 6. Namakannya sebagai "lblShowElapsedTime". Tetapkan "BackColor" dengan warna putih. Kemudian tetapkan fon sama dengan label 2.

7. Pada kotak alat, klik "CommandButton" dan buat 3 butang. Susun mengikut urutan berikut:
8. Begitu juga, tetapkan sifat butang.

• Klik pada butang 1. Namakannya sebagai “btnStart”. Tetapkan warna latar belakangnya. Masukkan “Pemasa Mula” untuk kapsyen. Dan tetapkan fon dengan betul.
• Klik pada butang 2. Namakannya sebagai "btnStop". Tetapkan warna latar belakangnya. Masukkan "Stop Timer" untuk kapsyen. Dan tetapkan fon dengan betul.
• Klik pada butang 3. Namakan sebagai "cmdClose". Tetapkan warna latar belakangnya. Taip "Tutup" untuk kapsyen. Dan tetapkan fon dengan betul.

9. Sekarang klik dua kali pada butang “Start Timer”. Dan masukkan kod berikut:

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

Baris pertama dan terakhir sudah ada, jadi anda tidak perlu memasukkannya lagi. Simpan kod.

10. Klik dua kali seterusnya pada butang "Stop Timer". Kemudian masukkan kod ini:

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

11. Klik dua kali pada butang "Tutup" dan tampal kod:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Kemudian anda boleh menetapkan butang untuk makro "PencetusStopwatch". Untuk langkah terperinci untuk menetapkan butang untuk makro, anda boleh merujuk artikel ini: Cara Menghapus Pemformatan Teks Tampal dengan Makro dan VBA di Word Anda

Berikut adalah demonstrasi penggunaan jam randik:

Pilih Alat Pemulihan yang Betul

Dengan lebih banyak peranti digital yang terlibat dalam menyimpan maklumat, pemulihan data menjadi topik hangat sekarang ini. Contohnya, jika anda mengalami keruntuhan Word, anda mesti mendapatkan alat untuk diperbaiki perkataan rosak. Maka adalah sangat penting untuk mendapatkan alat yang layak.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com