人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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


1514632226
●拡大する

●質問者: にゃんころね
●カテゴリ:コンピュータ 学習・教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
●350ポイント ベストアンサー

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

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

にゃんころねさんのコメント
ばっちりセル2つ分にも色づけできました。いつもありがとうございます!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