JRという英語があったらそれだけ赤色にするよ

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

このVBAプロシージャは、Excelのセルにあるテキストの中から「JR」という文字列を見つけて、その部分を赤色にするものです。以下に、プロシージャの仕組みを詳しく説明します。

プロシージャの流れ

1. 画面更新の停止

   • `Application.ScreenUpdating = False` は、処理の間、画面の更新を停止して、処理を速くするための設定です。

2. 変数の宣言

   • `Dim myRng As Range`: セル範囲を指定するための変数。

   • `Dim myStr As String`: 文字列を保持するための変数。

   • `Dim i As Integer`: 繰り返し処理のためのカウンター変数。

   • `Dim a As Long`: （このプロシージャでは使われていない変数です）。

3. 選択範囲内の各セルをループ

   • `For Each myRng In Selection`: 選択されたセル範囲内の各セルに対して繰り返し処理を行います。

4. セル内の文字列を2文字ずつチェック

   • `For i = 1 To Len(myRng)`: セル内の文字列の長さ分だけループします。

   • `myStr = Mid(myRng.Value, i, 2)`: セル内の文字列から2文字ずつ取り出します。

5. 「JR」を見つけて赤色にする

   • `If myStr Like "JR" Then`: 取り出した2文字が「JR」であるかをチェックします。

   • `With myRng.Characters(Start:=i, Length:=2).Font`: 該当部分のフォントの色を設定します。

   • `.ColorIndex = 3`: フォントの色を赤色に設定します（3が赤色のインデックスです）。

6. 画面更新の再開

   • `Application.ScreenUpdating = True`: 処理が終わったら、画面の更新を再開します。

まとめ

このプロシージャは、選択したセル範囲の中から「JR」という文字列を見つけ出して、その部分を赤色に変更します。プログラミング初心者でも理解しやすいシンプルな処理ですが、Excelの操作を自動化する際にとても役立ちます。

---

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

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

ハッシュタグ

#excel #できること #vba #セル操作 #文字列操作 #色変更 #選択範囲 #条件付き書式 #自動化 #初心者向け #文字列検索 #範囲指定 #フォント設定 #色設定 #プログラミング #マクロ #エクセル #データ処理 #作業効率化 #VBA入門

---

JRという英語があったらそれだけ赤色にするよ

This explanation is created with ChatGPT.

This VBA procedure finds the string "JR" in the text of an Excel cell and changes its color to red. Here's a detailed explanation of how the procedure works.

Procedure Flow

1. Stopping Screen Updates

   • `Application.ScreenUpdating = False` stops screen updates during the process to speed up the operation.

2. Variable Declarations

   • `Dim myRng As Range`: Variable for specifying the cell range.

   • `Dim myStr As String`: Variable to hold the string.

   • `Dim i As Integer`: Counter variable for the loop.

   • `Dim a As Long`: (This variable is not used in this procedure).

3. Loop Through Each Cell in the Selected Range

   • `For Each myRng In Selection`: Loops through each cell in the selected range.

4. Check the String in the Cell Two Characters at a Time

   • `For i = 1 To Len(myRng)`: Loops through the string in the cell.

   • `myStr = Mid(myRng.Value, i, 2)`: Extracts the string two characters at a time.

5. Find "JR" and Change its Color to Red

   • `If myStr Like "JR" Then`: Checks if the extracted two characters are "JR".

   • `With myRng.Characters(Start:=i, Length:=2).Font`: Sets the font color for the matching part.

   • `.ColorIndex = 3`: Sets the font color to red (3 is the index for red).

6. Resuming Screen Updates

   • `Application.ScreenUpdating = True`: Resumes screen updates after the process is complete.

Summary

This procedure finds the string "JR" in the selected cell range and changes its color to red. It's a simple process that is easy to understand even for programming beginners, and it is very useful for automating Excel operations.

---

• Excel VBA Reference | Microsoft Learn

• YouTube Video of this Article

Hashtags

#excel #できること #vba #celloperations #stringoperations #colorchange #selectedrange #conditionalformatting #automation #forbeginners #stringsearch #rangespecification #fontsettings #colorsettings #programming #macro #excel #dataprocessing #workefficiency #VBAintroduction