Excel에서 텍스트 상자 안의 텍스트를 셀 내용으로 변환하는 방법은 무엇입니까?

워크시트에 여러 텍스트 상자가 있고 아래 스크린샷과 같이 텍스트 상자 안의 내용을 각각 셀로 변환하려는 경우, Excel에서 하나씩 입력하는 방법 외에 이 작업을 빠르게 해결할 수 있는 방법이 있을까요? 이 문서에서는 이를 돕기 위한 매크로를 소개합니다.

VBA를 사용하여 텍스트 상자 내용을 셀로 변환하기

VBA를 사용하여 텍스트 상자 내용을 셀로 변환하기

매크로 코드 외에는 텍스트 상자를 셀 내용으로 신속하게 변환할 수 있는 특별한 방법은 없습니다.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 활성화합니다.

2. 삽입 > 모듈을 클릭하고 아래 코드를 모듈 스크립트에 붙여넣습니다.

VBA: 텍스트 상자를 셀로 변환하기

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

3. 실행하기 위해 F5 키를 누릅니다. 그러면 텍스트 상자 내용을 내보낼 셀을 선택하라는 대화상자가 나타납니다. 스크린샷 참조:

4. 클릭하세요 확인. 이제 모든 텍스트 상자 내용이 셀 내용으로 변환되었습니다.

팁: 위의 VBA는 실행 후 텍스트 상자를 삭제합니다. 텍스트 상자를 유지하려면 코드 xTxtBox.Delete를 'xTxtBox.Delete로 변경하세요.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!