|
sub main()
introwct = Application.CountA(Worksheets("변동성").Columns(1))
Set tgt = Worksheets("변동성").Cells(introwct + 1, 1)
Set src = Worksheets("포지션")
tgt.Offset(0, 0) = src.Range("n6")
tgt.Offset(0, 1) = src.Range("o6")
tgt.Offset(0, 2) = src.Range("b1")
tgt.Offset(0, 3) = src.Range("b3")
tgt.Offset(0, 4) = src.Range("d1")
tgt.Offset(0, 5) = src.Range("h2")
tgt.Offset(0, 6) = src.Range("h3")
tgt.Offset(0, 7) = src.Range("h1")
Application.OnTime TimeValue("17:05:00"), "main", False
Application.OnTime TimeValue("17:06:00"), "main", Fals
Sub invision()
Application.OnTime TimeValue("17:05:00"), "main"
application.OnTime TimeValue("17:06:00"), "main"
End Sub
위와 같이 작동 시키니 ..첫번째 17시 05분에는 한번만 작동되는데.. 두번째 17.06분에 두번이 작동되는데. 왜 그런지 모르겠습니다.
현재시간을 활용해. ontime 해제 하라는 말씀이 무엇인지..
==============[복대리님 글에 대한 답변입니다]==============
안녕하세요? 복대리 님!
아래의 간단한 예제를 참고하세요...
Sub dhMain()
If CDate(Format(Now(), "hh:mm:00")) >= TimeValue("19:04:00") Then
Application.OnTime TimeValue("19:05:00"), "dhMain", , False
Else
End If
MsgBox "MagicSheet & 엑사모::http://officedev.co.kr"
End Sub
Sub dhTime()
Application.OnTime TimeValue("19:04:00"), "dhMain"
Application.OnTime TimeValue("19:05:00"), "dhMain"
End Sub
그럼...행운이 있으시길...! |
|