Đồng hồ đếm ngược 15 giây, xin gởi các bạn tham khảo!

[SA_DQ]

[b]Sub DongHoNguoc()[/b]
    Sheets("S2").Select:           Range("E6").Value = 15               
    beep:                  SoGy = Timer
    For iI = 14 To 0 Step -1
        Do
            If Timer = SoGy + 1 Then
                Range("E6").Value = iI              'Range("E6").Value - 1
                SoGy = Timer:       beep
                Exit Do
            End If
        Loop
    Next iI
    MsgBox "!"
[b]End Sub[/b]

 

[SA_DQ]

OK nhưng phải sửa!

Co nhu cau lam dong ho dem nguoc khoang 30', . . . duoc khong?

Được chứ! Bạn sửa lại các số 15 & 14 thành các số tw ứng chỉ số fút mà bạn muốn!

 

[lachinhan]

Hi SA
To cung co nhu cau lam dong ho dem nguoc khoang 30', ban co the chi y hon duoc khong?

Sub DongHoNguoc()

Sheets("S2").Select:
Range("E6").Value = 30
beep:
SoGy = Timer
For iI = 30 To 0 Step -1
Do
If Timer = SoGy + 1 Then
Range("E6").Value = iI 'Range("E6").Value - 1
SoGy = Timer: beep
Exit Do
End If
Loop
Next iI
MsgBox "da 30 giay troi qua"
End Sub

muốn bao nhiêu giây thì thay đó mấy cái mình tô đen đó cậu ơi

 

[lachinhan]

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sub DongHoNguoc()
Sheets("S2").Select:
Range("E6").Value = 15
beep:
SoGy = Timer
For iI = 14 To 0 Step -1
Do
If Timer = SoGy + 1 Then
Range("E6").Value = iI
SoGy = Timer: beep
Exit Do
End If
Loop
If GetAsyncKeyState(32) <> 0 Then Exit Sub
Next iI
GoTo beep
End Sub

sửa tí cho vui, muốn nó dừng lại bấm phím space. bạn nào thấy ứng dụng vào việc gì được thì làm hehe

 

[quanloc]

hỏi thăm

bạn ơi cho mình hỏi một tý nhé
Viết những câu lệnh này vào chổ nào để nó hiện ra đồng hồ đếm ngược. Kiến thức về chuyện này mình kém lắm, rất mong bạn giúp mình
Cảm ơn nhiều !

 

[lachinhan]

bạn ơi cho mình hỏi một tý nhé
Viết những câu lệnh này vào chổ nào để nó hiện ra đồng hồ đếm ngược. Kiến thức về chuyện này mình kém lắm, rất mong bạn giúp mình
Cảm ơn nhiều !

