|
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 해제 하라는 말씀이 무엇인지..
|
|