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」のチェックボックスをオンにし、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

5. 「Alt」＋「Q」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを終了します。

6. ワークシートに戻ったら、「開発」＞「デザインモード」を再度クリックして、デザインモードをオフにしてください。

これで、テキストボックスに数値を入力し、カーソルを外して任意のセルをクリックすると、その数値は自動的にパーセンテージ形式になります。

関連記事：

• Excelでテキストボックスを通貨形式にするにはどうすればよいですか？
• Excelでテキストボックスを選択したときに、そのテキストを自動選択するにはどうすればよいですか？
• Excelで入力中にテキストボックスを自動補完するにはどうすればよいですか？
• Excelで複数のセルのテキストを連結してテキストボックスに表示するにはどうすればよいですか？
• Excelでテキストボックスの編集を無効にしてユーザーの入力を防ぐにはどうすればよいですか？