質問: Excelで特定の文字が入っている時のVBA 画像のように、『日本』を含む文字列が入っているセルを探し、 文字列の入っているセル+一つ下のセルを書式設定をするVBAをご教授ください。 ・範囲は、D6:Z105 ・文字列中の『日本』の位置は不規則 〇〇日本、〇〇日本〇〇〇、日本〇 であったり ・文字列は複数あり ・書式設定は、太字、フォント色:赤 セル色:オレンジ ※A列~C列には、No、氏名、性別 が2行分が結合されて入っています。 ※D以降は結合されてない。 下のセルも選択して処理するコードが見つけられなかったので、 よろしくお願いします。
回答: こんな感じでどうでしょう。 ``` 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 ```