VBA арқылы емтиханға секундомерді қалай жасауға болады

Бұл мақалада біз секундына секундомерді қалай жасауға болатындығын егжей-тегжейлі қарастырамыз, ол сіздің сөзіңізді VBA арқылы тексеруге арналған.

Word бағдарламасындағы VBA редакторының көмегімен сіз көптеген шағын, бірақ пайдалы құралдарды өзіңіз жасай аласыз. Ал бүгін біз сіздерге секундомер жасаудың жолын көрсеткіміз келеді. Word іске қосылған кезде оны іске қосып, қолдануға болады. Мысалы, емтихан тапсыру кезінде бұл ыңғайлы болады.

VBA жобасына модуль салыңыз

1. Біріншіден, Word бағдарламасында VBA редакторын ашу үшін «Alt + F11» пернесін басыңыз.
2. Содан кейін «Қалыпты» жобасын басып, «Кірістіру» батырмасын басыңыз.
3. Сол мәзірден «Модуль» таңдаңыз.
4. Оны ашу үшін модульді екі рет басыңыз.
5. «Сипаттар терезесін» ашу үшін «F4» пернесін басыңыз. Модуль атауын “modStopwatch” деп өзгертіңіз.
6. Келесі модульге келесі кодтарды қойыңыз:

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. Соңында кодтарды сақтаңыз.

Пайдаланушы формасын салыңыз

1. VBA редакторында «Кірістіру» батырмасын басыңыз және «UserForm» таңдаңыз.
2. Содан кейін пішіннің өлшемін реттеу үшін оның тұтқаларын басыңыз.
3. Келесі пайдаланушы формасын «frmStopwatch» деп атаңыз, оның жазуын «секундомер» етіп орнатыңызжәне фон түсін орнатыңыз. Сондай-ақ, «ShowModal» -ды «жалған» етіп орнату.
4. «Көру» қойындысын нұқып, «Құралдар тақтасы» тармағын таңдаңыз.
5. Құралдар терезесінде «Жапсырма» батырмасын басыңыз және пайдаланушы пішінінде төмендегі сияқты алты белгіні салыңыз:
6. Енді әрбір белгі үшін қасиеттерді орнатыңыз.

• 1 жапсырмасын басыңыз. Содан кейін сипат терезесіне өтіңіз. Жазу үшін «Басталу уақыты:» енгізіңіз. Қажет болған жағдайда фон түсін және қаріпті өзгертіңіз.
• 2 белгісін басыңыз. Оны «lblStartTime» деп атаңыз. «BackColor» ақ түске қойыңыз. Содан кейін «Қаріпті» дұрыс орнатыңыз.
• 3 белгісін басыңыз. Тақырып үшін «Аяқталу уақыты:» деп теріңіз. Фон түсі мен қаріпін 1 жапсырмадағыдай етіп қойыңыз.
• 4 белгісін басыңыз. Оны «lblEndTime» деп атаңыз. «BackColor» ақ түске қойыңыз. Содан кейін қаріпті 2-жапсырманың бірдей етіп қойыңыз.
• 5 белгісін басыңыз. Тақырып үшін «Өткен уақыт:» енгізіңіз. Фон түсі мен қаріпін 1 жапсырмадағыдай етіп қойыңыз.
• 6 белгісін басыңыз. Оны «lblShowElapsedTime» деп атаңыз. «BackColor» ақ түске қойыңыз. Содан кейін қаріпті 2-жапсырманың бірдей етіп қойыңыз.

7. Құралдар терезесінде «CommandButton» батырмасын басыңыз және 3 батырманы жасаңыз. Оларды келесі тәртіпте орналастырыңыз:
8. Сол сияқты батырма қасиеттерін орнатыңыз.

• 1 батырмасын басыңыз. Оны «btnStart» деп атаңыз. Оның фондық түсін орнатыңыз. Жазу үшін «Таймерді бастау» деп енгізіңіз. Қаріпті дұрыс қойыңыз.
• 2 батырмасын басыңыз. Оны «btnStop» деп атаңыз. Оның фондық түсін орнатыңыз. Тақырып үшін «Таймерді тоқтату» енгізіңіз. Қаріпті дұрыс қойыңыз.
• 3 батырмасын басыңыз. Оны «cmdClose» деп атаңыз. Оның фондық түсін орнатыңыз. Тақырып үшін «Жабу» деп теріңіз. Қаріпті дұрыс қойыңыз.

9. Енді «Таймерді іске қосу» түймесін екі рет басыңыз. Келесі кодтарды енгізіңіз:

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

Бірінші және соңғы жолдар бұрыннан бар, сондықтан оларды қайтадан енгізудің қажеті жоқ. Кодтарды сақтаңыз.

10. Келесі «Таймерді тоқтату» батырмасын екі рет басыңыз. Содан кейін келесі кодтарды енгізіңіз:

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

11. «Жабу» батырмасын екі рет басыңыз және кодтарды қойыңыз:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Содан кейін сіз макросты «TriggerStopwatch«. Макросқа арналған батырманы тағайындаудың егжей-тегжейлі қадамдары туралы мына мақалаға сілтеме жасай аласыз: Өзіңіздің сөзіңізде макро және VBA көмегімен жапсырылған мәтіндердің пішімін қалай алып тастауға болады

Міне, секундомерді қолданудың көрсетілімі:

Дұрыс қалпына келтіру құралын таңдаңыз

Ақпаратты сақтауға көбірек цифрлық құрылғылар қатысатындықтан, деректерді қалпына келтіру қазіргі кезде өзекті тақырыпқа айналды. Мысалы, егер сізде Word құлдырауы пайда болса, сізге жөндеу құралын алу керек бұзылған сөзСодан кейін жарамды құралды алу өте маңызды.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com