Excel VBA質問箱 IV

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

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


19623 / 76735 ←次へ | 前へ→

【62541】Re:IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです
発言  つん  - 09/7/29(水) 13:21 -

引用なし
パスワード
   どもども

>
>On Error GoTo 0はエラーが発生した処理を中止して次の処理を実行する。

中止して・・・というか、無視して?
というか、
「On Error Resume Next」が、エラーが発生した場合もその次から処理を続行する・・・という命令です。

'==============================================
ヘルプより
On Error Resume Next
実行時エラーが発生してもプログラムを中断せず、エラーが発生したステートメントの次のステートメントから実行を継続します。オブジェクトを操作する場合は、On Error GoTo ステートメントではなく、このステートメントを使ってください。

On Error GoTo 0
現在のプロシージャに含まれる使用可能なエラー処理ルーチンを無効にします。
'==============================================


>ですから、次のif文を実行するはず、と考えました。

うんうん。

>そしてデバッグしたら、実行エラー:オブジェクトが必要です、と出て・・。

デバッグしたら・・の意味がいまいちわからんのですが・・・
(デバッグって「バグ」を取り除くって意味やで?)

次の

If Not r Is Nothing Then

で、エラーが出るのですが?
どう考えても、エラーが出そうな気はしないのですが・・・

↑の、条件文の意味わかってはります?
「Not r Is Nothing」・・・「r」が「Nothing」じゃない。
つまり、「r」に値が入ってるってことです。

もし、空白セルがなく、
On Errorでサンドイッチした
Set r = Worksheets("Sheet1").Range("AB3,AC3").SpecialCells(xlCellTypeBlanks)
で、入るべき該当セルがなくて、エラーが発生した場合、
「r」には何も入ってないまま、If文に突入するわけです。

その場合、「Not r Is Nothing」じゃないわけだから、
If文が通らなくて、そのまま、何事もなく終了♪

・・・に、なるはずなんやけど?


>On Error Resume Next
>Set r = Worksheets("Sheet1").Range("AB3,AC3").SpecialCells(xlCellTypeBlanks)
>On Error GoTo 0
>

 ここで、こんなんいれたら、「r」に何のセルも入ってないから
 「オブジェクトが必要です」って怒られるのは当然でっす! 
>「r.SpecialCells (xlCellTypeBlanks)」
>  
> If Not r Is Nothing Then
0 hits

【62397】IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです T-K 09/7/16(木) 15:45 質問
【62398】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/16(木) 16:56 回答
【62401】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/17(金) 12:06 質問
【62402】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/17(金) 12:45 回答
【62403】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/17(金) 15:06 お礼
【62449】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/22(水) 17:28 質問
【62450】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/22(水) 17:46 発言
【62468】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/23(木) 9:35 お礼
【62484】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/24(金) 15:32 質問
【62488】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/24(金) 23:59 回答
【62508】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/27(月) 17:24 質問
【62509】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/27(月) 17:45 発言
【62512】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/27(月) 19:13 発言
【62520】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/28(火) 15:09 お礼
【62535】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/29(水) 10:55 質問
【62536】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/29(水) 11:31 発言
【62540】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/29(水) 13:00 質問
【62541】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/29(水) 13:21 発言
【62546】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/29(水) 16:00 質問
【62547】Re:IF文でBLANKセルを選択し、その条件次第... もも 09/7/29(水) 16:42 発言
【62549】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/29(水) 16:54 発言
【62550】私なにかぼけぼけな誤解してるのかなあ つん 09/7/29(水) 16:59 発言
【62552】Re:IF文でBLANKセルを選択し、その条件次第... もも 09/7/29(水) 17:54 発言
【62556】Re:IF文でBLANKセルを選択し、その条件次第... bykin 09/7/29(水) 22:33 発言
【62558】Re:IF文でBLANKセルを選択し、その条件次第... もも 09/7/30(木) 8:52 発言
【62559】Re:IF文でBLANKセルを選択し、その条件次第... つん 09/7/30(木) 9:53 発言
【62561】Re:IF文でBLANKセルを選択し、その条件次第... T-K 09/7/30(木) 17:24 お礼

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