No.1ベストアンサー
- 回答日時:
vba処理です
Sub test()
Dim rng As Range, r As Range, i As Long, colInd As Integer
With ActiveSheet
Set rng = .Range("a1:z100") '範囲の設定
txt = "日本" '文字の設定
colInd = 3 '色の設定
For Each r In rng
If InStr(r, txt) > 0 Then _
r.Characters(InStr(r, txt), Len(txt)) _
.Font.ColorIndex = colInd
Next
End With
End Sub
No.3
- 回答日時:
置換で出来ますよ。
編集メニューから置換を選んで、
検索する文字列に「日本」を入れて、
オプションボタンを押して、
置換後の文字列横の書式でフォントを赤に設定してください。
No.5
- 回答日時:
1セルの文字列の、2回目以後出現した日本にも赤色をつけるために
Sub test1()
Dim rng As Range, cl As Range, i As Long
With ActiveSheet
Set rng = .Range("a1:z100") '範囲の設定
txt = InputBox("色をつける文字の指定")
'------
For Each cl In rng
s = 1
While s <= Len(cl)
p = InStr(s, cl, txt, 1)
If p > 0 Then
cl.Characters(p, Len(txt)) _
.Font.Color = vbRed
s = s + p
Else
GoTo p1
End If
Wend
p1:
Next
End With
End Sub
を標準モジュールに貼り付けて実行してみてください。
(例)
日本の文和k
日のもと
美しい日本
日本の文化 日本の気候
大日本帝国の一戦
帝国日本の首都
日本人と日本の心、日本の季節
1月11日本を還す
日本語・日本人
の全ての日本が赤色文字となりました。
1月11日本を返す(Send back the book?)例でも色がついてしまいますが、やむを得ません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) エクセルで文字列と数字が混在する列に書式設定したい。 3 2022/12/19 09:11
- その他(Microsoft Office) Excel2003,2007の作業です 2 2023/05/17 09:58
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) SUMIF関数について 4 2023/06/14 13:13
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelで数式内の文字色を一部だけ変更したい
Excel(エクセル)
-
EXCEL VBA で特定の文字に色をつけるマクロを書きたいのですが
Excel(エクセル)
-
エクセルVBA:リストに登録した単語と一致する文字色のみを、変更する方法
Excel(エクセル)
-
-
4
VBAで特定の文字以降の文字列の色の変更をしたい
Excel(エクセル)
-
5
vba 特定の文字列に色を付けたいです。
Visual Basic(VBA)
-
6
VBAで特定の文字を探して隣のセルに色を付けたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字が白くなる
-
Excelで、空白を表示したい
-
エクセルで文字を含む式に、カ...
-
アクセスで#エラーを表示させ...
-
エクセルで、時間 0:00を表示...
-
エクセル条件付書式で指定の時...
-
Access ¥マークを表示しない
-
小数点以下の数字だけ小さいフ...
-
excelの軸
-
エクセルの書式設定が解除でき...
-
エクセルの表示が ‐(ハイフン...
-
エクセル マイナスは黒文字で、...
-
Excel2007のピボットの行について
-
Excelのテーブルでセルの書式設...
-
EXCELで表以外を空白にしたい
-
エクセルで上付き,下付き文字...
-
エクセル(2003) 「1900/1/0...
-
エクセルでゼロ「0」が「-」に表示
-
エクセルでコメントの書式を一...
-
today関数で日付を全角文字で表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字が白くなる
-
エクセル条件付書式で指定の時...
-
エクセルで文字を含む式に、カ...
-
Excelで、空白を表示したい
-
エクセルで、時間 0:00を表示...
-
アクセスで#エラーを表示させ...
-
エクセル(2003) 「1900/1/0...
-
excelの軸
-
エクセルの書式設定が解除でき...
-
Excelのテーブルでセルの書式設...
-
小数点以下の数字だけ小さいフ...
-
today関数で日付を全角文字で表...
-
エクセル マイナスは黒文字で、...
-
エクセルで合計
-
Access ¥マークを表示しない
-
エクセルでゼロ「0」が「-」に表示
-
Excelで小数部が勝手に繰上げさ...
-
エクセルで上付き,下付き文字...
-
エクセルで「0(ゼロ)」を印...
-
強調の・
おすすめ情報