【Excelネタ】指定した文字の色を変更する | 大阪SEのメモブログ

この記事でやること セルの文字を変更するのではなく、セル内の特定の文字色を自動で変更したいと思い、VBAでプログラムを書きましたので紹介します。 文字をハイライトすることで見やすくなります。 仕様とプログラム内容 セルを範囲選択してからプログラムを実行します。 実行すると以下の順番で入力を求められます。 ①色を変更するテキストを入力（半角スペース区切りで複数入力可） ②変更後の文字色を指定 Sub ChangeTextColor() '色を変更するテキスト Dim ans1 As String ans1 = InputBox("色を変更するテキストを入力してください" & vbCr & "半角スペース区切りで複数入力可能", "テキストの指定", "") If ans1 = "" Then MsgBox "テキストを入力してください" End End If '色の指定 Dim ans2 A