Tự động cập nhật liên tục hàm Now() (6 người xem)

[ha_dongminhgas]

Kính gửi các anh/chị,

Mình đã tìm trong diễn đàn 2 ngày mà chưa tìm ra cách để hàm Now() tự động cập nhật một cách liên tục mà không cân nhấn F9 (không nhất thiết phải từng giây)
Mong mọi người chỉ giúp - Xin cám ơn nhiều

 

[ndu96081631]

Kính gửi các anh/chị,

Mình đã tìm trong diễn đàn 2 ngày mà chưa tìm ra cách để hàm Now() tự động cập nhật một cách liên tục mà không cân nhấn F9 (không nhất thiết phải từng giây)
Mong mọi người chỉ giúp - Xin cám ơn nhiều

Bạn muốn thế thì chẳng khác nào là muốn cái đồng hồ rồi
Có ngay đây ---> Code đơn giản cực kỳ

 

[ha_dongminhgas]

Rất cám ơn bạn ndu96081631. Nhưng bạn ơi, mình muốn lấy giá trị của hàm Now(), bạn chỉ cho mình cách lấy giá trị thời gian của cái đồng hồ với. Mình đã thử, nhưng hàm Now() vẫn đứng yên à. Cám ơn bạn nhiều.

 

[ndu96081631]

Rất cám ơn bạn ndu96081631. Nhưng bạn ơi, mình muốn lấy giá trị của hàm Now(), bạn chỉ cho mình cách lấy giá trị thời gian của cái đồng hồ với. Mình đã thử, nhưng hàm Now() vẫn đứng yên à. Cám ơn bạn nhiều.

Thì trong file đính kèm của tôi, tại cell B2 chính là hàm NOW chứ còn gì nữa
Bạn muốn "lấy giá trị của hàm NOW" nghĩa là thế nào nhỉ?
Có lẽ phải hỏi lại: Mục đích của bạn là gì? Lấy NOW để làm cái gì?

 

[Hoàng Trọng Nghĩa]

Cám ơn Thầy ndu96081631 về cái đồng hồ, tuy nhiên em không mấy thích nó. Lý do: Nó cứ cập nhật từng giây nên cứ chớp chớp hoài, nhức mắt quá Thầy ui.

 

[ndu96081631]

Cám ơn Thầy ndu96081631 về cái đồng hồ, tuy nhiên em không mấy thích nó. Lý do: Nó cứ cập nhật từng giây nên cứ chớp chớp hoài, nhức mắt quá Thầy ui.

Chỉ là tôi muốn gộp 2 code: Clock và Flash cell lại thành 1... Nếu không thích nó "chớp chớp" thì xóa đoạn này đi là xong:

.Interior.ColorIndex = (Second(Now) Mod 2) + 5
.Font.ColorIndex = 6 - (Second(Now) Mod 2)

Khi ấy chỉ còn lại đồng hổ
Trong code cũng có ghi chú đấy!

 

[Hoàng Trọng Nghĩa]

Không phải ý em nói vậy đâu Thầy ơi, nó đẹp là nhờ Flash đó chứ, tuy nhiên con trỏ sẽ bị nhấp nháy đó Thầy.
Mình dùng thủ thuật Application.ScreenUpdating = False thì sao ạ? (Hỏi vậy chứ em thí nghiệm trực tiếp đây).

P/S: Một câu hỏi làm phiền Thầy nữa nè! Có thể áp dụng nó trên Form được không ạ? Chỉ dẫn cho em đi.
À, thêm cái Application.ScreenUpdating = False chẳng ăn thua gì cả! Con trỏ coi bộ chớp còn mạnh hơn đó hihihi

 

[ndu96081631]

Không phải ý em nói vậy đâu Thầy ơi, nó đẹp là nhờ Flash đó chứ, tuy nhiên con trỏ sẽ bị nhấp nháy đó Thầy.
Mình dùng thủ thuật Application.ScreenUpdating = False thì sao ạ? (Hỏi vậy chứ em thí nghiệm trực tiếp đây).

P/S: Một câu hỏi làm phiền Thầy nữa nè! Có thể áp dụng nó trên Form được không ạ? Chỉ dẫn cho em đi.
À, thêm cái Application.ScreenUpdating = False chẳng ăn thua gì cả! Con trỏ coi bộ chớp còn mạnh hơn đó hihihi

Sao lạ thế nhỉ? Tôi thử nghiệm trên nhièu máy tính, không thấy có hiện tượng con trỏ nhấp nháy như bạn nói (hay máy tính của bạn có cấu hình yếu hoặc chạy nhiều ứng dụng chăng?)
Còn vụ Application.ScreenUpdating = False tôi nghĩ cho vào chỉ càng tệ thêm

À, thêm cái Application.ScreenUpdating = False chẳng ăn thua gì cả! Con trỏ coi bộ chớp còn mạnh hơn đó hihihi

Làm được trên Cell, đương nhiên cũng làm được trên Form thôi ---> Bạn thử search trên diển đàn mình xem, có nhiều lắm (từ khóa: Đồng hồ trên Form)

 

[Hoàng Trọng Nghĩa]

Sao lạ thế nhỉ? Tôi thử nghiệm trên nhièu máy tính, không thấy có hiện tượng con trỏ nhấp nháy như bạn nói (hay máy tính của bạn có cấu hình yếu hoặc chạy nhiều ứng dụng chăng?)
Còn vụ Application.ScreenUpdating = False tôi nghĩ cho vào chỉ càng tệ thêm

Em đang sử dụng Laptop Lenovo 3000 G230 (Ram 2G, 2core duo), chỉ chạy chương trình Excel, W.Media Player và Trang này thôi.
Phát hiện mới trên đồng hồ của Thầy là: Nếu đang mở Đồng hồ mà mở thêm 1 file Excel khác, ngay lập tức cứ ô B2 của bất cứ sheet nào active cũng hiện đồng hồ!!!! My God!!!

PS: Em vẫn muốn được hướng dẫn đồng hồ của Thầy trên Form ạ.
Cảm ơn Thầy rất nhiều.

 

[ndu96081631]

Em đang sử dụng Laptop Lenovo 3000 G230 (Ram 2G, 2core duo), chỉ chạy chương trình Excel, W.Media Player và Trang này thôi.
Phát hiện mới trên đồng hồ của Thầy là: Nếu đang mở Đồng hồ mà mở thêm 1 file Excel khác, ngay lập tức cứ ô B2 của bất cứ sheet nào active cũng hiện đồng hồ!!!! My God!!!

Cái này sửa lại dể thôi!
Trong sub, chổ nào là Range("B2") ta sửa lại thành ThisWorkbook.Sheets(1).Range("B2") là ăn chắc

PS: Em vẫn muốn được hướng dẫn đồng hồ của Thầy trên Form ạ.
Cảm ơn Thầy rất nhiều.

Tạm làm cái Form này ---> Bạn hãy chỉnh lại theo ý nhé

 

[Hoàng Trọng Nghĩa]

Em cảm ơn Thầy thật nhiều! Chúc Thầy có một buổi tối vui vẻ và một đêm thật ngon giấc!

 

[ha_dongminhgas]

Xin chân thành cảm ơn mọi người, theo đề nghị của anh ndu96081631 mình xin gửi file mà mình đã ứng dụng đồng hồ của anh. Một lần nữa xin cám ơn.

 

[qwertyuiopasdfghjkl]

anh cho em xin doan mã cập nhập thời gian như cái đồng hộ ,nhưng em muốn gán vào 1 nút bấm khác chứ không cần nút start stop của anh. ( kích chuột phải vào 1 hình tron hay hinh vuong chọn assign macro )