社保という漢字があったらそれだけ赤色にするよ

2024年6月25日 23:14

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

このプロシージャは、Excelのセル内に「社保」という文字列が含まれている場合、その部分だけを赤色にするものです。

Application.ScreenUpdating = False
- 画面の更新を停止します。これにより、処理の途中で画面がチラつくのを防ぎます。
Dim myRng As Range, myStr As String, i As Integer
- 変数の宣言を行います。`myRng` はセル範囲を、`myStr` はセル内の2文字の文字列を、`i` はカウンタを表します。
For Each myRng In Selection
- 選択範囲内の各セルに対して繰り返し処理を行います。
For i = 1 To Len(myRng)
- セル内の文字列を1文字ずつ調べます。 `Len(myRng)` はセル内の文字数を返します。
myStr = Mid(myRng.Value, i, 2)
- セル内の文字列から2文字ずつ取り出します。`i` は開始位置を示します。
If myStr Like "社保" Then
- 2文字が「社保」と一致するかをチェックします。
With myRng.Characters(Start:=i, Length:=2).Font
- 一致した場合、その文字のフォント色を変更します。ここでは赤色（ColorIndex = 3）にします。
Application.ScreenUpdating = True
- 画面の更新を再開します。

このプロシージャを使うことで、Excelの選択範囲内の「社保」という文字列だけを簡単に赤色に変更することができます。

This explanation is created with ChatGPT.

This procedure changes the text color to red if the characters "社保" (Shaho) are found in any cell within the selected range.

Application.ScreenUpdating = False
- Stops screen updating to prevent flickering during the process.
Dim myRng As Range, myStr As String, i As Integer
- Declares variables. `myRng` for cell ranges, `myStr` for two-character strings within the cell, and `i` as a counter.
For Each myRng In Selection
- Iterates through each cell in the selected range.
For i = 1 To Len(myRng)
- Examines each character in the cell. `Len(myRng)` returns the number of characters in the cell.
myStr = Mid(myRng.Value, i, 2)
- Extracts two characters at a time from the cell's text. `i` is the starting position.
If myStr Like "社保" Then
- Checks if the two characters match "社保".
With myRng.Characters(Start:=i, Length:=2).Font
- If matched, changes the font color of those characters. Here, it changes to red (ColorIndex = 3).
Application.ScreenUpdating = True
- Resumes screen updating.

This procedure allows you to easily change the color of the text "社保" to red within any selected range in Excel.

この記事が気に入ったらサポートをしてみませんか？