Excel에서 텍스트 상자를 백분율 형식으로 지정하는 방법은 무엇입니까?

이전 기사에서 Excel에서 텍스트 상자에 있는 숫자를 통화 형식으로 지정하는 방법을 다뤘습니다. 이번에는 텍스트 상자에 있는 숫자를 백분율로 형식화하는 방법을 살펴보겠습니다. VBA를 사용하면 텍스트 상자에 입력된 모든 숫자가 자동으로 백분율 형식으로 지정되어 데이터 표현의 일관성을 유지할 수 있습니다.

VBA 코드를 사용하여 텍스트 상자 항목을 백분율로 형식화하기

VBA 코드를 사용하여 텍스트 상자 항목을 백분율로 형식화하기

다음 단계에 따라 VBA 코드를 사용하여 텍스트 상자를 백분율로 형식화하세요.

1. "개발 도구" > "삽입" > "텍스트 상자 (ActiveX 컨트롤)"을 클릭하여 워크시트에 텍스트 상자를 삽입합니다. 스크린샷 보기:

2. 텍스트 상자를 마우스 오른쪽 버튼으로 클릭한 다음, 컨텍스트 메뉴에서 "코드 보기"를 클릭합니다.

3. 열리는 "Microsoft Visual Basic for Applications" 창에서 코드 창의 원래 코드를 아래 VBA 코드로 바꿉니다.

VBA 코드: Excel에서 텍스트 상자를 백분율로 형식화하기

Private Sub TextBox1_LostFocus()
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xText As String
    Dim xReplace As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xText = Me.TextBox1.Text
    xText = Replace(xText, "%", "")
    With xReg
        .Global = True
        .Pattern = "([^0-9]+\d+)|(\d{1,})"
        Set xMatches = .Execute(xText)
        For Each xMatch In xMatches
            xReplace = xReplace & xMatch.Value & "%"
        Next
    End With
    xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
    Me.TextBox1.Text = xText
    Application.ScreenUpdating = True
End Sub

참고: "TextBox1"을 사용 중인 텍스트 상자의 이름으로 바꾸세요.

4. "도구" > "참조"를 클릭합니다. 그런 다음 "참조 - VBAProject" 대화 상자에서 "Microsoft VBScript Regular Expressions" 상자를 선택하고 "확인" 버튼을 클릭합니다. 스크린샷 보기:

5. "Alt" + "Q" 키를 눌러 "Microsoft Visual Basic for Applications" 창을 종료합니다.

6. 워크시트로 돌아오면 "개발 도구" > "디자인 모드"를 다시 클릭하여 디자인 모드를 끕니다.

이제부터는 텍스트 상자에 숫자를 입력하고 커서를 밖으로 이동하여 아무 셀이나 클릭하면 숫자가 자동으로 백분율 형식으로 지정됩니다.

관련 기사:

• Excel에서 텍스트 상자를 통화 형식으로 지정하는 방법은 무엇입니까?
• Excel에서 텍스트 상자가 선택되었을 때 자동으로 텍스트를 선택하려면 어떻게 해야 합니까?
• Excel에서 입력 시 텍스트 상자를 자동 완성하려면 어떻게 해야 합니까?
• Excel에서 여러 셀의 텍스트를 하나의 텍스트 상자로 결합하려면 어떻게 해야 합니까?
• Excel에서 사용자 입력을 방지하기 위해 텍스트 상자에서 편집을 비활성화하려면 어떻게 해야 합니까?