VBA-ээр дамжуулан Word дээрээ шалгалт өгөх секунд хэмжигчийг хэрхэн хийх вэ

Үгийн шийдэл Есдүгээр сарын 28, 2025
Одоо хуваалцах:

Энэ нийтлэлд бид VBA-ээр дамжуулан Word дээр шалгалт хийхэд ашиглаж болох секунд хэмжигчийг хэрхэн хийх талаар дэлгэрэнгүй ярих болно.

Word дахь VBA засварлагчийн тусламжтайгаар та өөрөө олон жижиг боловч хэрэгтэй хэрэгслүүдийг үүсгэж чадна. Өнөөдөр бид секунд хэмжигч хийх аргыг танд үзүүлэхийг хүсч байна. Та Word нээлттэй үед үүнийг эхлүүлж, ашиглаж болно. Жишээлбэл, энэ нь шалгалт өгөхөд хэрэг болно.VBA-ээр дамжуулан Word дээрээ шалгалт өгөх секундомер хий

VBA төсөлд модуль оруулах

  1. Юуны өмнө "Alt + F11" товчийг дарж Word дээр VBA засварлагчийг нээнэ үү.
  2. Дараа нь "Хэвийн" төсөл дээр дараад "Оруулах" дээр дарна уу.
  3. Энэ цэснээс "Модуль" -ыг сонгоно уу."Normal" дээр дарна уу - "Insert" дээр дарна уу - "Module" дээр дарна уу
  4. Модуль дээр давхар товшоод нээнэ үү.
  5. "F4" товчийг дарж "Properties цонх" нээнэ үү. Модулийн нэрийг "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
  1. Эцэст нь кодыг хадгал.Шинэ модулийг нэрлэх-> Кодыг буулгах-> Кодыг хадгалах

Хэрэглэгчийн маягт оруулах

  1. VBA засварлагч дээр "Insert" дээр товшоод "UserForm" -ийг сонгоно уу.
  2. Дараа нь маягтын хэмжээг тохируулахын тулд түүний бариул дээр дарна уу.
  3. Дараа нь хэрэглэгчийн маягтыг "frmStopwatch" гэж нэрлэх, тайлбарыг "Секундомер" гэж тохируулсан, арын өнгийг тохируулна уу. Мөн, "ShowModal" -ийг "Худал" болгож тохируулах.
  4. "Харах" таб дээр дараад "Хэрэгслийн хайрцаг" -ыг сонгоно уу."Харах" дээр дарна уу -> "Хэрэгслийн хайрцаг" -ыг сонгоно уу
  5. Хэрэгслийн хайрцаг дээрх "Шошго" дээр товшоод хэрэглэгчийн маягт дээрх зургаан шошгыг зохих байрлалд зурж, жишээ нь доор дурдсан болно.Insert Six Labels->Set тус бүрийг Label Property
  6. Одоо шошго тус бүрийн шинж чанарыг тохируулна уу.
  • Шошгон дээр дарна уу 1. Дараа нь өмчийн цонх руу очно уу. Гарчиг руу "Эхлэх цаг:" гэж оруулна уу. Шаардлагатай бол дэвсгэр өнгө, фонтыг өөрчлөх.
  • Шошго 2 дээр дарна уу. Үүнийг “lblStartTime” гэж нэрлэнэ үү. "Арын өнгө"-г цагаанаар тохируулна уу. Дараа нь "фонт"-ыг зөв тохируулна уу.
  • Шошго 3 дээр дарна уу. Тайлбарын хувьд "Төгсгөлийн цаг:" гэж бичнэ үү. Дэвсгэр өнгө, фонтыг шошгоны 1-ийнхтэй адил тохируулна уу.
  • Шошго 4 дээр дарна уу. Үүнийг "lblEndTime" гэж нэрлэнэ. "Арын өнгө"-г цагаанаар тохируулна уу. Дараа нь фонтыг шошго 2-той адил тохируулна уу.
  • Шошго 5 дээр дарна уу. Тайлбарын хувьд "Өнгөрсөн хугацаа:" гэж оруулна уу. Дэвсгэр өнгө, фонтыг шошгоны 1-ийнхтэй адил тохируулна уу.
  • Шошго 6 дээр дарна уу. Үүнийг "lblShowElapsedTime" гэж нэрлэнэ.. "Арын өнгө"-г цагаанаар тохируулна уу. Дараа нь фонтыг шошго 2-той адил тохируулна уу.
  1. Хэрэгслийн хайрцаг дээрх "CommandButton" дээр товшоод 3 товчлуур үүсгэ. Тэдгээрийг дараах дарааллаар байрлуул.Гурван товчлуур үүсгэх->Товчлуурын шинж чанарыг тохируулах
  2. Үүний нэгэн адил товчлуурын шинж чанарыг тохируулна уу.
  • 1-р товчлуур дээр дарна уу. Үүнийг "btnStart" гэж нэрлэнэ үү. Түүний дэвсгэр өнгийг тохируулна уу. Тайлбар оруулахын тулд “Цаг хэмжигчийг эхлүүлэх” гэж оруулна уу. Мөн фонтыг зөв тохируулаарай.
  • 2-р товчлуур дээр дарна уу. Үүнийг "btnStop" гэж нэрлэ.. Түүний дэвсгэр өнгийг тохируулна уу. Тайлбарын хувьд "Таймерыг зогсоох" гэж оруулна уу. Мөн фонтыг зөв тохируулаарай.
  • 3-р товчлуур дээр дарна уу. Үүнийг "cmdClose" гэж нэрлэ.. Түүний дэвсгэр өнгийг тохируулна уу. Тайлбарыг "Хаах" гэж бичнэ үү. Мөн фонтыг зөв тохируулаарай.
  1. Одоо “Цаг хэмжигчийг эхлүүлэх” товчийг хоёр удаа дарж, дараах кодуудыг оруулна уу:
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

Эхний болон сүүлчийн мөрүүд аль хэдийн байгаа тул та тэдгээрийг дахин оруулах шаардлагагүй болно. Кодуудыг хадгалах.

  1. Дараа нь "Таймерыг зогсоох" товчийг давхар товшино уу. Дараа нь эдгээр кодыг оруулна уу:
Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub
  1. "Хаах" товчийг давхар товшоод кодыг оруулна уу:
Private Sub cmdClose_Click()
  Unload Me
End Sub

Кодуудыг буулгана ууДараа нь та макро товчлуурыг оноож болно "Trigger Секунд хэмжигч”.Макро товчлуурыг хуваарилах нарийвчилсан алхмуудын тухайд та энэ өгүүллийг үзэж болно: Макро, VBA ашиглан наасан текстийн форматыг хэрхэн яаж устгах вэ?

Секундомер ашиглах жишээг энд үзүүлэв.

Зөв сэргээх хэрэгслийг сонго

Мэдээлэл хадгалахад илүү олон тооны дижитал төхөөрөмжүүд оролцож байгаа тул өгөгдлийг сэргээх нь өнөө үед халуун сэдэв болоод байна. Жишээлбэл, хэрэв та Word уналтанд орвол засах хэрэгсэл авах хэрэгтэй завхарсан үгТэгвэл тохирох хэрэгсэл авах нь хамгийн чухал юм.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx-ийг сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.