Tính tổng số giây từ thời điểm hiện tại

[dhnang]

Các bạn có thể cho biết có hàm nào trong Excel có thể tính tổng số giây không.
ví dụ hiện tại là 11:55:15
Thì làm sao để 1 cell nó tự đếm là 1,2,3....59,60,...100,101,102.....

Hoặc có thể là đếm số từ 1 đến n, và cường độ đếm là bằng giây không (khó diễn tả quá)

 

[ndu96081631]

Các bạn có thể cho biết có hàm nào trong Excel có thể tính tổng số giây không.
ví dụ hiện tại là 11:55:15
Thì làm sao để 1 cell nó tự đếm là 1,2,3....59,60,...100,101,102.....

Hoặc có thể là đếm số từ 1 đến n, và cường độ đếm là bằng giây không (khó diễn tả quá)

Tức là tạo xung clock 1s đúng không?
Nếu dùng phương pháp lập trình thì chỉ là.. chuyện nhỏ

 

[dhnang]

ừ, đúng rồi đó bạn, chuyện nhỏ là thế nào bạn ^^

 

[ndu96081631]

ừ, đúng rồi đó bạn, chuyện nhỏ là thế nào bạn ^^

Chẳng hạn thế này (xem file nhé)

 

[dhnang]

cái này cần trên 1 cell, thế này thì ko làm gì dc rồi

 

[ndu96081631]

cái này cần trên 1 cell, thế này thì ko làm gì dc rồi

Trên cell hay trên form cũng là thuật toán đó thôi
Sửa code lại là được
(Ai đang nghiên cứu VBA làm thử đi)
Ẹc... Ẹc...

 

[dhnang]

ừ, thanks a nhìu........

 

[ndu96081631]

Tôi nhận được tin nhắn của bạn:

ko biết a có rãnh, chỉnh lại dùm e cái đồng hồ 1 giây hôm bữa a làm thành 1 ô (cell) thay vì 1 form như a đã thiết kế.
THanks a.

Thật ra cái đồng hồ trên cell còn đơn giản hơn nữa...
1> Code trong Module

Public chk As Boolean, Pulse As Double
Sub ClockStart()
  Pulse = Now + TimeValue("00:00:01")
  Application.OnTime Pulse, "Reset"
End Sub

Sub Reset()
  If chk = False Then Exit Sub
  Sheet1.Range("A1").Value = Range("A1").Value + 1
  ClockStart
End Sub

Sub ClockStop()
  On Error Resume Next
  chk = False
  Application.OnTime Pulse, "Reset", , False
End Sub

2> Vẽ 2 CommandButton trên Sheet và code cho nó:

Private Sub CommandButton1_Click()
  chk = True
  With CommandButton1
    .Caption = IIf(.Caption = "Start", "Stop", "Start")
    Run IIf(.Caption = "Stop", "ClockStart", "ClockStop")
  End With
End Sub

Private Sub CommandButton2_Click()
  chk = False
  Sheet1.Range("A1").Value = 0
  CommandButton1.Caption = "Start"
End Sub

 

[dhnang]

rất cảm ơn a^^................