Làm thế nào để tạo đồng hồ bấm giờ trong trang tính Excel?
Nếu có đồng hồ bấm giờ trong trang tính của bạn, bạn sẽ biết thời gian hoàn thành công việc. Làm cách nào bạn có thể tạo đồng hồ bấm giờ trong trang tính có Nút Bắt đầu, Dừng và Đặt lại như hình minh họa sau? Nếu bạn nhấp vào nút Bắt đầu, nó sẽ bắt đầu thời gian, nếu bạn nhấp vào nút Dừng, nó sẽ dừng thời gian và nút Đặt lại có thể giúp bạn đặt lại thời gian. Bài viết này, tôi sẽ nói về cách tạo một đồng hồ bấm giờ đơn giản và tiện dụng trong Excel.
Tạo đồng hồ bấm giờ có ba nút bằng cách sử dụng mã VBA
Tạo đồng hồ bấm giờ có ba nút bằng cách sử dụng mã VBA
Để tạo đồng hồ bấm giờ có ba nút Bắt đầu, Dừng và Đặt lại, vui lòng thực hiện lần lượt theo các bước sau.
Đầu tiên, chèn ba nút lệnh.
1. Nhấp chuột Nhà phát triển > Chèn > Nút lệnh, xem ảnh chụp màn hình:
2. Sau đó rê chuột để vẽ nút, sau khi chèn nút, bạn có thể thay đổi chú thích nút, vui lòng bấm vào Nhà phát triển > Bất động sản, Trong Bất động sản hộp thoại, nhập chú thích mới “Bắt đầu”Cho nút này trong hộp văn bản bên cạnh Chú thích, xem ảnh chụp màn hình:
3. Lặp lại hai bước trên để chèn hai nút khác và chú thích chúng là “Dừng"Và"Xóa và làm lại”, Xem ảnh chụp màn hình:
4. Sau khi chèn các nút, bạn nên thoát khỏi chế độ thiết kế bằng cách nhấp vào Nhà phát triển > Chế độ thiết kế.
Thứ hai, tạo mã VBA.
5. Và sau đó, nhấp chuột phải vào tab trang tính hiện tại và chọn Mã Chế độ xem, trong cửa sổ bật ra Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã sau vào mã tờ:
Mã VBA: Tạo đồng hồ bấm giờ:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Chú thích: Trong đoạn mã trên, C2 là ô mà thời gian đồng hồ bấm giờ sẽ được chèn và LệnhNút1, LệnhNút2, LệnhNút3 là tên nút, bạn có thể xem tên nút chính xác từ Tên Box, xem ảnh chụp màn hình:
Thứ ba, định dạng ô thời gian của đồng hồ bấm giờ.
6. Sau đó, bạn nên định dạng ô thời gian là bản văn định dạng và bạn có thể thay đổi kích thước ô, phông chữ, màu phông chữ, nền, v.v. khi cần, hãy xem ảnh chụp màn hình:
7. Sau khi hoàn thành các bước trên, kể từ bây giờ, khi bạn nhấp vào Bắt đầu , thời gian sẽ bắt đầu ngay bây giờ và nhấp vào Dừng , nó sẽ dừng thời gian, Xóa và làm lại nút sẽ đặt lại thời gian, xem ảnh chụp màn hình:
Demo: Tạo đồng hồ bấm giờ có ba nút bằng cách sử dụng mã VBA
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!