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

これでＯＫ！
この方が、処理も速いと思います。
【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

>これでＯＫ！

と言っていますよ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12649 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free