xin cách làm sao để thể hiện được thời gian đếm ngược trên màn hình

[gianghoco]

E chào anh/chị,
E muốn xin cách làm sao để thể hiện được thời gian đếm ngược trên màn hình ạ.
Cụ thể là
Ô A1 - thời điểm em nhận được yêu cầu, Giả sử là 15:00:00
Ô B1 - Nhập thời gian xử lý yêu cầu, mặc định là 15 phút & cho phép thay đổi thủ công thời gian xử lý y/c này.
Ô C1 - Thời điểm cuối cùng e phải xử lý xong yêu cầu, giả sử là (15 phút), thể hiện là 15:15:00
Ô D1 - Ô thể hiện thời gian, ở trường hợp này là đồng hồ đếm ngược, số ngược, từ 15:00 về 00:00. Khi đến 00:00 (hết giờ) thì chuyển số 00:00 thành màu đỏ & ô bên cạnh (D2) hiện chữ "hết thời gian xử lý"

Em mới học excel, task này khó quá ạ. Anh / Chị giúp e với. Em cảm ơn nhiều!

 

[hungpecc1]

Dạng bài này có nhiều trên diễn đàn , bạn tìm theo từ khóa trên google "làm thời gian đếm ngược site: giaiphphapexcel.com"
"
Nghich ngợm tẹo code:

Dim gCount As Date
Sub RunClock()
  Sheet1.Range("A1").Value = Format(Now, "hh:mm:ss")
  Application.OnTime earliesttime:=Now + TimeValue("00:00:01"), Procedure:="RunClock"
End Sub

 'Updateby20140925
 Sub Timer()
 gCount = Now + TimeValue("00:00:01")
 Application.OnTime gCount, "ResetTime"
 End Sub
 Sub ResetTime()
 Dim xRng As Range
 Set xRng = Application.ActiveSheet.Range("A2")
 xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
 If xRng.Value <= 0 Then
 MsgBox "Countdown complete."
 Exit Sub
 End If
 Call Timer
 End Sub

Chạy sub Runclock() : Ô A1 sẽ hiện đồng hồ Digital
Chạy sub ResetTime() : sẽ hiện đồng hồ đếm ngược thời gian đã được chỉ định trước tại ô A2 ; ( đầu tiên bạn định dạng format dữ liệu ô A2 theo hh:mm:ss ; rồi nhập thời gian muốn đếm ngược)

 

[gianghoco]

Dạng bài này có nhiều trên diễn đàn , bạn tìm theo từ khóa trên google "làm thời gian đếm ngược site: giaiphphapexcel.com"
"
Nghich ngợm tẹo code:

Dim gCount As Date
Sub RunClock()
  Sheet1.Range("A1").Value = Format(Now, "hh:mm:ss")
  Application.OnTime earliesttime:=Now + TimeValue("00:00:01"), Procedure:="RunClock"
End Sub

 'Updateby20140925
 Sub Timer()
 gCount = Now + TimeValue("00:00:01")
 Application.OnTime gCount, "ResetTime"
 End Sub
 Sub ResetTime()
 Dim xRng As Range
 Set xRng = Application.ActiveSheet.Range("A2")
 xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
 If xRng.Value <= 0 Then
 MsgBox "Countdown complete."
 Exit Sub
 End If
 Call Timer
 End Sub

Chạy sub Runclock() : Ô A1 sẽ hiện đồng hồ Digital
Chạy sub ResetTime() : sẽ hiện đồng hồ đếm ngược thời gian đã được chỉ định trước tại ô A2 ; ( đầu tiên bạn định dạng format dữ liệu ô A2 theo hh:mm:ss ; rồi nhập thời gian muốn đếm ngược)

dạ, em cảm ơn anh nhiều!