質問: excelで突然文字の色が変わり、下線がついた excel2007で作成したxlsファイルをある日開くと、黒い文字だった箇所がすべて紫になっていて、下線がついていました。(ハイパーリンクにはなっていない) もともと文字の色が黒以外だった箇所は大丈夫でした。 書式設定を見てみると、文字の色が紫になっていて、下線がonになっていました。 元に戻したいのですが、非常に大きな量でして、もともと赤字や青字だった箇所は そのままにしておきたいため、一気に書式変更することができず、困っています。 書式が変わってしまったセルのみ選択し、書式を元に戻していくと、何時間もかかってしまいそうです・・・ これは何が原因でしょうか?直したいのですが方法はありますでしょうか?よろしくお願いいたします。
回答: 紫になったたくさんのセルのうちのどこか1つのセルを選択した状態で、以下のマクロを実行すればよいです。 sub test() dim ci as long ci = activecell.font.colorindex dim t as range for each t in activesheet.usedrange if t.font.colorindex = ci then t.font.colorindex = 0 t.font.underline = xlunderlinestylenone end if next end sub マクロを実行したときに選択されていたセルのフォントの色と同じ色のフォントのセルに対して、フォントの色を黒にしてアンダーラインを消すマクロです。