728x90
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).Value
Next
End Sub
modified at july 6 2013
완료
요렇게 쓰면 됩니다.
세로로 하는 것 말고 가로로도 하고 싶다면 아래 포스트를 참고 부탁 드려요.
2012/12/28 - [Excel VBA/VBA 배우기] - 03 엄마도 따라 할 수 있는 Excel VBA - 셀 선택하기, 값 가져오기, 바꾸기
'Cells(행, 열)' 함수를 참조 하시면 됩니다.
관련글
2013/01/09 - [Excel VBA/VBA 배우기] - 06 엄마도 따라 할 수 있는 Excel VBA - 변수 선언하기
728x90
'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 - 셀 선택하기, 값 가져오기, 바꾸기 (16) | 2012.12.28 |
02 엄마도 따라 할 수 있는 Excel VBA - Range 사용하기, 버튼추가 (14) | 2012.12.10 |
Range("A" & Row).Value에서
.Value 컴파일 오류 나네요.
다시 설명 부탁해요.
제보 감사합니다. 수정 해드린 코드로 다시 해보시기 바랍니다.
Range("A" & Row).Value = Row
Range("C" & Row).Value = Row
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
어디가 문제인걸까요?
For col = 1 To 10
columnAddress = Chr(64 + col)
Range(columnAddress & "1").Value = columnAddress
Range(columnAddress & "22").Value = Range(columnAddress & "1").Value & " copied"
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
보여주신 예제를 가로로 하려면 어떡해야 하나요?
Cells("1,5").Select 여기서 ""를 빼고 해보세요.