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 “Khởi đầ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 Khởi đầ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ác công cụ năng suất văn phòng tốt nhất
Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn
- Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
- Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
- Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
- Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
- Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
- Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
- Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
- Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
- Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
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!
