05 엄마도 따라 할 수 있는 Excel VBA - 글자 연결하기 '&'
글자 연결하는 법을 배워보자
'&' 이것 하나만 알면 글자를 연결 할 수 있다.
Sub 글자연결하기()
무엇 = Range("A1").Value
MsgBox ("나는" & 무엇 & "(이)다.")
End Sub
주로 for문과 중첩해서 사용할 때 많이 사용한다.
Range를 사용 할 때 A1셀부터 A20셀까지 내용을 가져오거나 바꾸기를 하는 등 작업을 할 때 유용하다.
아래와 같이 A1-20셀을 C1-20까지 복사해보자.
Sub 글자연결하기()
For Row = 1 To 20
Range("C" & Row).Value = Range("A" & Row).ValueNextEnd Sub
완료
요렇게 쓰면 된다.
세로로 하는 것 말고 가로로도 하고 싶을 것이다. 그건
2012/12/28 - [Excel VBA/VBA 배우기] - 03 엄마도 따라 할 수 있는 Excel VBA - 셀 선택하기, 값 가져오기, 바꾸기
에서 'Cells(행, 열)' 함수를 참조하기 바란다.
관련글
2013/01/09 - [Excel VBA/VBA 배우기] - 06 엄마도 따라 할 수 있는 Excel VBA - 변수 선언하기
'Excel VBA > VBA 배우기' 카테고리의 다른 글
| 07 엄마도 따라 할 수 있는 Excel VBA - 메세지 창 띄우기 (2) | 2013.01.09 |
|---|---|
| 06 엄마도 따라 할 수 있는 Excel VBA - 변수 선언하기 (2) | 2013.01.09 |
| 05 엄마도 따라 할 수 있는 Excel VBA - 글자 연결하기 & (13) | 2013.01.09 |
| 04 엄마도 따라 할 수 있는 Excel VBA - for문 if문 사용하기 (0) | 2013.01.08 |
| 03 엄마도 따라 할 수 있는 Excel VBA - 셀 선택하기, 값 가져오기, 바꾸기 (11) | 2012.12.28 |
| 02 엄마도 따라 할 수 있는 Excel VBA - Range 사용하기 (9) | 2012.12.10 |
Range("A" & Row).Value에서
.Value 컴파일 오류 나네요.
다시 설명 부탁해요.
For Row = 1 To 20
Range("A" & Row).Value = Row
Range("C" & Row).Value = Row
Next
에서 Range("A" & Row).Value = Row 이렇게 하면 A1~20 안의 값이 1~20의 수로 채워지지 않을까요?
Temp = Range("A" & Row).Value
Range("C" & Row).Value = Temp 가 더 타당하지는 않을런지..
제가 아니면 뭔가 간과한것이 없는지 궁금해서 올립니다.
작성자님! 본문에 쓰신
Sub 글자연결하기()
For Row = 1 To 20
Range("C" & Row).Value = Range("A" & Row).Value
End Sub
에서
Next가 안들어가도 상관없나요? 저는 next를 안썼다고 컴파일 오류가 나네요!
안녕하세요, 선생님.
항상 초보적인 질문해서 면구스럽습니다.
제일 첫 번째 예제를 실행하려고 하면
MsgBox("나는" &무엇& "(이)다.")
행이 붉은색 표시되면서 컴파일 오류입니다. 필요한 요소: 목록 구분선 또는 )
위와 같은 메시지 박스가 뜹니다.
무엇이 빠진 것인지요?
답변 부탁드립니다.
Range를 사용해서 행을 복사할 수는 없는건가요?
Cells를 이용해서는 복사해봤는데 Range는 자꾸 에러가 뜨네요
형식이 일치하지 않는다고ㅠㅠ
'Rangeを使って行をコピー
For Col = "A" To "J"
Range(Col & "22").Value = Range(Col & "1").Value
Next
어디가 문제인걸까요?
가로로 하는것을 연습하고 싶어서 알려주신 방법을 토대도 스스로 해봤는데 자꾸 오류가 뜹니다ㅜㅜ
Sub 글자연결하기()
For Row = 1 To 20
Range("c" & Row).Value = Range("a" & Row).Value
Next
End Sub
'여기까지는 됩니다. 그러나 이 다음이 안됩니다ㅜㅜ'
Sub 셀에내용추가하기()
행 = 1
열 = 5
Cells("1,5").Select
Selection.Value = 1 To 20
End Sub
보여주신 예제를 가로로 하려면 어떡해야 하나요?