은성 님의 엑셀질문에 대한 답입니다^^

질문하신 엑셀내용은, 

생성되는 데이터의 출력위치를 사용자가 입력할수 있게 해달라는 내용이었습니다^^

간단한 InputBox 를 띄워서 입력받는걸로 해결했는데요~

소스를 첨부하니 '<< 수정  이라고 쓴부분을 참조하여 기존에 쓰시는 스크립트에 덧붙이시기 바랍니다. 

일단은 간단히 가이드만 잡아드렸다고 생각하시고, 기타 부분 ( 타이틀부분출력 이나 인풋안내멘트? 등등 ) 을 더 생각해보셔야 될것 같네요~

참조하시고 궁금한점은 또 물어보시길~~

Option Explicit '사용자 정의 변수 선언 Type Price_Kind O As Double C As Double H As Double L As Double End Type '전역 변수선언 Dim OCHL_PS As Boolean Dim OCHL_cnt As Long Dim OCHL_T As Date Public OCHL_Plot_PS As Boolean Public Price As Price_Kind '<< 수정 추가 변수 출력컬럼 위치 Dim OCHL_startCol As Long Sub Start_Stop_Click() Dim T_Booking As Date With Sheet1.Buttons("Button 1") If .Text = "시작" Then .Text = "중지" OCHL_T = Sheet1.Cells(2, 2).Value OCHL_PS = True T_Booking = TimeValue(Hour(Time) & ":" & Minute(Time)) + TimeValue("00:01:00") '<< 수정 시작위치 입력받는부분 OCHL_startCol = Application.InputBox("자료출력을 시작할 위치지정") Application.OnTime T_Booking, "OCHL_Main" Else OCHL_PS = False OCHL_Plot_PS = False .Text = "시작" End If End With End Sub Sub Clear_Click() '<< 수정 클리어하는부분도 입력받은부분에 따라 수정 Sheet1.Range(Cells(4, OCHL_startCol), Cells(10, OCHL_startCol + 4).End(xlDown)).Clear OCHL_cnt = 0 End Sub Sub OCHL_Plot(n As Long) With Sheet1 '<< 수정 데이터 출력시 입력받은 시작위치로 출력 .Cells(n, OCHL_startCol).Value = Format(Time, "hh:mm:ss") .Cells(n, OCHL_startCol + 1).Value = Price.O .Cells(n, OCHL_startCol + 2).Value = Price.C .Cells(n, OCHL_startCol + 3).Value = Price.H .Cells(n, OCHL_startCol + 4).Value = Price.L End With End Sub Sub OCHL_Main() If OCHL_PS = False Then Exit Sub Application.EnableEvents = False If OCHL_Plot_PS = True Then Price.C = Sheet1.Cells(2, 1).Value Call OCHL_Plot(OCHL_cnt + 4) With Price .O = .C .H = .C .L = .C End With OCHL_cnt = OCHL_cnt + 1 Else With Price .O = Sheet1.Cells(2, 1).Value .H = .O .L = .O End With Sheet1.Cells(OCHL_cnt + 4, 1).Value = "기록중" OCHL_Plot_PS = True End If Application.OnTime Time + OCHL_T, "OCHL_Main" Application.EnableEvents = True End Sub