VBA orqali Word-da imtihonlar uchun soniya hisoblagichini qanday qilish kerak

Word yechimlari Sentyabr 28, 2025
Hozir ulashing:

Ushbu maqolada biz VBA orqali Word-da imtihonlar uchun foydalanishingiz mumkin bo'lgan sekundomerni qanday yaratishni batafsil ko'rib chiqamiz.

Word-dagi VBA muharriri yordamida siz o'zingiz ko'plab kichik, ammo foydali vositalarni yaratishingiz mumkin. Va bugun biz sizga sekundomer yasash yo'lini ko'rsatmoqchimiz. Word ochiq bo'lganda uni ishga tushirishingiz va ishlatishingiz mumkin. Masalan, imtihonlarni topshirishda yordam beradi.VBA orqali Wordingizda imtihonlar uchun soniya hisoblagichini yarating

VBA loyihasida modulni joylashtiring

  1. Birinchidan, Word-da VBA muharririni ochish uchun "Alt + F11" tugmasini bosing.
  2. Keyin "Oddiy" loyihasini bosing va "Qo'shish" tugmasini bosing.
  3. Ushbu menyuda "Module" ni tanlang."Oddiy"-ni bosing->"Qo'shish"-ni bosing->"Modul"-ni bosing.
  4. Uni ochish uchun modulni ikki marta bosing.
  5. "Xususiyatlar oynasi" ni ochish uchun "F4" tugmasini bosing. Modul nomini "modStopwatch" sifatida o'zgartiring.
  6. Keyin modulga quyidagi kodlarni joylashtiring:
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. Nihoyat, kodlarni saqlang.Yangi modulni nomlash->Kodlarni joylashtirish->Kodlarni saqlash

Foydalanuvchi formasini kiriting

  1. VBA muharririda "Qo'shish" tugmasini bosing va "UserForm" ni tanlang.
  2. Keyin shakl hajmini sozlash uchun uning tutqichlarini bosing.
  3. Keyingi foydalanuvchi formasini "frmStopwatch" deb nomlang, uning sarlavhasini “Stopwatch” deb belgilang, va fon rangini o'rnating. Shuningdek, "ShowModal" ni "False" deb belgilang.
  4. "Ko'rish" yorlig'ini bosing va "Asboblar qutisi" ni tanlang."Ko'rish" ni bosing -> "Asboblar qutisi" ni tanlang
  5. Asboblar panelida "Yorliq" tugmasini bosing va foydalanuvchi formasida oltita tegni to'g'ri joyga torting, masalan:Insert Six Labels->Har bir yorliq xususiyatini o'rnating
  6. Endi har bir yorliq uchun xususiyatlarni o'rnating.
  • Yorliq ustiga bosing 1. Keyin mulk oynasiga o'ting. “Start Vaqt:” sarlavhasi uchun. Agar kerak bo'lsa, fon rangi va shriftini o'zgartiring.
  • 2-yorliq ustiga bosing. Uni “lblStartVaqt”. "Orqaga rang" ni oq rangga o'rnating. Keyin "Shrift" ni to'g'ri o'rnating.
  • 3-yorliq ustiga bosing. Sarlavha uchun "Yakunlash vaqti:" ni kiriting. Fon rangi va shriftni 1-yorliqdagi kabi belgilang.
  • 4-yorliq ustiga bosing. Uni "lblEndTime" deb nomlang. "Orqaga rang" ni oq rangga o'rnating. Keyin shriftni yorliq 2 bilan bir xil qilib o'rnating.
  • 5-yorliq ustiga bosing. Sarlavha uchun “O‘tgan vaqt:”ni kiriting. Fon rangi va shriftni 1-yorliqdagi kabi belgilang.
  • 6-yorliq ustiga bosing. Uni "lblShowElapsedTime" deb nomlang. "Orqaga rang" ni oq rangga o'rnating. Keyin shriftni yorliq 2 bilan bir xil qilib o'rnating.
  1. Asboblar panelida "Buyruqlar tugmasi" ni bosing va 3 ta tugma yarating. Ularni quyidagi tartibda joylashtiring:Uchta tugma yarating-> Tugma xususiyatlarini o'rnating
  2. Xuddi shunday, tugma xususiyatlarini o'rnating.
  • 1-tugmani bosing. Uni “btnStart ”. Uning fon rangini o'rnating. “Start Taymer” sarlavhasi uchun. Va shriftni to'g'ri o'rnating.
  • 2-tugmani bosing. Uni "btnStop" deb nomlang. Uning fon rangini o'rnating. Sarlavha uchun "Taymerni to'xtatish" ni kiriting. Va shriftni to'g'ri o'rnating.
  • 3-tugmani bosing. Uni "cmdClose" deb nomlang. Uning fon rangini o'rnating. Sarlavha uchun "Yopish" ni kiriting. Va shriftni to'g'ri o'rnating.
  1. Endi “Start Taymer” tugmasini bosing. Va quyidagi kodlarni kiriting:
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

Birinchi va oxirgi qatorlar allaqachon mavjud, shuning uchun ularni qayta kiritishingiz shart emas. Kodlarni saqlang.

  1. Keyin "Taymerni to'xtatish" tugmasini ikki marta bosing. Keyin ushbu kodlarni kiriting:
Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub
  1. "Yopish" tugmasini ikki marta bosing va kodlarni joylashtiring:
Private Sub cmdClose_Click()
  Unload Me
End Sub

Kodlarni joylashtirishKeyin makro uchun tugmani belgilashingiz mumkin "Trigger Sekundomer".Makro uchun tugmani belgilash bo'yicha batafsil qadamlarga kelsak, siz ushbu maqolaga murojaat qilishingiz mumkin: Word-da makro va VBA yordamida qo'yilgan matnlarni formatlashni qanday olib tashlash mumkin

Mana sekundomerdan foydalanishning namoyishi:

To'g'ri tiklash vositasini tanlang

Axborotni saqlashda ko'proq raqamli qurilmalar ishtirok etganligi sababli, ma'lumotlarni tiklash bugungi kunda dolzarb mavzuga aylandi. Misol uchun, agar siz Word yiqilishiga duch kelsangiz, tuzatish uchun vositani olishingiz kerak buzuq so'z. Keyin bu utmost mos vositani olish muhimdir.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xlsx-ni tiklash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com

Hozir ulashing:

Comments are closed.