|
아래와 같이. 특정시간이 되면 메인을 작동하게 만든 포지션입니다.
그런데. 항상 2번씩 메인이 순환합니다. 따라서. 데이타 저장을 두번하게 되어서말입니다.
9시2분에 메인이 작동을 하면서 딱 한번 데이타 이동을 했으면 하는데 다른 방법이 없나요...
Public introwct As Integer
Public intcounter As Integer
Sub main()
For intcounter = 1 To 2
If intcounter = 1 Then
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")
Else
GoTo mm:
End If
Next intcounter
mm:
End Sub
Sub invision()
Application.OnTime TimeValue("09:02:00"), "main"
Application.OnTime TimeValue("15:06:00"), "main"
End Sub
|
|