複数のエクセルファイル内でセルの”文字を赤”にしているのを”黒”にしたい

お世話になっております。

このような事をteratailに伺って大変申し訳無いのですが
複数のエクセル内で文字を赤にしているのを黒にしたいと思っております。

今の所は手動でA1の左上を選択し全部選択し
ホーム＞フォント＞自動としています。

ですが　エクセルファイル数が滅法多いのでヒューマンエラーが怖いのです……

エクセルで複数のセルの文字色を変更出来るアドインがあればと思い
何か情報をご存知な方は紹介頂ければと思い書き込み失礼いたします。

sazi

2021/04/01 00:57

どういった時に赤で残したいのですか？そして、その事に関して、どのようなアドインを求めているのですか？

ma2hiro

2021/04/01 01:36

sazi様コメントありがとうございます。とあるフォルダ内の複数のエクセルファイル内の赤文字の2020だったら2021と変換して黒としたいのですが RelaxToolsになさそうだったので思わずTeratailに表記してしまいました…… 丸投げメモと思われても仕方がないですよね……失礼しました。

sazi

2021/04/01 01:50 編集

条件を指定して、条件に合致した場合の処理を指定できるようなアドインという事ですね。どうせなら、「指定したフォルダ内を検索してファイルを開き、条件に合致したセルの内容を変更する」という処理を処理用のエクセルブックで、VBAで行うようにしても実現できそうですが。

ma2hiro

2021/04/01 07:39

sazi様コメントありがとうございます。「指定したフォルダ内を検索してファイルを開き、条件に合致したセルの内容を変更する」というのを処理用のEXCELにてVBAで実行良さそうですねっそういったアドインがあるのかな？ググっても見つからなかったので思わずTeratailに書いてしまいましたがコメントありがとうございました。

行動規範の内容に同意します

回答3件

CTRL + Hで置換ウィンドウを開き、検索する文字列の書式のフォントタブの色を赤に変更、
置換後の文字列の書式のフォントタブの色を黒に変更し、置換ボタンをクリック。

上記の一連の動作をマクロの記録をすると以下のVBAがマクロとして登録されます。
このマクロをベースに以下の内容でVBAを作ると機械的に一括変換することが出来ます。

１．変換したい複数のエクセルファイルが格納されているフォルダからエクセルファイルの一覧を取得。
２．エクセルファイルを1ファイルずつ開くループとシート毎のループを行う。
３．シート毎のループ内で以下のマクロを実行。　※そのままだと動きません。

Excel
1Sub Macro1()
2'
3' Macro1 Macro
4'
5
6'
7    With Application.FindFormat.Font
8        .Subscript = False
9        .Color = 255
10        .TintAndShade = 0
11    End With
12    With Application.ReplaceFormat.Font
13        .Subscript = False
14        .ThemeColor = 2
15        .TintAndShade = 0
16    End With
17    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
18        xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
19End Sub