Jak zrobić stoper do egzaminów w Twoim słowie za pośrednictwem VBA

W tym artykule omówimy, jak zrobić stoper, którego możesz używać do egzaminów w swoim programie Word za pośrednictwem VBA.

Dzięki edytorowi VBA w programie Word możesz samodzielnie stworzyć wiele małych, ale przydatnych narzędzi. A dzisiaj chcemy pokazać, jak zrobić stoper. Możesz go wyzwalać i używać, gdy jest otwarty program Word. Na przykład przyda się przy zdawaniu egzaminów.

Wstaw moduł do projektu VBA

1. Przede wszystkim naciśnij „Alt + F11”, aby otworzyć edytor VBA w programie Word.
2. Następnie kliknij „Normalny” projekt i kliknij „Wstaw”.
3. Wybierz „Moduł” w tym menu.
4. Kliknij dwukrotnie moduł, aby go otworzyć.
5. Naciśnij „F4”, aby otworzyć „Okno właściwości”. Zmień nazwę modułu na „modStopwatch”.
6. Następnie wklej w module następujące kody:

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. Na koniec zapisz kody.

Wstaw formularz użytkownika

1. W edytorze VBA kliknij „Wstaw” i wybierz „Formularz użytkownika”.
2. Następnie kliknij jego uchwyty, aby dostosować rozmiar formularza.
3. Następna nazwij formularz użytkownika jako „frmStopwatch”, ustaw jego podpis jako „Stoper”i ustaw kolor tła. Również, ustaw „ShowModal” na „False”.
4. Kliknij zakładkę „Widok” i wybierz „Zestaw narzędzi”.
5. W przyborniku kliknij „Etykieta” i narysuj sześć etykiet w odpowiednim miejscu w formularzu użytkownika, na przykład poniżej:
6. Teraz ustaw właściwości dla każdej etykiety.

• Kliknij etykietę 1. Następnie przejdź do okna właściwości. Wpisz „Start Czas: ”na podpis. Zmień kolor tła i czcionkę zgodnie z wymaganiami.
• Kliknij etykietę 2. Nazwij go „lblStartTime ”. Ustaw „BackColor” na biało. Następnie odpowiednio ustaw „Czcionkę”.
• Kliknij etykietę 3. Wpisz „End Time:” jako podpis. Ustaw kolor i czcionkę tła tak samo, jak na etykiecie 1.
• Kliknij etykietę 4. Nazwij go „lblEndTime”. Ustaw „BackColor” na biało. Następnie ustaw czcionkę taką samą, jak na etykiecie 2.
• Kliknij etykietę 5. Wpisz „Elapsed Time:” dla podpisu. Ustaw kolor i czcionkę tła tak samo, jak na etykiecie 1.
• Kliknij etykietę 6. Nazwij go „lblShowElapsedTime”. Ustaw „BackColor” na biało. Następnie ustaw czcionkę taką samą, jak na etykiecie 2.

7. W przyborniku kliknij „CommandButton” i utwórz 3 przyciski. Ułóż je w następującej kolejności:
8. Podobnie ustaw właściwości przycisku.

• Kliknij przycisk 1. Nazwij go „btnStart ”. Ustaw kolor tła. Wpisz „Start Timer ”dla podpisu. I odpowiednio ustaw czcionkę.
• Kliknij przycisk 2. Nazwij go „btnStop”. Ustaw kolor tła. Wpisz „Stop Timer” dla podpisu. I odpowiednio ustaw czcionkę.
• Kliknij przycisk 3. Nazwij go „cmdClose”. Ustaw kolor tła. Wpisz „Zamknij” jako podpis. I odpowiednio ustaw czcionkę.

9. Teraz kliknij dwukrotnie „Start Timer ”. I wprowadź następujące kody:

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

Pierwsza i ostatnia linia już tam są, więc nie musisz ich ponownie wprowadzać. Zapisz kody.

10. Następnie kliknij dwukrotnie przycisk „Stop Timer”. Następnie wprowadź te kody:

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

11. Kliknij dwukrotnie przycisk „Zamknij” i wklej kody:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Następnie możesz przypisać przycisk do makra „WyzwalaczStoper”. Jeśli chodzi o szczegółowe instrukcje przypisywania przycisku do makra, możesz zapoznać się z tym artykułem: Jak usunąć formatowanie wklejonych tekstów za pomocą makra i VBA w swoim słowie

Oto demonstracja korzystania ze stopera:

Wybierz odpowiednie narzędzie do odzyskiwania

Ponieważ do przechowywania informacji używa się większej liczby urządzeń cyfrowych, odzyskiwanie danych stało się obecnie gorącym tematem. Na przykład, jeśli zauważysz załamanie się programu Word, musisz zdobyć narzędzie do naprawy zepsute słowo. Wtedy jest utmost znaczenie uzyskania odpowiedniego narzędzia.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskać xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com