Excel VBA シート非選択で表示形式を設定

質問

Excel2010 VBAで、
ワークシートを選択しない状態で、
このワークシート上のセルの書式設定の表示形式を
数値の少数点以下の桁数1桁
(NumberFormatLocal = "0.0_ ")
に設定することはできるのでしょうか。

例えば、
以下のように、WORKという名前のシート(WS2)があって、
Dim WS2 As Worksheet
Set WS2 = ThisWorkbook.Sheets("WORK")
WS2.Select
WS2.Range("A1").Select
Selection.NumberFormatLocal = "0.0_ "
とすれば、
正しく設定することができるのですが

WS2が選択されていない状態で、
WS2.Range("A1").Select
を実行するとエラーになります。
(実行時エラー'1004'
'Range'メソッドは失敗しました:
'Worksheetオブジェクト')

そこで、NumberFormatLocal を Selection ではなく、
WS2.Range("A1").NumberFormatLocal = "0.0_ "
というような記述ができればよいのですが、
実際にはエラーになります。

シートを選択しなくても、
このシート上にあるセルに NumberFormatLocal を
適用するすることはできるのでしょうか。

回答No.2

takncom · ベストアンサー

＞(1) WS2.Range(Cells(2, 2), Cells(row_no + 3, col_no + 3)).NumberFormatLocal = "0.0_ "
＞というような場合は、
＞「実行時エラー'1004':
'＞Range'メソッドは失敗しました:'Worksheetオブジェクト'」
＞というエラーになってしまいますが、
＞このような場合にはどのようにすればいいのでしょうか。

指定しているシートが違うから エラーとなっています。

WS2.Range
Cells(2, 2)
Cells(row_no + 3, col_no + 3)

上記の参照しているシートが 一番上は WS2になっていますが、
次の二つは 指定してありませんので、どこのシートか不明なためエラーとなるのです。

WS2.Range(Cells(2, 2), Cells(row_no + 3, col_no + 3)).NumberFormatLocal = "0.0_ "

↓

WS2.Range(WS2.Cells(2, 2), WS2.Cells(row_no + 3, col_no + 3)).NumberFormatLocal = "0.0_ "

お礼

なるほど、そういうことでしたか。
大変よく分かりました。
ありがとうございました。

回答No.1

takncom

Dim WS2 As Worksheet
Set WS2 = ThisWorkbook.Sheets("Sheet1")
WS2.Range("A3").NumberFormatLocal = "0.0_ "

補足

申し訳ありません。
質問の例がよくなかったです。

(1) WS2.Range(Cells(2, 2), Cells(row_no + 3, col_no + 3)).NumberFormatLocal = "0.0_ "
を
(2) WS2.Range("A1").NumberFormatLocal = "0.0_ "
というように簡略化しすぎて、
エラーも下記のエラーと混同してしまっていて、
(2)ではエラーは出ていませんでした。

(1) WS2.Range(Cells(2, 2), Cells(row_no + 3, col_no + 3)).NumberFormatLocal = "0.0_ "
というような場合は、
「実行時エラー'1004':
'Range'メソッドは失敗しました:'Worksheetオブジェクト'」
というエラーになってしまいますが、
このような場合にはどのようにすればいいのでしょうか。
セルを1個ずつfor文などでループして設定するしかないのでしょうか。

よろしくお願いします。