質問: xlautomatic end with end if next (申し訳ありません、見苦しさはお許し下さい) の if minus < 0 and minus.interior.colorindex <> 3 then でエラーになります。 型は「数値」で問題ないように思うのですが。 足らなければ指摘下さい、調べて追加します。 宜しくお願いします。
回答: エラーにならずに、正常に動いているようですが... excelは97ですが、osが違うのでなんとも... ・winxp home sp3 ・excel97 sr-2 ・「結果」シートのm5~m59に-100、-90...(略)...-10、0、10...(略)...90、100、-100、-90...って感じに数値を入力。 ・vba側「thisworkbook」にコード貼り付け。以下参照。 option explicit public function test() dim minus for each minus in sheets("結果").range("m5:m59") if minus < 0 and minus.interior.colorindex <> 3 then with minus.interior .colorindex = 3 .pattern = xlsolid .patterncolorindex = xlautomatic end with end if next end function ◎結果:-100~-10が入力されているセルが赤くなる。 ご参考まで。