Tạo đồng hồ chạy trên EXCEL

Liên hệ QC

handung107

Thành viên gắn bó
Thành viên danh dự
Tham gia
30/5/06
Bài viết
1,630
Được thích
17,436
Nghề nghiệp
Bác sĩ
Bài của TuanVNUI​

Xin gửi tặng các bạn một Add-In chạy đồng hồ trên EXCEL.
Bạn hãy thực hiện các bước:
b1) Download và giải nén "Dongho.zip" vào máy của bạn
b2) Mở EXCEL, vào menu Tools\Add-Ins... chọn "Browse" và chọn file "Dongho.xla" (bạn đã giải nén ở b1).
====================================
File "Dongho.xla" không Protect VBA nên các bạn có thể chỉnh sửa theo ý mình.
 

File đính kèm

  • Dongho.zip
    7.1 KB · Đọc: 5,651
Để tạo đồng hồ trên 1 Cell Bạn làm như sau nè


Private Const Mycompany = " www.vfs.com.vn"
-----------------------------------------------------
Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub
-----------------------------------------------------
Private Sub ProTimer()
Application.Caption = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany
Sheet1.Range("A1") = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany //dòng đây là để tạo đồng hồ cho 1 Cell
Ontimer
End Sub

---------------------------thanks
có gì ko hiễu liên hệ nha ban
nick mình là :zo0nguyenhieu860oz
 
chào bạn anhcop86 mình đang muốn làm một chiếc đông hồ trên 1 cell trong excel mà mãi không làm được. Mình đã đọc bài của bạn viết nhưng không hiểu cách làm và có thử đoạn viết của bạn nhưng không được. Nếu có thể bạn hãy nói kĩ hơn về cách làm và có thể gừi cho mình qua địa chỉ basang1976@gmail.com được không. Nếu được xin chân thành cảm ơn bạn!
 
chào bạn anhcop86 mình đang muốn làm một chiếc đông hồ trên 1 cell trong excel mà mãi không làm được. Mình đã đọc bài của bạn viết nhưng không hiểu cách làm và có thử đoạn viết của bạn nhưng không được. Nếu có thể bạn hãy nói kĩ hơn về cách làm và có thể gừi cho mình qua địa chỉ basang1976@gmail.com được không. Nếu được xin chân thành cảm ơn bạn!
Hơn hai năm rồi chưa gặp, đến khi nào sẽ gặp đây? Thôi thì trong thời gian chờ hãy làm vậy đi:
Mở file Excel / Bấm Alt +F11 / bấm chuột phải vào khung bên trái / Insert -->Module
Dán đoạn code trên vào, chỉnh sửa lại tí theo ý muốn.
 

File đính kèm

  • Book1.xls
    23.5 KB · Đọc: 1,367
Lần chỉnh sửa cuối:
4 năm rồi không gặp, mình viết bài này lâu lắm rồi. Hôm nay có người hỏi lại mình mới nhớ ra. Sorry các bạn nhiều. hehehe.
 
4 năm rồi không gặp, mình viết bài này lâu lắm rồi. Hôm nay có người hỏi lại mình mới nhớ ra. Sorry các bạn nhiều. hehehe.

Cũng tham gia cho vui, gọi là chút hương vị.
01. Thời gian trong Cell.
02. thời gian trên Form.
 

File đính kèm

  • Thoi gian trong Cell.rar
    217.7 KB · Đọc: 1,462
  • Thoi gian tren Form.rar
    118.5 KB · Đọc: 1,105
Bài của TuanVNUI​


Xin gửi tặng các bạn một Add-In chạy đồng hồ trên EXCEL.
Bạn hãy thực hiện các bước:
b1) Download và giải nén "Dongho.zip" vào máy của bạn
b2) Mở EXCEL, vào menu Tools\Add-Ins... chọn "Browse" và chọn file "Dongho.xla" (bạn đã giải nén ở b1).
====================================
File "Dongho.xla" không Protect VBA nên các bạn có thể chỉnh sửa theo ý mình.


Cho em hỏi là bây giờ muốn chạy cái addin này để thấy giờ nó hiện trong một o cell nào đó thì làm thế nào ạh.
 
Lần chỉnh sửa cuối:
Cho em hỏi là bây giờ muốn chạy cái addin này để thấy giờ nó hiện trong một o cell nào đó thì làm thế nào ạh.
code trong Add-Ins đó nó không chạy trên Cells mà chỉ chạy trên thanh tiêu đề gì đó ở trên thôi ... muốn đông hồ trên cells thì tìm code khác đi trẹn GPE có cả một Rừng đồng hồ... tha hồ mà lựa....sướng muốn chết được... chịu khó tìm đi nha...tìm diết vọc diết rồi Bạn sẽ ngộ ra một điều..
 
code trong Add-Ins đó nó không chạy trên Cells mà chỉ chạy trên thanh tiêu đề gì đó ở trên thôi ... muốn đông hồ trên cells thì tìm code khác đi trẹn GPE có cả một Rừng đồng hồ... tha hồ mà lựa....sướng muốn chết được... chịu khó tìm đi nha...tìm diết vọc diết rồi Bạn sẽ ngộ ra một điều..
Cảm ơn Kieu Manh đã chỉ giáo.
 
Tặng thêm các bạn cái đồng hồ và lịch, để dùng lịch thì chọn vào 1 Cell của sheet1 và chọn ngày trong Calendar.
 

File đính kèm

  • LICH VA DONG HO.rar
    14.5 KB · Đọc: 503
Để tạo đồng hồ trên 1 Cell Bạn làm như sau nè


Private Const Mycompany = " www.vfs.com.vn"
-----------------------------------------------------
Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:01"), "ProTimer"
End Sub
-----------------------------------------------------
Private Sub ProTimer()
Application.Caption = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany
Sheet1.Range("A1") = Format(Now(), "dd/mm/yy hh:mm:ss") & Mycompany //dòng đây là để tạo đồng hồ cho 1 Cell
Ontimer
End Sub

---------------------------thanks
có gì ko hiễu liên hệ nha ban
nick mình là :zo0nguyenhieu860oz
Cho mình lệnh dừng đồng hồ đi bạn
 
Bài của TuanVNUI

Xin gửi tặng các bạn một Add-In chạy đồng hồ trên EXCEL.
Bạn hãy thực hiện các bước:
b1) Download và giải nén "Dongho.zip" vào máy của bạn
b2) Mở EXCEL, vào menu Tools\Add-Ins... chọn "Browse" và chọn file "Dongho.xla" (bạn đã giải nén ở b1).
====================================
File "Dongho.xla" không Protect VBA nên các bạn có thể chỉnh sửa theo ý mình.
làm rồi nó có ra đâu?
 
Web KT
Back
Top Bottom