アクセスの車分数だけ隣列にだすよ

2024年6月19日 22:38

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

このプロシージャは、Excelのセルに記載された「車○○分」というテキストから数字部分を抽出し、隣の列に表示するものです。

画面更新を停止
- プロシージャの最初と最後で `Application.ScreenUpdating` を使って画面の更新を停止・再開します。これにより、処理中の画面ちらつきを防ぎます。
正規表現オブジェクトの作成
- `CreateObject("VBScript.RegExp")` を使用して、正規表現を扱うオブジェクトを作成します。このオブジェクトを使って、「車○○分」の形式に一致するテキストを検索します。
正規表現の設定
- `Pattern` プロパティに「車\d.*分」というパターンを設定します。このパターンは「車」で始まり、その後に数字が続き、「分」で終わるテキストに一致します。
セルのループ処理
- `For Each myRng In Selection` を使って、選択されたセル範囲を順番に処理します。
- 各セルの値を `txt` に代入し、正規表現を使ってマッチするテキストを検索します。
マッチしたテキストの処理
- `Replace` 関数を使って、「車」と「分」を取り除き、数字部分だけを抽出します。
- 抽出した数字を隣のセルに書き込みます。
エラーハンドリング
- `On Error Resume Next` により、エラーが発生しても処理を続行します。

以下は関連リンクとハッシュタグです：

This explanation is created by ChatGPT.

This procedure extracts the numeric part from the text "車○○分" in Excel cells and displays it in the adjacent column.

Stop Screen Updating
- The `Application.ScreenUpdating` is used at the beginning and end of the procedure to stop and resume screen updates, preventing flickering during processing.
Create Regular Expression Object
- `CreateObject("VBScript.RegExp")` is used to create an object for handling regular expressions, which is then used to search for text matching the pattern "車○○分".
Set Regular Expression Pattern
- The `Pattern` property is set to "車\d.*分", which matches text starting with "車", followed by digits, and ending with "分".
Loop Through Selected Cells
- The `For Each myRng In Selection` loops through the selected cell range.
- The value of each cell is assigned to `txt`, and the regular expression is used to find matching text.
Process Matched Text
- The `Replace` function removes "車" and "分", extracting only the numeric part.
- The extracted number is written to the adjacent cell.
Error Handling
- `On Error Resume Next` allows the procedure to continue even if an error occurs.

Below are the related links and hashtags:

いいなと思ったら応援しよう！