見出し画像

店舗名の末尾に店があったら赤字にするよ

makotoym

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

このプログラムは、Excelのセルに入力された店舗名の文字列を調べ、店舗名の最後の文字が「店」で終わっている場合、その文字「店」を赤字にするものです。手動で編集する手間を省き、多くのデータを一括で処理する際に便利です。

処理の仕組みを簡単に説明します

  1. 選択範囲の取得
    このコードでは、あらかじめ選択されているセル範囲に対して処理を行います。
    Selectionという部分が、その選択範囲を指しています。

  2. 店舗名の最後の文字を確認
    各セルの値から、最後の1文字を取得します。
    この部分は、Right(myRng.Value, 1) で実現しています。

  3. 条件に合う文字の確認
    最後の1文字が「店」と一致するかどうかを確認します。
    一致する場合は、セル内のその文字だけを赤字にします。

  4. 赤字にする方法
    最後の文字だけを赤字にするには、Charactersという機能を使っています。これにより、セル全体ではなく、特定の文字だけの書式を変更できます。

  5. 画面更新の停止
    処理中に画面がチラチラしないよう、Application.ScreenUpdatingをFalseにして画面更新を停止します。最後にTrueに戻すことで、通常の状態に戻しています。

使用時の注意点

  • このコードを実行する前に、必ずセルを選択してください。

  • 処理対象は、セルに入力された文字列のみです。数字や空白セルは無視されます。

  • 「店」以外の文字には影響を与えません。

リンク

Sub 店舗名の末尾に店があったら赤字にするよ()
    Application.ScreenUpdating = False
    On Error Resume Next
    Dim myRng As Range
    Dim myStr As String
    For Each myRng In Selection
                myStr = Right(myRng.Value, 1)
                '_済みがあったら書式変更
                If myStr Like "店" Then
                    With myRng.Characters(Start:=Len(myRng.Value), Length:=1).Font
                        .ColorIndex = 3
                    End With
                End If
    Next myRng
    Application.ScreenUpdating = True
End Sub

関連するキーワード

#excel #できること #vba #赤字変更 #店舗名 #文字列操作 #セル書式 #自動化 #効率化 #条件付き書式 #プログラミング初心者 #エクセル便利機能 #データ管理 #文字列判定 #セル範囲 #forループ #エラー処理 #フォント変更 #選択範囲

English Translation

Change Last Character "店" to Red Font in Store Names

This explanation was created using ChatGPT.

This program scans the text in selected Excel cells and changes the font color of the last character "店" to red if it appears. It's handy for automating repetitive tasks when handling large amounts of data.

Step-by-Step Explanation

  1. Retrieve the Selected Range
    The code processes only the cells that have been preselected.
    Selection refers to this range of cells.

  2. Check the Last Character
    For each cell, the code identifies the last character of the text using Right(myRng.Value, 1).

  3. Condition Matching
    It checks if the last character matches "店". If it does, the code changes the font color of that specific character to red.

  4. Making the Text Red
    The Characters feature is used to target and format only the specific character, rather than the entire cell.

  5. Screen Updating Suspension
    To prevent screen flicker during execution, Application.ScreenUpdating is set to False during the process and reset to True afterward.

Usage Notes

  • Always select the relevant cells before running the code.

  • Only text content in the cells is processed; numbers and blank cells are ignored.

  • The program doesn’t affect characters other than "店."

Links

Related Keywords

#excel #capabilities #vba #redtext #storename #stringoperations #cellformatting #automation #efficiency #conditionalformatting #programmingbasics #exceltools #datamanagement #stringcomparison #cellrange #loop #errorhandling #fontcolorchange #selection

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