質問: 3 end with 「オブジェクトはこのプロパティ、またはメソッドをサポートしていません」 とゆうエラーが出ます。 workbooks("book1").range(area_書式).select もできませんでした。 range(area_書式).select は出来ました。 ブックの指定は出来ないのでしょうか。 どこがいけないでしょうか。よろしくお願いします。 excel2002です。
回答: ano.1です。 それだけが問題じゃないみたいで、一応動く形にしてみましたが、とりあえず動いてるみたいだけど・・・ 何か問題があるようなら、誰か指摘してください。 sub test() workbooks("book1").names.add name:="area_書式", refersto:="='sheet1'!a1:z20" 'referstor1c1は、r1c1形式で指定する場合です with workbooks("book1").sheets("sheet1").range("area_書式") '名前は""でくくる .horizontalalignment = xlcenter .font.size = 16 'フォントのサイズ .formatconditions.delete '今までの条件付き書式削除 .formatconditions.add type:=xlcellvalue, operator:=xlequal, formula1:="あ" '=いらない = は operator:=xlequal で定義している .formatconditions(1).font.colorindex = 3 end with end sub