ブックを指定して書式設定したい
・フォントサイズ16
・中央揃え
・"あ"とゆう文字なら赤色に設定する
という
書式の設定と条件付き書式の設定がしたいのですが、
エラーが出てうまくいきません。
上記設定をしたいのは名前の定義「Area_書式」をしたセル内「A1:Z20」のみです。
処理上、他のブックも開いているため、書式設定したいブックの名前は指定したいです。
Workbooks("book1").Names.Add Name:="Area_書式", RefersToR1C1:="='sheet1'!A1:Z20"
with Workbooks("book1").Range(Area_書式)
.HorizontalAlignment = xlCenter
.Font = 16
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=あ"
.FormatConditions(1).Font.ColorIndex = 3
end with
「オブジェクトはこのプロパティ、またはメソッドをサポートしていません」
とゆうエラーが出ます。
Workbooks("book1").Range(Area_書式).Select もできませんでした。
Range(Area_書式).Select は出来ました。
ブックの指定は出来ないのでしょうか。
どこがいけないでしょうか。よろしくお願いします。
Excel2002です。
お礼
返事、遅くなりました。 おしゃる様に、Accessのフィールドに書式を付けるのは、無理な話の様ですね。 確認できただけでも、成果でした。 ありがとうございました。