1514632226 Excelで特定の文字が入っている時のVBA


画像のように、『日本』を含む文字列が入っているセルを探し、
文字列の入っているセル+一つ下のセルを書式設定をするVBAをご教授ください。

・範囲は、D6:Z105
・文字列中の『日本』の位置は不規則
 〇〇日本、〇〇日本〇〇〇、日本〇 であったり
・文字列は複数あり
・書式設定は、太字、フォント色:赤 セル色:オレンジ
※A列~C列には、No、氏名、性別 が2行分が結合されて入っています。
※D以降は結合されてない。

下のセルも選択して処理するコードが見つけられなかったので、
よろしくお願いします。

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2017/12/30 20:10:26
  • 終了:2018/01/05 22:29:31

ベストアンサー

id:a-kuma3 No.1

a-kuma3回答回数4752ベストアンサー獲得回数20392018/01/01 12:02:27

ポイント350pt

こんな感じでどうでしょう。

Sub color_nihon()
    For c = 4 To 26     ' D~Z列
        For r = 5 To 105
            If InStr(Cells(r, c).Value, "日本") <> 0 Then
                Set a = Range(Cells(r, c), Cells(r + 1, c))
                a.Font.Bold = True          ' 太字
                a.Font.Color = -16776961    ' 文字色:赤
                a.Interior.Color = 49407    ' 背景色:オレンジ
            End If
        Next
    Next
End Sub
id:sunfkin22

ばっちりセル2つ分にも色づけできました。いつもありがとうございます!

2018/01/01 15:49:26

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません