郵便番号の書式が違うセルを青色にするよ

この説明は、ChatGPTで作成しています。

このプロシージャは、Excelのシート上で選択されているセル範囲内の郵便番号の書式をチェックし、書式が違うセルを青色に変更するものです。具体的には、「〒123-4567」という形式の郵便番号をチェックします。

プロシージャの仕組み

1. 画面更新の停止
   ```vba
   Application.ScreenUpdating = False
   ```
   画面の更新を停止して、処理速度を向上させます。

2. 正規表現オブジェクトの作成
   ```vba
   Dim reg
   Set reg = CreateObject("VBScript.RegExp")
   ```
   正規表現を使って郵便番号の書式をチェックするためのオブジェクトを作成します。

3. 正規表現パターンの設定
   ```vba
   With reg
   .Pattern = "^〒\d{3}-\d{4}$"
   .IgnoreCase = True
   .Global = True
   End With
   ```
   「〒123-4567」という書式をチェックするための正規表現パターンを設定します。ここで、パターンは「〒」から始まり、3桁の数字、ハイフン、4桁の数字という形式です。

4. 選択範囲内のセルをチェック
   ```vba
   For Each myRng In Selection
   txt = myRng.Value
   If Not reg.test(txt) Then
   myRng.Interior.ColorIndex = 5
   End If
   Next myRng
   ```
   選択範囲内の各セルについて、値が正規表現パターンに一致するかどうかをチェックします。一致しない場合、そのセルの背景色を青色（ColorIndex = 5）に変更します。

5. 画面更新の再開
   ```vba
   Application.ScreenUpdating = True
   ```
   画面の更新を再開します。

このようにして、このプロシージャは選択範囲内のセルの郵便番号の書式をチェックし、書式が違うセルを見つけやすくします。

キーワード

#excel #できること #vba #郵便番号 #正規表現 #書式チェック #セルの色 #色変更 #条件付き書式 #オートメーション #プログラミング #初心者向け #効率化 #データ検証 #エクセルマクロ #セル範囲 #エクセル操作 #背景色変更 #データチェック #エクセルVBA

---

Format Cells with Incorrect Postal Code to Blue

This explanation is created using ChatGPT.

This procedure checks the format of postal codes within the selected cell range on an Excel sheet and changes the color of cells with incorrect formats to blue. Specifically, it checks for the format "〒123-4567".

How the Procedure Works

1. Stop Screen Updating
   ```vba
   Application.ScreenUpdating = False
   ```
   This stops the screen from updating to speed up the process.

2. Create Regular Expression Object
   ```vba
   Dim reg
   Set reg = CreateObject("VBScript.RegExp")
   ```
   A regular expression object is created to check the postal code format.

3. Set Regular Expression Pattern
   ```vba
   With reg
   .Pattern = "^〒\d{3}-\d{4}$"
   .IgnoreCase = True
   .Global = True
   End With
   ```
   The pattern for checking the format "〒123-4567" is set. The pattern starts with "〒", followed by 3 digits, a hyphen, and 4 digits.

4. Check Each Cell in the Selection
   ```vba
   For Each myRng In Selection
   txt = myRng.Value
   If Not reg.test(txt) Then
   myRng.Interior.ColorIndex = 5
   End If
   Next myRng
   ```
   For each cell in the selected range, it checks if the value matches the regular expression pattern. If it does not match, the cell's background color is changed to blue (ColorIndex = 5).

5. Resume Screen Updating
   ```vba
   Application.ScreenUpdating = True
   ```
   The screen updating is resumed.

This procedure helps to easily identify cells with incorrect postal code formats within the selected range.

Keywords

#excel #できること #vba #postalcode #regex #formatcheck #cellcolor #colorchange #conditionalformatting #automation #programming #forbeginners #efficiency #datavalidation #excelmacro #cellrange #exceloperations #backgroundcolorchange #datacheck #excelvba

---

• Excel VBA リファレンス | Microsoft Learn

• この記事のYouTube動画はこちら