Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12649 / 13645 ツリー ←次へ | 前へ→

【9404】全てのセルを示すオブジェクトの書き方 ミスターExcel 03/12/3(水) 9:59 質問
【9405】Re:全てのセルを示すオブジェクトの書き方 こうちゃん 03/12/3(水) 10:17 回答
【9407】Re:全てのセルを示すオブジェクトの書き方 つん 03/12/3(水) 10:20 発言
【9408】Re:全てのセルを示すオブジェクトの書き方 通りすがりのもの 03/12/3(水) 11:03 発言
【9413】Re:全てのセルを示すオブジェクトの書き方 ミスターExcel 03/12/3(水) 13:08 お礼
【9414】Re:全てのセルを示すオブジェクトの書き方 INA 03/12/3(水) 13:29 回答

【9404】全てのセルを示すオブジェクトの書き方
質問  ミスターExcel  - 03/12/3(水) 9:59 -

引用なし
パスワード
   特定のシートの全てのセルの色を変更したいと考えています。
ここでは、全てのセルを「色無し」にしたと思い次のように
書きました。

  Worksheets("Sheet1").Cells.Select
  Selection.Interior.ColorIndex = xlNone

しかし、1行目でエラーが出ました。
全てのRangeオブジェクトを示す方法をお教えください。

【9405】Re:全てのセルを示すオブジェクトの書き方
回答  こうちゃん E-MAIL  - 03/12/3(水) 10:17 -

引用なし
パスワード
   ミスターExcelさん、こんにちは

>特定のシートの全てのセルの色を変更したいと考えています。
>ここでは、全てのセルを「色無し」にしたと思い次のように
>書きました。
>
>  Worksheets("Sheet1").Cells.Select
>  Selection.Interior.ColorIndex = xlNone
>
>しかし、1行目でエラーが出ました。
>全てのRangeオブジェクトを示す方法をお教えください。

あってますよ。エラーの原因は違うところじゃないでしょうか。
エラーはどんなんです? Sheet1はありますか?

ちなみにSelectはしないほうがいいかも・・
 Worksheets("Sheet1").Cells.Interior.ColorIndex = xlNone

【9407】Re:全てのセルを示すオブジェクトの書き方
発言  つん E-MAIL  - 03/12/3(水) 10:20 -

引用なし
パスワード
   ミスターExcel さん、おはようございます。

>  Worksheets("Sheet1").Cells.Select
>  Selection.Interior.ColorIndex = xlNone
>
>しかし、1行目でエラーが出ました。
>全てのRangeオブジェクトを示す方法をお教えください。

こちらで試したところエラーは出ませんでした。
どういうエラーが出てるのでしょうか?


ところで、こういう処理はSelectする必要はないです。

  Worksheets("Sheet1").Cells.Interior.ColorIndex = xlNone

これでOK!
この方が、処理も速いと思います。

【9408】Re:全てのセルを示すオブジェクトの書き方
発言  通りすがりのもの  - 03/12/3(水) 11:03 -

引用なし
パスワード
   ▼ミスターExcel さん:
>特定のシートの全てのセルの色を変更したいと考えています。
>ここでは、全てのセルを「色無し」にしたと思い次のように
>書きました。
>
>  Worksheets("Sheet1").Cells.Select
>  Selection.Interior.ColorIndex = xlNone
>
>しかし、1行目でエラーが出ました。
>全てのRangeオブジェクトを示す方法をお教えください。

もしかして、Sheet1がアクティブになっていないときに、上記コードを実行してませんか?

【9413】Re:全てのセルを示すオブジェクトの書き方
お礼  ミスターExcel  - 03/12/3(水) 13:08 -

引用なし
パスワード
   ▼通りすがりのもの さん:
>
>もしかして、Sheet1がアクティブになっていないときに、上記コードを実行してませんか?


確かに、おっしゃるとおりでした。

Worksheets("Sheet1").Select

を最初に追加すると、エラーがでなくなりました。

どうもありがとうございました。

【9414】Re:全てのセルを示すオブジェクトの書き方
回答  INA  - 03/12/3(水) 13:29 -

引用なし
パスワード
   つんさんが

>こういう処理はSelectする必要はないです。

>  Worksheets("Sheet1").Cells.Interior.ColorIndex = xlNone

>これでOK!

と言っていますよ。

12649 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free