'Mail: [EMAIL="TuanKTCDCN@Yahoo.com"]TuanKTCDCN@Yahoo.com[/EMAIL]
'Website:[url]www.vietnamuniversal.com[/url]
Private Const Mycompany = " [URL="http://www.vietnamuniversal.com"]www.vietnamuniversal.com[/URL]"
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
Ontimer
End Sub
vungoc đã viết:Anh Tuan cho em hỏi làm sao đưa những đoạn mã vào VB excel và cần làm những thủ tục gì để thời gian chạy được. XIn anh chỉ dẫn giùm, cảm ơn anh nhiều !