禁煙喫煙だけを赤字にするよ

2024年8月11日 15:19

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

このプロシージャは、選択したセル範囲の中から「禁煙」または「喫煙」という文字を見つけ、それを赤い文字に変更するためのものです。具体的には、以下のような流れで動作します。

画面更新の停止: Application.ScreenUpdating = False の部分で、処理中に画面の更新を止めます。これにより、処理速度が向上します。
範囲の指定と変数の初期化: myRng という変数に、選択範囲のセルを1つずつ格納していきます。また、myStr という文字列変数や、i や a などの数字を扱う変数を用意します。
文字の検索: 選択したセルの中で、1文字ずつチェックしながら2文字の組み合わせを取り出し、その組み合わせが「禁煙」または「喫煙」であれば、その部分の文字色を赤にします。これが If myStr Like "禁煙" Or myStr Like "喫煙" Then という条件式で行われています。
文字の色変更: 該当する部分が見つかった場合、myRng.Characters(Start:=i, Length:=2).Font.ColorIndex = 3 のコードで、その文字を赤色に設定します。
画面更新の再開: 最後に Application.ScreenUpdating = True で、画面の更新を再開します。

これにより、指定された文字列が選択範囲の中に含まれている場合、自動的に赤字に変更されます。例えば、セルに「私は禁煙が好きです」と書かれていたら、「禁煙」の部分だけが赤くなります。

ハッシュタグ

#禁煙 #喫煙 #赤字 #文字色変更 #選択範囲 #セル操作 #テキスト操作 #文字列検索 #excel #できること #vba #文字列操作 #画面更新 #色の変更 #初心者向け #条件分岐 #セル内の文字列 #フォントカラー #カスタマイズ #自動化

Explanation in English

Sub Name: 赤字にするよ (Make "Non-smoking" and "Smoking" Red)

This explanation is created using ChatGPT.

This procedure is designed to find the words "禁煙" (non-smoking) or "喫煙" (smoking) within a selected range of cells and change their font color to red. Here’s how it works:

Disable Screen Updating: The line Application.ScreenUpdating = False stops the screen from updating during the process, which helps speed up the execution.
Initialize Range and Variables: The procedure stores the selected range in the variable myRng and sets up other variables like myStr (for the string) and i and a (for numbers).
Search for Specific Text: It checks each cell in the selected range, examining each pair of characters. If the characters match "禁煙" or "喫煙", they are identified for formatting. This is done using the conditional statement If myStr Like "禁煙" Or myStr Like "喫煙" Then.
Change Font Color: If a match is found, the code myRng.Characters(Start:=i, Length:=2).Font.ColorIndex = 3 changes the font color of the matched text to red.
Enable Screen Updating: Finally, Application.ScreenUpdating = True re-enables screen updating to reflect the changes made.

This process allows for automatic red coloring of the specified text within the selected cells. For example, if a cell contains "私は禁煙が好きです" ("I like non-smoking"), the text "禁煙" would be colored red.