수정을 하거나 중간 중간 확인을 해야 하는 상황일 때에는 시작행, 마지막행을 가변적으로 지정할 필요가 있다.
이때에는 코드를 아래처럼 만들어서 사용하면 좀 더 편하고 좋다.
VBA 도 조금 알게 되니까 범위지정을 얼마나 편리하게 할 것인가, 간단간단한 팁을 알아두면 여러모로 유용하게 사용할 수가 있는 거 같다.
Dim C, rngAll As Range
Dim sRow '// 시작할 행의 변수
Dim v
Application.StatusBar = True
v = InputBox("시작할 행의 수를 입력하세요")
sRow = Trim(Split(v, "/")(0))
If sRow = vbNullString Then Exit Sub '// 취소 선택시 매크로 중단
If Not IsNumeric(sRow) Then Exit Sub '// 입력한 값이 숫자가 아닌 경우 매크로 중단
If InStr(v, "/") > 0 Then
eRow = Trim(Split(v, "/")(1)) '// 마지막 행
End If
Debug.Print "Last Row : " & eRow
If eRow Then
Set rngAll = Range(Cells(sRow, "G"), Cells(eRow, "G"))
Else
Set rngAll = Range(Cells(sRow, "G"), Cells(Rows.Count, "G").End(3))
End If
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| Error Trapping with Visual Basic for Applications (0) | 2015.06.09 |
|---|---|
| [VBA기초] 날짜 표시 (0) | 2015.06.06 |
| [VBA기초] ASC(아스키)코드 (0) | 2015.05.23 |
| [VBA기초] 제대로 설정하는 Range(구간범위) (0) | 2015.05.13 |
| [VBA기초] 번호제거 (0) | 2015.05.11 |
Link2Me
