Chỉnh sửa VBA đếm thời gian trong excel

[congtuan05]

Chào cả nhà.
Em có tìm được 1 code VBA đếm thời gian trong excel với mục đích là theo dõi thời gian làm bài, nhưng sau khi bấm Start, nếu mình nhập dữ liệu thì đồng hồ tự động dừng. Các bác hỗ trợ giúp em sửa code lại để đồng hồ chỉ dừng khi nào bấm "Stop". Hoặc nếu không sửa được thì có bác nào biết code VBA đồng hồ đếm giờ thì cho em xin với ạ. Em chỉ mới chập chững vào VBA nên mới tìm được mỗi code này thôi ạ. Em xin phép gửi file chứa mã VBA
Em xin cám ơn trước.

 

[BuiQuangThuan]

Chào cả nhà.
Em có tìm được 1 code VBA đếm thời gian trong excel với mục đích là theo dõi thời gian làm bài, nhưng sau khi bấm Start, nếu mình nhập dữ liệu thì đồng hồ tự động dừng. Các bác hỗ trợ giúp em sửa code lại để đồng hồ chỉ dừng khi nào bấm "Stop". Hoặc nếu không sửa được thì có bác nào biết code VBA đồng hồ đếm giờ thì cho em xin với ạ. Em chỉ mới chập chững vào VBA nên mới tìm được mỗi code này thôi ạ. Em xin phép gửi file chứa mã VBA
Em xin cám ơn trước.

Bạn thử tìm hiểu đưa đồng hồ đó lên shape coi thế nào

 

[doredore1988]

Tạo 1 userform, viết code để chạy đồng hồ, thêm vbModeless cho code Userform.Show để có thể mở Form mà vẫn dùng excell "bình thường". Theo ý kiến cá nhân của tôi là thế. bạn có thể thử cái này

 

[giaiphap]

Chào cả nhà.
Em có tìm được 1 code VBA đếm thời gian trong excel với mục đích là theo dõi thời gian làm bài, nhưng sau khi bấm Start, nếu mình nhập dữ liệu thì đồng hồ tự động dừng. Các bác hỗ trợ giúp em sửa code lại để đồng hồ chỉ dừng khi nào bấm "Stop". Hoặc nếu không sửa được thì có bác nào biết code VBA đồng hồ đếm giờ thì cho em xin với ạ. Em chỉ mới chập chững vào VBA nên mới tìm được mỗi code này thôi ạ. Em xin phép gửi file chứa mã VBA
Em xin cám ơn trước.

Thử cách này xem sao.

 

[congtuan05]

Tạo 1 userform, viết code để chạy đồng hồ, thêm vbModeless cho code Userform.Show để có thể mở Form mà vẫn dùng excell "bình thường". Theo ý kiến cá nhân của tôi là thế. bạn có thể thử cái này

cách này khá đơn giản và hiệu quả, cám ơn bạn nhiều nha

Bài đã được tự động gộp: 21/6/24

Thử cách này xem sao.

Chạy ngon lành luôn, mình cám ơn nhiều nha

 

[giaiphap]

Tôi thấy nếu hiển thị thời gian mà cho nó hiển thị trên UserForm thì nhìn thấy nó không được đẹp, thiết kế trực tiếp trên Sheet cũng được mà.

 

[doredore1988]

Tôi thấy nếu hiển thị thời gian mà cho nó hiển thị trên UserForm thì nhìn thấy nó không được đẹp, thiết kế trực tiếp trên Sheet cũng được mà.

Đẹp thì có thể trang trí cho form,label,bt bằng hình nền, nhưng chủ yếu là tại vì thấy khi nhập hàm hay nhập văn bản thì phần hiển thị đồng hồ bị đóng băng không chạy(ko biết phải do office của mình bị thôi không), nên mới muốn dùng form để hiển thị đồng đc chạy liên tục thôi bác. Nếu bác có thể làm cho phần hiển thị đồng hồ chạy liên tục luôn thì quá mượt rồi.

 

[ongke0711]

Đẹp thì có thể trang trí cho form,label,bt bằng hình nền, nhưng chủ yếu là tại vì thấy khi nhập hàm hay nhập văn bản thì phần hiển thị đồng hồ bị đóng băng không chạy(ko biết phải do office của mình bị thôi không), nên mới muốn dùng form để hiển thị đồng đc chạy liên tục thôi bác. Nếu bác có thể làm cho phần hiển thị đồng hồ chạy liên tục luôn thì quá mượt rồi.

