Excelで特定の文字が入っている時のVBA
画像のように、『日本』を含む文字列が入っているセルを探し、
文字列の入っているセル＋一つ下のセルを書式設定をするVBAをご教授ください。
・範囲は、D6：Z105
・文字列中の『日本』の位置は不規則
〇〇日本、〇〇日本〇〇〇、日本〇 であったり
・文字列は複数あり
・書式設定は、太字、フォント色：赤 セル色：オレンジ
※A列～C列には、No、氏名、性別 が2行分が結合されて入っています。
※D以降は結合されてない。
下のセルも選択して処理するコードが見つけられなかったので、
よろしくお願いします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
a-kuma3
満足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
-
その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2017-12-30 20:10:26
- 終了日時
- 2018-01-05 22:29:31
- 回答条件
- 1人1回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
ヤフーを検索していたら、たまに写真…つまり、サムネイルが表示されている事があります。知恵袋の履歴をそ…
igorsan
-
学芸会の動画を編集しています。8K解像度舞台全体を撮影しています。この動画素材で動画を切り出して編集し…
mai_mai_mail
1
-
プラ容器の問題 醤油、蜂蜜、油脂類などのプラ容器が多いですが、プラ材質の化学有害物質が内容物に汚染す…
iquestion
2
-
思春期で親がうざいときどうすればいいですか。
匿名質問者4
1
-
二重整形って最小何歳でできるんですか匿名質問者111