[[20240727134719]]　『セル内の文字列の末尾の文字色を変更』（ネットカフェ）　ページの最後に飛ぶ

『セル内の文字列の末尾の文字色を変更』（ネットカフェ）

Sub Sample1()

  With Cells(2, 2)
      '最後の文字(A)に二つ手前(V)から3文字指定し赤色を設定
      .Characters(Len(.Value) - 2, 3).Font.Color = RGB(255, 0, 0)
  End With

End Sub

このマクロはB列2行目のみですが、
選択セルを選んだ時、全部に発生できるように
変更をお願いします

＜使用 Excel：Excel2007、使用 OS：Windows10 ＞

例えば、（適当）

 Sub Sample1()
    Dim cell As Range

    ' 選択したセル全てに対して処理を行う
    For Each cell In Selection
        With cell
            ' セルの値が3文字以上の場合のみ処理を行う
            If Len(.Value) >= 3 Then
                ' 最後の文字(A)に二つ手前(V)から3文字指定し赤色を設定
                .Characters(Len(.Value) - 2, 3).Font.Color = RGB(255, 0, 0)
            End If
        End With
    Next cell
 End Sub

（暇な人） 2024/07/27(土) 14:02:17

動作OKです。
どうもありがとうございました。
（ネットカフェ） 2024/07/30(火) 22:52:13

コメント返信：

[ 一覧(最新更新順) ]

[[20240727134719]] 『セル内の文字列の末尾の文字色を変更』（ネットカフェ） ページの最後に飛ぶ

[[20240727134719]]　『セル内の文字列の末尾の文字色を変更』（ネットカフェ）　ページの最後に飛ぶ