file ne`. để chạy được vào Tool/Macro/Macro/chon macro bấm run là ok. để xem mã nguồn thì Alt + F11

 

[TranNguyenDanNhi]

Chạy đến 14 là dừng à ?? Sao vậy ??

 

[SA_DQ]

VER 2.01 đây, mời các bạn tham khảo

(Trong file đính kèm í!)

 

[tedaynui]

Bác SA ơi, sao chạy được vài giây là đứng chựng, Excel bị treo luôn là sao vậy ?

Thân
TDN

 

[SA_DQ]

Có vậy ư?!

Bác SA ơi, sao chạy được vài giây là đứng chựng, Excel bị treo luôn là sao vậy ?Thân TDN

Xem lại máy của bạn đi;
Mảco đơn giản mà:

Dim Chuc As Boolean
Sub Auto_open()
 DongHo20
End Sub
'  *  *      *  *      *  * '
Sub DongHo20()
 Dim SoGy As Double, iI As Integer
 
 Sheets("S1").Select:            SoGy = Timer
 For iI = 19 To 0 Step -1
    WSChange iI
    Do
        If Timer = SoGy + 1 Then
            beep
            SoGy = Timer:            Exit Do
        End If
    Loop
 Next iI
End Sub
'  *  *      *  *      *  * '
Sub WSChange(Targ As Integer)
    Dim Clls As Range
    
    If Targ < 10 Then
        Chuc = True
        Set Clls = Union(Range("B2:B6"), Range("D2:D6"), Cells(2, 3), Cells(6, 3))
    Else
        Chuc = False:                   Set Clls = Range("D2:D6")
        Range("B2:C6").Interior.ColorIndex = 2
    End If
    ToMau Clls
    Select Case Targ Mod 10
    Case 0
        Set Clls = Union(Range("F2:F6"), Range("H2:H6"))
        ToMau Union(Clls, Cells(2, 7), Cells(6, 7))
    Case 1
        ToMau Range(Cells(2, 8), Cells(6, 8))
    Case 2
        Set Clls = Union(Range("H2:H4"), Range("F4:F6"), Range("G6:H6"))
        ToMau Union(Clls, Cells(2, 7), Cells(4, 7))
    Case 3
        Set Clls = Union(Range("f2:h2"), Range("h3:h6"), Cells(4, 7))
        ToMau Union(Clls, Range("f6:h6"))
    Case 4
        Set Clls = Union(Range("f2:f4"), Range("h2:h6"), Cells(4, 7))
        ToMau Clls
    Case 5
        Set Clls = Union(Range("f2:g2"), Range("f4:h4"), Range("f6:h6"))
        ToMau Union(Clls, Cells(3, 6), Cells(5, 8))
    Case 6
        Set Clls = Union(Range("f2:g2"), Range("f4:h4"), Range("f6:h6"))
        ToMau Union(Clls, Cells(3, 6), Cells(5, 8), Cells(5, 6))
    Case 7
        Set Clls = Union(Range("h2:h6"), Cells(2, 7))
        ToMau Clls
    Case 8
        Set Clls = Union(Range("f2:f6"), Range("h2:h6"), Cells(2, 7), Cells(4, 7))
        ToMau Union(Clls, Cells(6, 7))
    Case 9
        Set Clls = Union(Range("h2:h6"), Range("f2:f4"), Cells(2, 7))
        ToMau Union(Clls, Cells(4, 7))
    End Select
End Sub
'  *  *      *  *      *  * '

Sub ToMau(Rng As Range)
 Range("e2:H6").Interior.ColorIndex = 2
 With Rng
    .Interior.ColorIndex = IIf(Chuc, 3, 5)
 End With
End Sub

 

[khamvaphaonline]

tui cũng vậy, chạy được một chút là excel treo luôn à!

 

[tedaynui]

tui cũng vậy, chạy được một chút là excel treo luôn à!

Đây là File mình đã chạy thử rất nhều lần và "không chết" lần nào. 100% toàn bộ là codes của bác SA_DQ, bạn tải về và chạy trên máy của bạn xem sao ?

TDN

 

[nhokviet]

#Notrayicon 
#include <GUIConstantsEx.au3>
GUICreate("Time",90,80)
dim $phut,$time,$msg,$oki
GUICtrlCreateLabel('Thời gian "phút"',0,2,82)     
$phut=GUICtrlCreateInput("",12,20,50) 

$oki=GUICtrlCreateButton("oki!", 17, 50, 34)
GUISetState()

Func dongho($phut)
    while $phut>0
            tooltip("Còn lại:"&$phut/1000&" giây",0,0)
            sleep(100)
            $phut=$phut-100
        WEnd
        tooltip("",0,0)
        $time=0
    exit
    
EndFunc

 While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $oki
            $phut=GUICtrlRead($phut)*60000
            dongho($phut)
        EndSelect
    WEnd

Cái đồng hồ đếm ngược time tự chọn tớ làm bằng AUTOIT

 

[lil_soi]

ủa mình down mí cái file nì về rùi,nhưng sao chạy k đc vậy bạn,bạn có thể hướng dẫn rõ hơn 1 tí k?????

 

[xsnd01]

Bác SA ơi làm sao mà trong file của bài

VER 2.01 đây, mời các bạn tham khảo

của bác thì các Sheet đều không nhìn thấy vậy, bác có thể chỉ dẫn giùm không

 

[ChanhTQ@]

Bác SA ơi làm sao mà trong file của bài của bác thì các Sheet đều không nhìn thấy vậy, bác có thể chỉ dẫn giùm không

Khi xài excel bạn cũng đã có lần vô menu Tool -> Options. . .
Sau đó bạn thử chọn thẻ View & thử thay đổi vài cái xem sao?!

Chúc bạn thành công.

 

[anhtuan1066]

Xin gữi các bạn 2 file đếm ngược và 1 file đồng hồ
Tôi dùng code hơi khác 1 chút (có phối hợp với Conditional Formating và không dùng vòng lập)
Code cực đơn giản:

Dim CountDown As Double
Sub Chay()
  CountDown = Now + TimeValue("00:00:01")
  Beep
  Application.OnTime CountDown, "Reset"
End Sub

Sub Reset()
  Range("B2").Value = Range("B2").Value - 1
  If Range("B2").Value <= 0 Then
    MsgBox "Ket thuc!": Exit Sub
  End If
  Call Chay
End Sub

Sub Dung()
  On Error Resume Next
  Application.OnTime CountDown, "Reset", , False
End Sub