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でテキストボックスの編集を無効にしてユーザーの入力を防ぐにはどうすればよいですか?
最高のオフィス業務効率化ツール
🤖 | Kutools AI Aide:データ分析を革新します。主な機能:Intelligent Execution|コード生成|カスタム数式の作成|データの分析とグラフの生成|Kutools Functionsの呼び出し…… |
人気の機能:重複の検索・ハイライト・重複をマーキング|空白行を削除|データを失わずに列またはセルを統合|丸める…… | |
スーパーLOOKUP:複数条件でのVLookup|複数値でのVLookup|複数シートの検索|ファジーマッチ…… | |
高度なドロップダウンリスト:ドロップダウンリストを素早く作成|連動ドロップダウンリスト|複数選択ドロップダウンリスト…… | |
列マネージャー:指定した数の列を追加 |列の移動 |非表示列の表示/非表示の切替| 範囲&列の比較…… | |
注目の機能:グリッドフォーカス|デザインビュー|強化された数式バー|ワークブック&ワークシートの管理|オートテキスト ライブラリ|日付ピッカー|データの統合 |セルの暗号化/復号化|リストで電子メールを送信|スーパーフィルター|特殊フィルタ(太字/斜体/取り消し線などをフィルター)…… | |
トップ15ツールセット:12 種類のテキストツール(テキストの追加、特定の文字を削除など)|50種類以上のグラフ(ガントチャートなど)|40種類以上の便利な数式(誕生日に基づいて年齢を計算するなど)|19 種類の挿入ツール(QRコードの挿入、パスから画像の挿入など)|12 種類の変換ツール(単語に変換する、通貨変換など)|7種の統合&分割ツール(高度な行のマージ、セルの分割など)|… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減!
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。





- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了(MSI対応)
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得