여러 셀의 텍스트를 Excel의 텍스트 상자에 연결하는 방법은 무엇입니까?

수식을 사용하여 여러 셀의 텍스트를 새 셀로 쉽게 연결할 수 있습니다. 하지만 여러 셀 값을 텍스트 상자 (ActiveX 컨트롤)로 연결하는 방법을 알고 있습니까? 실제로이 기사의 방법은이를 달성하는 데 도움이 될 수 있습니다.

VBA 코드를 사용하여 여러 셀의 텍스트를 텍스트 상자에 연결

VBA 코드를 사용하여 여러 셀의 텍스트를 텍스트 상자에 연결

놀랄 만한! Chrome, Firefox 및 Safari와 같은 Excel에서 효율적인 탭 사용!

시간의 50 %를 절약하고 매일 수천 번의 마우스 클릭을 줄이십시오!

아래 방법은 여러 셀의 텍스트를 Excel의 텍스트 상자로 연결하는 데 도움이 될 수 있습니다.

1. 여러 셀을 연결하려는 워크 시트에서을 클릭하여 텍스트 상자를 삽입합니다. 개발자 > 끼워 넣다 > 텍스트 상자 (ActiveX 컨트롤). 스크린 샷보기 :

2. 그런 다음 개발자 > 끼워 넣다 > 명령 단추 (ActiveX 컨트롤) 워크 시트에 명령 단추를 삽입합니다.

3. 삽입 된 명령 단추를 마우스 오른쪽 단추로 클릭 한 다음 코드보기 상황에 맞는 메뉴에서. 스크린 샷보기 :

4. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 원래 코드를 아래 VBA 코드로 바꾸십시오.

VBA 코드 : 여러 셀의 텍스트를 텍스트 상자에 연결

Private Sub CommandButton1_Click()
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    On Error Resume Next
    Set xRg = Application.Selection
    If xRg Is Nothing Then Exit Sub
    With Me.TextBox1
        .Text = vbNullString
        .MultiLine = True
        .WordWrap = True
        For Each xCell In xRg
            xStr = xCell.Value
            .Text = Me.TextBox1 & xStr & Chr(10)
        Next
    End With
End Sub

주의 사항: CommandButton1은 삽입 된 명령 단추의 이름입니다. 필요에 따라 변경하십시오.

5. 클릭하여 디자인 모드를 끕니다. 개발자 > 디자인 모드.

6. 텍스트를 텍스트 상자에 연결하는 데 필요한 셀을 선택한 다음 명령 단추를 클릭합니다. 그런 다음 선택한 모든 셀의 내용이 아래 스크린 샷과 같이 즉시 텍스트 상자에 연결됩니다.

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.