VBA Một bộ đếm thời gian thứ hai đơn giản

Trong VBA, bộ đếm thời gian thứ hai đơn giản dễ viết và bao gồm trong mã nguồn. VBA đi kèm với bộ hẹn giờ đầy đủ tính năng có thể được sử dụng bất cứ khi nào cần thiết. Tuy nhiên, không bắt buộc phải sử dụng bộ hẹn giờ được cung cấp với VBA. Điều khiển hẹn giờ trong VBA cũng có thể được thực hiện thông qua bộ hẹn giờ thủ công. Việc tạo ra chức năng hẹn giờ thủ công trong VBA không phải là một nhiệm vụ phức tạp. Người ta cần viết mã để tạo một bộ đếm thời gian trong một mô-đun công cộng. Với VBA, bộ hẹn giờ thứ hai đơn giản có thể được tạo để nâng cao và tùy chỉnh phần mềm Office, đặc biệt là cho các bảng tính Excel.

Trong VBA có tính năng Timer, nhưng bạn cũng có thể tạo một tính năng rất dễ dàng.

Trong một bảng mô-đun:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) 'Ví dụ: Bắt đầu / Dừng bộ hẹn giờ mỗi khi ô. 'nhưng cũng có thể được đặt trên một nút hoặc nút khác ... TimeOnOFF = Không phải TimeOnOFF Nếu TimeOnOFF Sau đó Hẹn giờ kết thúc Sub 

Trong một mô-đun công cộng:

 Public TimeOnOFF As Boolean Sub Timer () Dim S As Integer While TimeOnOFF = True If Second (Now)> S Hoặc Second (Now) = 0 Sau đó 'Chạy mã' .... 'ví dụ Sheets ("shee1"). ("A1"). Giá trị = Thời gian S = Thứ hai (Hiện tại) Kết thúc nếu DoEvents Wend End Sub