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

이전 기사에서는 텍스트 상자의 숫자를 Excel의 통화로 서식 지정하는 VBA 방법에 대해 설명했습니다. 이 기사에서는 VBA 방법을 사용하여 Excel에서 텍스트 상자의 숫자를 백분율로 서식 지정하는 방법에 대해서도 설명합니다.

VBA 코드를 사용하여 텍스트 상자를 백분율로 서식 지정

---

VBA 코드를 사용하여 텍스트 상자를 백분율로 서식 지정

VBA 코드를 사용하여 텍스트 상자를 백분율로 서식 지정하려면 다음과 같이하십시오.

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

2. 텍스트 상자를 마우스 오른쪽 단추로 클릭 한 다음 코드보기 컨텍스트 메뉴에서.

3. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창에서 코드 창의 원래 코드를 아래 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. 클릭 도구 > 참조. 그런 다음 Microsoft VBScript 정규식 상자에 참조 – VBAProject 대화 상자를 클릭하고 OK 단추. 스크린 샷보기 :

5. 누르세요 다른 + Q 나가는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창.

6. 워크 시트로 돌아 오면 개발자 > 디자인 모드 다시 디자인 모드를 끕니다.

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

---

관련 기사 :

• Excel에서 텍스트 상자를 통화로 서식을 지정하는 방법은 무엇입니까?
• Excel에서 선택한 텍스트 상자의 텍스트를 자동으로 선택하는 방법은 무엇입니까?
• Excel에서 입력 할 때 텍스트 상자를 자동 완성하는 방법은 무엇입니까?
• 여러 셀의 텍스트를 Excel의 텍스트 상자에 연결하는 방법은 무엇입니까?
• Excel에서 사용자 입력을 방지하기 위해 텍스트 상자에서 편집을 비활성화하는 방법은 무엇입니까?