Sub settingfirst()
Dim object As String
object = “020000”
Cells(1, 1).Value = “현재가”
Cells(2, 1).Value = “=AXS|XD!A” + object + “.023”
Cells(1, 3).Value = “채결량”
Cells(2, 3).Value = “=AXS|XD!A” + object + “.032”
Cells(1, 5).Value = “채결시간”
Cells(2, 5).Value = “=AXS|XD!A” + object + “.034”
Cells(1, 7).Value = “매도호가1”
Cells(2, 7).Value = “=AXS|XD!A” + object + “.041”
Cells(1, 9).Value = “매수호가1”
Cells(2, 9).Value = “=AXS|XD!A” + object + “.061”
Cells(1, 11).Value = “매도호가2”
Cells(2, 11).Value = “=AXS|XD!A” + object + “.042”
Cells(1, 13).Value = “매수호가2”
Cells(2, 13).Value = “=AXS|XD!A” + object + “.062”
Cells(1, 15).Value = “매도호가3”
Cells(2, 15).Value = “=AXS|XD!A” + object + “.043”
Cells(1, 17).Value = “매수호가3”
Cells(2, 17).Value = “=AXS|XD!A” + object + “.063”
Cells(1, 19).Value = “매도우선1 호가가격”
Cells(2, 19).Value = “=AXS|XD!A” + object + “.051”
Cells(1, 21).Value = “매도우선2 호가가격”
Cells(2, 21).Value = “=AXS|XD!A” + object + “.052”
Cells(1, 23).Value = “매도우선3 호가가격”
Cells(2, 23).Value = “=AXS|XD!A” + object + “.053”
Cells(1, 25).Value = “매수우선1 호가가격”
Cells(2, 25).Value = “=AXS|XD!A” + object + “.071”
Cells(1, 27).Value = “매수우선2 호가가격”
Cells(2, 27).Value = “=AXS|XD!A” + object + “.072”
Cells(1, 29).Value = “매수우선3 호가가격”
Cells(2, 29).Value = “=AXS|XD!A” + object + “.073”
End Sub
Private Sub Worksheet_Calculate()
ReDim temp(800, 30) As Variant
temp(1, 1) = Cells(2, 2)
Cells(2, 2).Value = Cells(2, 1)
temp(2, 1) = Cells(3, 2)
Cells(3, 2) = temp(1, 1)
temp(3, 1) = Cells(4, 2)
Cells(4, 2) = temp(2, 1)
temp(4, 1) = Cells(5, 2)
Cells(5, 2) = temp(3, 1)
temp(5, 1) = Cells(6, 2)
Cells(6, 2) = temp(4, 1)
temp(6, 1) = Cells(7, 2)
Cells(7, 2) = temp(5, 1)
temp(7, 1) = Cells(8, 2)
Cells(8, 2) = temp(6, 1)
temp(8, 1) = Cells(9, 2)
Cells(9, 2) = temp(7, 1)
temp(9, 1) = Cells(10, 2)
Cells(10, 2) = temp(8, 1)
For i = 10 To 800
temp(i, 1) = Cells(i + 1, 2)
Cells(i + 1, 2) = temp(i – 1, 1)
Next i
For k = 1 To 14
temp(1, k + 1) = Cells(2, 2 * k + 2)
Cells(2, 2 * k + 2).Value = Cells(2, 2 * k – 1 + 2)
temp(2, k + 1) = Cells(3, 2 * k + 2)
Cells(3, 2 * k + 2) = temp(1, k + 1)
temp(3, k + 1) = Cells(4, 2 * k + 2)
Cells(4, 2 * k + 2) = temp(2, k + 1)
temp(4, k + 1) = Cells(5, 2 * k + 2)
Cells(5, 2 * k + 2) = temp(3, k + 1)
temp(5, k + 1) = Cells(6, 2 * k + 2)
Cells(6, 2 * k + 2) = temp(4, k + 1)
temp(6, k + 1) = Cells(7, 2 * k + 2)
Cells(7, 2 * k + 2) = temp(5, k + 1)
temp(7, k + 1) = Cells(8, 2 * k + 2)
Cells(8, 2 * k + 2) = temp(6, k + 1)
temp(8, k + 1) = Cells(9, 2 * k + 2)
Cells(9, 2 * k + 2) = temp(7, k + 1)
temp(9, k + 1) = Cells(10, 2 * k + 2)
Cells(10, 2 * k + 2) = temp(8, k + 1)
For l = 10 To 800
temp(l, k + 1) = Cells(l + 1, 2 * k + 2)
Cells(l + 1, 2 * k + 2) = temp(l – 1, k + 1)
Next l
Next k
End Sub
