글 수 65
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
a☆출처 : http://www.excellove.com/board/bbs/zboard.php?id=faq&page=2&sn1=&divpage=1&sn=off&ss=on&sc=on&select_arrange=headnum&desc=asc&no=40
추가 정보 1. 만약 여러분이 유저폼에 있는 텍스트 상자의 속성을 멀티라인으로 입력하도록 하고, 유저폼의 텍스트 상자에 있는 데이터를 워크시트에 입력하도록 한다면, 두 줄로 입력이 되긴 하지만, 팔분 음표와 같은 이상한 문자가 함께 입력되는 볼 수 있을 것입니다.
이것은 유저폼의 텍스트박스에서 사용하는 줄바꿈 기호가 vbCrLf(캐리지리턴과 라인피드를 동시에 사용)이기 때문입니다.
자, VBA에서 유저폼의 텍스트 박스에 있는 여러줄의 내용을 입력할 때, 엑셀에서 사용하지 않은 캐리지리턴 문자를 제거하려면 어떻게 해야 할까요?
Private Sub CommandButton1_Click()
Range("A1").Value = Application.WorksheetFunction.Substitute(Me.TextBox1.Value, vbCrLf, vbLf)
End Sub
와 같이 엑셀 내장함수를 이용해 캐리지리턴과 라인피드를 라인피드만으로 바꾸어 입력하도록 하거나
아래와 같이 바꾸기 기능을 이용해 바꾸실 수도 있을 것입니다.
With Range("A1")
.Value = Me.TextBox1.Value
.Replace what:=vbCrLf, replacement:=vbLf, lookat:=xlPart
End With
추가 정보 2. 만약, 줄바꿈 문자를 제거하는 것이 아니라 수식을 이용해 줄바꿈을 하려면 어떻게 할까요?
예를 들어, A1셀과 B1셀의 문자를 연결하되, 중간에 줄바꿈을 하고 싶다면
=A1 & char(10) & B1
이라고 입력한 뒤, 셀서식에서 맞춤 탭을 선택하고, 텍스트 줄바꿈에 체크하시면 됩니다.
추가 정보 1. 만약 여러분이 유저폼에 있는 텍스트 상자의 속성을 멀티라인으로 입력하도록 하고, 유저폼의 텍스트 상자에 있는 데이터를 워크시트에 입력하도록 한다면, 두 줄로 입력이 되긴 하지만, 팔분 음표와 같은 이상한 문자가 함께 입력되는 볼 수 있을 것입니다.
이것은 유저폼의 텍스트박스에서 사용하는 줄바꿈 기호가 vbCrLf(캐리지리턴과 라인피드를 동시에 사용)이기 때문입니다.
자, VBA에서 유저폼의 텍스트 박스에 있는 여러줄의 내용을 입력할 때, 엑셀에서 사용하지 않은 캐리지리턴 문자를 제거하려면 어떻게 해야 할까요?
Private Sub CommandButton1_Click()
Range("A1").Value = Application.WorksheetFunction.Substitute(Me.TextBox1.Value, vbCrLf, vbLf)
End Sub
와 같이 엑셀 내장함수를 이용해 캐리지리턴과 라인피드를 라인피드만으로 바꾸어 입력하도록 하거나
아래와 같이 바꾸기 기능을 이용해 바꾸실 수도 있을 것입니다.
With Range("A1")
.Value = Me.TextBox1.Value
.Replace what:=vbCrLf, replacement:=vbLf, lookat:=xlPart
End With
추가 정보 2. 만약, 줄바꿈 문자를 제거하는 것이 아니라 수식을 이용해 줄바꿈을 하려면 어떻게 할까요?
예를 들어, A1셀과 B1셀의 문자를 연결하되, 중간에 줄바꿈을 하고 싶다면
=A1 & char(10) & B1
이라고 입력한 뒤, 셀서식에서 맞춤 탭을 선택하고, 텍스트 줄바꿈에 체크하시면 됩니다.
