inspiration

  • VBA에서 INPUTBOX를 사용하면 문자 형식으로 입력을 받게 되는데,
  • APPLICATION.INPUTBOX로 사용하게 되면, 맨 마지막 옵션에 여러가지 입력값 유형을 정할 수 있게 된다.
  • RANGE를 쓰려면 8번을 쓰면 된다.


execution

특정영역을 선택해서 뭔가 작업을 할 때 영역의 값을 1차원 array로 반환한다고 쉽게 생각하면 편하다.

아래 코드는 특정영역을 선택해서, 테두리를 치는 예시다.
어디까지나. 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


적용 예시이다.

myimg



끝.