質問: マクロで自動チェックをしたい excelで業務上、表を作成します。チェックを目検でしているのですが、マクロでできないものかと思い投稿しました。 (1)特定の列の数字がすべて小数点1桁であること。 (2)特定の文字列が右寄せになっていること。 (3)フォントサイズが11であること。 (4)指定範囲に縦罫線・横罫線がすべてに引けていること (5)指定範囲内のセルで「###」となって文字が表示されていない箇所があるか。 このようなことを、マクロを作ってチェックができないものかと考えています。 ただ、マクロを作成するスキルがないので、サンプルマクロを教えていただけるとありがたいです。 よろしくお願いします。
回答: #2です。 セルの書式設定だけでデータを弄っている訳じゃないと思いますが?? 単純に小数点1桁と言っても、データがそうなのか、見た目がそうなのかは別の問題です。 100.0 と入力しても 100 ですし、100.545 も書式次第では 100.5 にも 101 にもなります。 特定の書式設定になっているか否かを判断する程度なら、、、 sub test() dim r as range for each r in selection if isnumeric(r.value) then if r.numberformat = "#,##0.0;[red]-#,##0.0" then msgbox r.address & " : ok" else msgbox r.address & " : ng " & r.numberformat end if end if next r end sub