엑셀 vba. 라인출력 모듈

공무tip 2012. 5. 21. 18:18

'라인그리기
    For Si = 0 To i + 1
        Range("A" & 5 + Si * 2 & ":Af" & 6 + Si * 2).Borders(xlEdgeLeft).Weight = xlThin
        Range("A" & 5 + Si * 2 & ":Af" & 6 + Si * 2).Borders(xlEdgeTop).Weight = xlThin
        Range("A" & 5 + Si * 2 & ":Af" & 6 + Si * 2).Borders(xlEdgeBottom).Weight = xlThin
        Range("A" & 5 + Si * 2 & ":Af" & 6 + Si * 2).Borders(xlEdgeRight).Weight = xlThin
        Range("A" & 5 + Si * 2 & ":Af" & 6 + Si * 2).Borders(xlInsideVertical).Weight = xlThin
        Range("A" & 5 + Si * 2 & ":Af" & 6 + Si * 2).Borders(xlInsideHorizontal).Weight = xlHairline
    Next Si

 


   

'공무tip' 카테고리의 다른 글

엑셀을 sql  (0) 2013.09.29
캐드 - 도면 쪼개기 에드온  (0) 2013.09.25
KS F2311  (0) 2013.09.25
되메우기  (0) 2012.05.15
USB 3.0인식문제  (0) 2012.05.14

설정

트랙백

댓글