none
엑셀 매크로 테두리 선 만들기 RRS feed

  • 질문

  • office 포럼에서 해결이 안되서 이쪽을 추천해주시더라구요.

    사진이나 링크가 안되서 주소만 남김니다.

    간단한 매크로인데 생각대로 동작이 안됩니다. 도와주십시오. 꾸벅

    http://answers.microsoft.com/ko-kr/office/forum/office_365hp-excel/%EC%97%91%EC%85%80-%EB%A7%A4%ED%81%AC%EB%A1%9C/da36999b-8a2b-4c1f-8902-b4fa3b83fd8b?tm=1397735985150

    또한 어떻게 해야 계정을 확인 받을 수 있죠?

    • 편집됨 yaho2dr 2014년 4월 22일 화요일 오후 3:28
    2014년 4월 22일 화요일 오후 3:26

모든 응답

  • 안녕하세요 VB MVP 고성만 입니다.

    답변이 늦어서 죄송합니다.

    해당 매크로 파일에서 맨 아랫부분의 두줄을 지워주시면 해결됩니다.

        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    재현해서 테스트 해보았습니다.

    도움되시길 바랍니다.

    참고로, 아래의 두줄은 해당 테두리의 안쪽부분 평형선과 세로부분을 지워버리는 모듈입니다.

    전체의 소스는 아래와같이 바뀌면 됩니다.

    Sub Macro20() ' ' Macro20 Macro ' ' Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With

    End Sub



    프로그램 개발에는 정답이 없다.


    • 편집됨 Sungman KOMVP 2014년 6월 9일 월요일 오전 2:48 내용수정
    2014년 6월 9일 월요일 오전 2:47