반응형
이글에서는 vba를 이용해서 셀에 데이터를 넣는 10가지 방법을 알아봅니다.
여기 있는 것만 알아도 대부분의 셀참조가 가능합니다.
VBA 셀참조하기
Cells.Clear
' → 먼저 모든 셀을 지워줍니다.
Range("A1").Value = "1st"
Cells(1, 2).Value = "1st"
' → RANGE 를 사용해서 A1에 1st를 넣고, cells.value 를 사용해서 b1에도 1st를 넣어줍시다.
Range("A2:C2").Value = "2nd"
' → A2,B2,C2 까지 2nd를 넣어줍니다.
Range("A3:C3,E3:F3").Value = "3rd"
'→ A3,B3,C3,, E3,F3,에 3rd를 넣어줍니다.
'pastes only in A4 and C4 but not in B4
Range("A4,C4") = "4th"
'→ A4, C4에 4th를 넣습니다. B4에는 들어가지않습니다.
'pastes from A5 to C5 including B5
Range("A5", "C5") = "5th"
' → A5, B5, C5에 5th 가 들어갑니다.
Range("A" & 6, "C" & 6) = "6th"
' → A6,B6,C6 까지 6th가 들어갑니다.
Range(Cells(6, 1), Cells(6, 3)).Value = "6th"
' → A6,B5,C6 까지 6th가 들어갑니다.
Range("A4:C7").Cells(4, 2).Value = "7th"
' → A4:C7의 범위 안에서 4행, 2열의 값에 7th를 넣어줍니다. (상대참조)
' → range object의 cells property를 사용하였습니다.
Range("A1").Offset(7, 2).Value = "8th"
' → range object의 offset property를 사용해서 A1에서 7행 2열 옮긴 C8에 8th가 들어갑니다.
l
Range("A1:B1").Offset(8, 1).Value = "9th"
' → A1:B1의 범위도 8행 2열 옮긴 범위(B9:C9)에 9th를 넣어줍니다.
Range("이름범위").Value = "10th"
' → 이름관리자를 이용해서 이름이 정의된 범위, 셀에 10th를 넣을수있습니다.
VBA 행, 열 높이 넓이 바꾸기
Rows("1:3").RowHeight = 30
' → 1~3행의 높이가 30이 됩니다.
Range("4:4,6:6,8:8").RowHeight = 30
' → 4, 6, 8 행의 높이가 30이됩니다. 5,7행은 영향을 받지 않습니다.
Columns("E:F").ColumnWidth = 10
' → E~F 행의 넓이가 10이 됩니다.
Range("H:H,J:J").ColumnWidth = 10
' → H,J열의 넓이가 10이 됩니다.
Range(Columns(1), Columns(3)).ColumnWidth = 20
' → A,B,C열의 넓이가 20이 됩니다.
Cells.Columns.AutoFit
' → 모든 열 자동맞춤
반응형
'엑셀' 카테고리의 다른 글
Vba 사용자와 상호 교류, 메세지박스 (0) | 2024.08.12 |
---|---|
VBA의 데이터 타입과 변수 (0) | 2024.08.11 |
엑셀 vba with을 쓰는 여러가지 경우들 (0) | 2024.08.10 |
VBA For Each 구문, 반복 작업을 자동화하기 (0) | 2024.08.09 |
VBA 복사 붙여넣기 3가지 방법 (0) | 2024.07.30 |
댓글