Nó đóng băng đồng hồ nhưng khi chạy lại vẫn nhảy đúng, cộng thêm số giây bị đóng băng đó bạn. Chỉ có cái nhìn như vậy thì người dùng bình thường không tin tưởng lắm . Tôi thấy cái Userform của bạn vẫn hay vì không ảnh hưởng thiết kế của bảng tính.

 

[congtuan05]

Tôi thấy nếu hiển thị thời gian mà cho nó hiển thị trên UserForm thì nhìn thấy nó không được đẹp, thiết kế trực tiếp trên Sheet cũng được mà.

Đúng rồi, mình đã dùng thử và cả 2 cái đều có điểm hay riêng, như của bạn làm trực tiếp trên sheet thì định dạng phong phú và đẹp hơn, còn làm userform thì tách biệt với trang tính, không ảnh hưởng đến trang tính. Dù sao mình thật sự cảm ơn 2 bạn nhiều kkk

Đẹp thì có thể trang trí cho form,label,bt bằng hình nền, nhưng chủ yếu là tại vì thấy khi nhập hàm hay nhập văn bản thì phần hiển thị đồng hồ bị đóng băng không chạy(ko biết phải do office của mình bị thôi không), nên mới muốn dùng form để hiển thị đồng đc chạy liên tục thôi bác. Nếu bác có thể làm cho phần hiển thị đồng hồ chạy liên tục luôn thì quá mượt rồi.

Mình cũng bị đóng băng vậy, kiểu như đồng hồ nó chạy ngầm á. Khi mình nhập liệu thì đồng hồ cũng đóng băng, nhưng nhập xong thì đồng hồ chạy lại bình thường và có cộng khoảng thời gian đóng băng nha nên vẫn đúng. Tuy nhiên mình không cần cầu kỳ nên đang dùng cái Userform của bạn vì rất tiện lợi, tùy chỉnh vị trí thoải mái mà ko ảnh hưởng trang tính. Cám ơn bạn nhiều nhé

 

[Excel2203]

Chào các bác; em cũng có vấn đề như trên tuy nhiên em muốn có 2 cái đồng hồ chung 1 sheet ạ; 1 cái chạy đến 3 phút thì dừng lại không chạy nữa hoặc mình bấm nút dừng thì đồng hồ dừng; tương tự vậy cho đồng hồ thứ 2 chạy 90 giây dừng lại. Cảm ơn các bác rất nhiều ạ

 

[doredore1988]

Chào các bác; em cũng có vấn đề như trên tuy nhiên em muốn có 2 cái đồng hồ chung 1 sheet ạ; 1 cái chạy đến 3 phút thì dừng lại không chạy nữa hoặc mình bấm nút dừng thì đồng hồ dừng; tương tự vậy cho đồng hồ thứ 2 chạy 90 giây dừng lại. Cảm ơn các bác rất nhiều ạ

mình hơi tò mò là bạn định dùng 2 đồng hồ này để làm gì? để đếm tgian khi làm test excell hay chỉ đơn giản là hiển thị 2 cái đồng hồ để bấm giờ thôi? nếu cái sau thì mình nghĩ nên dùng ppt thì sẽ đẹp và dễ hơn.

 

[thang_nguyen1]

Tôi thấy nếu hiển thị thời gian mà cho nó hiển thị trên UserForm thì nhìn thấy nó không được đẹp, thiết kế trực tiếp trên Sheet cũng được mà.

Bạn có thể làm cái đồng hồ hiển thị được không?

 

[giaiphap]

Bạn có thể làm cái đồng hồ hiển thị được không?

Không biết có phải ý bạn muốn hiển thị cái đồng hồ trên sheet đúng không?

 

[thang_nguyen1]

Không biết có phải ý bạn muốn hiển thị cái đồng hồ trên sheet đúng không?

Cảm ơn bạn rất nhiều đúng ý mình rồi ạ

Bài đã được tự động gộp: 27/6/24

Không biết có phải ý bạn muốn hiển thị cái đồng hồ trên sheet đúng không?

Cho mình hỏi thêm mình muốn mở file là đồng hồ tự chạy luôn thì sửa code như thế nào ạ

 

[giaiphap]

Cảm ơn bạn rất nhiều đúng ý mình rồi ạ

Bài đã được tự động gộp: 27/6/24

Cho mình hỏi thêm mình muốn mở file là đồng hồ tự chạy luôn thì sửa code như thế nào ạ

Thêm code sau vào Module.

Public Sub Auto_Open()
  With Sheet1.CommandButton1
    Run "StartTimer"
    .Caption = "Stop"
  End With
End Sub
Public Sub Auto_Close()
  With Sheet1.CommandButton1
    Run "StopTimer"
    .Caption = "Start"
  End With
End Sub