도면 횡단정보를 이용하여 측점출력

 

첨부파일 참고.

횡단정보 시트의 A1열에 횡단정보를 넣고 오른쪽의 버튼을 클릭.

이때, 매크로를 활성화해야함.

버튼 클릭시 금호천 시트로 이동되며 MID와 LEFT, LEN함수를 응용하여 

No.X+XX형태의 측점으로 자동 출력이 되도록 제작하였다.

 

사용된 코드.

 

Sub pointPrint()

 

    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
        TrailingMinusNumbers:=True
    Range("F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("금호천").Select
    Range("C3").Select
    ActiveSheet.Paste


End Sub

 

강승원