본문 바로가기
WeekdayLife/excel

[엑셀VBA] INPUTBOX로 영역 선택하기

by JO_i 2016. 11. 15.

INPUTBOX로 영역 선택하기

VBA에서 INPUTBOX를 사용하면 그냥 문자 형식으로 입력이 되는데,

APPLICATION.INPUTBOX로 사용하게 되면, 맨 마지막 옵션에 여러가지 입력값 유형을 정할 수 있게 된다.

 

다른건 모르겠고, RANGE를 쓰려면 8번을 쓰면 된다.

 

 

특정영역을 선택해서 뭔가 작업을 할 때 용이하다.

아래 코드는 특정영역을 선택해서, 테두리를 치는 예시다.

어디까지나. APPLICATION.INPUTBOX를 위해 임의로 짠 코드일뿐 구지 이런 기능은 필요없을꺼다.

 

[코드샘플]

Sub BORDER_()

Dim MyRNG As Range
Set MyRNG = Application.InputBox("테두리칠 영역을 고르시오", , , , , , , 8)

With MyRNG
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders((xlInsideHorizontal)).LineStyle = xlContinuous
.Borders((xlInsideVertical)).LineStyle = xlContinuous
End With

End Sub