Bạn cần gọi thủ tục Phụ "Bộ hẹn giờ", điều này thường được thực hiện bằng cách gọi nó trong một Hàm / Hàm con khác nếu bạn muốn bộ đếm ngược bắt đầu sau khi bạn nhập giá trị vào ô "A1" và dừng lại khi bạn nhập dữ liệu vào một phạm vi khác, sau đó bạn cần lắng nghe sự thay đổi đối với các ô đó và tạo boolean cho thủ tục con Timer, để nó biết khi nào nên dừng, để thực hiện việc này, hãy tạo thủ tục con "Worksheet_Change", thao tác này sẽ lắng nghe trang tính để biết bất kỳ thay đổi nào, chúng tôi sau đó tạo một danh sách trắng các phạm vi sẽ chạy mã của chúng tôi.


Sub Worksheet_Change (ByVal Target As Range)

'Giá trị mặc định Boolean
Dim TimerActive dưới dạng Boolean: TimerActive = True

'Đây là nơi chúng tôi gọi là Bộ hẹn giờ và đặt giá trị của chúng tôi trong G2
Nếu không Giao nhau (Mục tiêu, Phạm vi ("A1")) thì Không có gì

If IsEmpty (Target) then TimerActive = False: Thoát Sub

Về lỗi GoTo Errr:

Dim i dưới dạng số nguyên: i = Target

Me.Range ("G2"). Giá trị = i

Hẹn giờ gọi

Khác Nếu không Giao nhau (Mục tiêu, Phạm vi ("B2: C57")) Thì Không có gì

TimerActive = Sai

If IsEmpty (Target) Sau đó thoát Sub

'Thêm mã khác ở đây nếu cần

Cuối Nếu

'Lỗi khi xử lý
Thoát Sub
Lỗi:
MsgBox "A1 Phải là số nguyên"

End Sub

Tôi cũng đã bao gồm khả năng xóa giá trị trong A1, điều này cũng sẽ dừng đếm ngược, bây giờ, trong thủ tục phụ "Bộ hẹn giờ", ở phần đầu, hãy tạo một câu lệnh if để kiểm tra xem boolean "TimerActive" của chúng ta có bằng False hay không, nếu nó không thì chúng ta cần phải Thoát Sub. Để thay đổi màu Bộ hẹn giờ khi đếm ngược, bạn cần chỉnh sửa thủ tục phụ "ResetTimer" và thêm câu lệnh if, tương tự như câu lệnh đã tồn tại, "If xRng <= 30", trong câu lệnh đó, chúng ta thêm màu sắc của chúng ta. muốn sử dụng "xRng.Font.Color = vbRed", bạn cũng có thể thay đổi màu bằng cách sử dụng "xRng.Font.Color = RGB (0,0,0)", thực hiện tương tự trong quy trình "Bộ hẹn giờ" để đặt lại màu, thực hiện điều này trước câu lệnh boolean if, để màu luôn trở lại màu mặc định, ngay cả khi dừng theo cách thủ công.

Xin chào, MAB, bạn nên đảm bảo rằng tham chiếu ô trong mã Phạm vi ("E1") phải giống với tham chiếu ô đã nhập thời gian. Vui lòng xem ảnh chụp màn hình, ô A1 chứa thời gian, nhưng trong mã là B1, sau đó lỗi xuất hiện.

Xin chào, bạn có thể thử kiểm tra tùy chọn Bật macro VBA trong Trung tâm tin cậy trước khi chạy mã.
Bấm Tệp> Tùy chọn, trong cửa sổ Tùy chọn Excel, chọn Trung tâm Tin cậy từ ngăn bên trái, sau đó đi tới cửa sổ Trung tâm Tin cậy, chọn Cài đặt Macro và tìm tùy chọn này Bật macro VBA, chọn nó và bấm OK> OK.