Friday, October 06, 2006
엑셀VBA기초] For문: 셀 자동 채우기, 셀 주소 얻어서: Cell Auto Fill
가장 기초적인 VBA(Visual Basic for Applications) 예제입니다.
For문으로, 각 셀(Cell)들 하나하나씩에 접근한 후, 각 셀들을 그 셀들 자신의 주소(좌표)로 채워 넣는 방법입니다. (물론 For문을 돌리지 않고 한꺼번에 하는 방법도 있습니다. 그렇지만 여기서는 가장 비베스러운 코드를 작성했습니다.)
VBA에서는, 프로시저(서브루틴) 이름과 변수명을 한글로도 지정 가능합니다.
Cells(R, C).Address(ReferenceStyle:=xlR1C1)
여기에는 지정한 셀의 주소가 R1C1 형식으로 들어 있습니다. 이 값을
Cells(R, C).Value
에 대입해 주었습니다. 이것이 셀에 들어갈 값입니다.
비베 에디터(엑셀에서 Alt+F11키를 누르면 나옴)에서 새 모듈을 삽입해 준 후, 위의 코드 박스의 예제 코드를 모듈에 카피해 넣고, F5키를 눌러 실행시키든지, 또는 엑셀 문서에서 Alt+F8키로 실행시킵니다.
실행 결과:
3 x 5 = 15개의 칸이 모두 채워졌습니다.
For문이 아닌 Range를 이용하여 한꺼번에 채우는 방법: ▶▶ 엑셀VBA] 지정한 범위의 셀에, 한꺼번에 자동으로 채우기: Excel Range
For문으로, 각 셀(Cell)들 하나하나씩에 접근한 후, 각 셀들을 그 셀들 자신의 주소(좌표)로 채워 넣는 방법입니다. (물론 For문을 돌리지 않고 한꺼번에 하는 방법도 있습니다. 그렇지만 여기서는 가장 비베스러운 코드를 작성했습니다.)
Excel 예제: 지정한 모든 셀에 자동으로 값 채우기
Option Explicit
Sub 셀_자동_채우기()
Dim R, C
For R = 1 To 3
For C = 1 To 5
Cells(R, C).Value = Cells(R, C).Address(ReferenceStyle:=xlR1C1)
Next C
Next R
End Sub
Sub 셀_자동_채우기()
Dim R, C
For R = 1 To 3
For C = 1 To 5
Cells(R, C).Value = Cells(R, C).Address(ReferenceStyle:=xlR1C1)
Next C
Next R
End Sub
VBA에서는, 프로시저(서브루틴) 이름과 변수명을 한글로도 지정 가능합니다.
Cells(R, C).Address(ReferenceStyle:=xlR1C1)
여기에는 지정한 셀의 주소가 R1C1 형식으로 들어 있습니다. 이 값을
Cells(R, C).Value
에 대입해 주었습니다. 이것이 셀에 들어갈 값입니다.
비베 에디터(엑셀에서 Alt+F11키를 누르면 나옴)에서 새 모듈을 삽입해 준 후, 위의 코드 박스의 예제 코드를 모듈에 카피해 넣고, F5키를 눌러 실행시키든지, 또는 엑셀 문서에서 Alt+F8키로 실행시킵니다.
실행 결과:
3 x 5 = 15개의 칸이 모두 채워졌습니다.
For문이 아닌 Range를 이용하여 한꺼번에 채우는 방법: ▶▶ 엑셀VBA] 지정한 범위의 셀에, 한꺼번에 자동으로 채우기: Excel Range
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home