vba를 이용하여 자동화를 하기 위하여는 어떤 범위에 있는 대상에 대하여 작업이 이루어 지는지를 설정 해주어야 합니다. 보통 range 라는 개체를 이용하여 설정을 해주게 되는데 이 range 를 현재 엑셀 시트에서 사용자가 선택한 영역으로 하고 싶은 경우가 있습니다.
선택을 필요로 하는 대상 셀이 한정 적이거나 자동화 대상이 필요에 따라 자주 변경되는 경우에는 사용자가 선택한 영역을 이용하여 range 를 설정해주는 것이 편리하기도 합니다.
엑셀 시트에서 특정 영역을 선택한 다음 vba 에디터 창으로 가서 아래와 같이 입력한 후 F5 를 눌러 실행해 봅시다.
Sub selectiontest()
Dim currentSelection As Range
Dim row_Count As Integer
Dim column_count As Integer
Set currentSelection = Selection.Cells()
row_Count = currentSelection.Rows.Count
column_count = currentSelection.Columns.Count
MsgBox (row_Count) '현재선택한 셀의 세로 줄 수
MsgBox (column_count) '현재선택한 셀의 가로 줄 수
End Sub현재 선택한 셀의 가로 줄 수와 세로 줄 수가 팝창으로 안내가 됩니다.
선택한 모든 셀에 대하여 무엇인가를 해야 한다면 For 구분을 통하여 실행이 가능합니다.
여기서 한번 응용을 해보도록 하겠습니다.
특정 셀안에 색상을 표기하는 16진수 값이 들어있을 때 해당 값을 이용하여 섹의 색상을 칠한다고 하면 아래와 같이 하면 되겠습니다.
먼저 필요한 명령들을 보면 아래와 같습니다.
선택 영역을 지정하는 함수 : Selection.Cells()
문자열의 일부 영역을 잘라내는 함수 : LEFT(string, number), MID(string,from, number), RIGHT(string, number)
16진수 값을 10진수로 변경해주는 함수 : WorksheetFunction.Hex2Dec(value)
셀의 배경색상을 지정하는 함수 .Interior.Color = RGB(255,255,255)
엑셀의 특정 영역에 16진수 색상 값을 적어 보겠습니다.
해당 셀을 영역으로 선택한 뒤 아래의 코드를 vba 에디터 창에 입력한 후 F5 를 눌러봅시다.
위에 설명했던 코드들이므로 한번 훓어 보시면 되겠습니다.
Sub selectiontest_setCellColor()
Dim currentSelection As Range
Dim row_Count As Integer
Dim column_count As Integer
Set currentSelection = Selection.Cells()
row_Count = currentSelection.Rows.Count
column_count = currentSelection.Columns.Count
For Each c In currentSelection
Dim clr_red As Integer
Dim clr_green As Integer
Dim clr_blue As Integer
clr_red = WorksheetFunction.Hex2Dec(Mid(c.Value, 2, 2))
clr_green = WorksheetFunction.Hex2Dec(Mid(c.Value, 4, 2))
clr_blue = WorksheetFunction.Hex2Dec(Right(c.Value, 2))
c.Interior.Color = RGB(clr_red, clr_green, clr_blue)
Next
End Sub
짜잔. 요렇게 색상이 칠해졌습니다.
물론 당연히 선택한 셀이 아닌 기존 방식대로 특정 영역의 모든 셀에 대하여도 동일하게 적용이 가능합니다.
코딩을 하는 이유는 많은 작업을 쉽고 빠르며 정확하게 하기 위함이므로 위와 같은 칸이 수천개가 있다면 당연히 코딩을 하는 것이 좋은 방법이 되겠습니다.
디자이너분들이라고 겁먹지 마시고 과감히 코딩을 배워봅시다.
|
뎃글, 공감 은 블로그 작성자에게 큰 힘이 된답니다. |
이상입니다.
'DEV > VBA' 카테고리의 다른 글
| [VBA] 엑셀 시트에 있는 모든 그림 한번에 삭제하기 (13) | 2019.08.21 |
|---|---|
| [VBA] 문자열 가지고 놀기 (0) | 2019.08.12 |
| [vba] For 구문 이용하기와 offset 사용 해 보기 (0) | 2019.07.12 |
| [vba] 자동화를 위하여 엑셀의 영역 설정하는 방법 (0) | 2019.07.12 |
| 엑셀 VBA 시작하기 (0) | 2019.06.01 |
