Excel VBA質問箱 IV

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

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


16305 / 76732 ←次へ | 前へ→

【65895】SpecialCellsのエラー処理
質問  けい  - 10/7/6(火) 11:11 -

引用なし
パスワード
   いつもお世話になります。
エラー処理についてよい方法がありましたら教えていただきたいのですが、
以下のように、指定範囲内に空白があった場合に"空白"とういう文字を入れるコードを書きました。ない場合はエラーになるので以下のようなエラー処理をしたのですが、空白がないパターンの方が多く、同じマクロを複数シートに実行するためMsgBoxで毎回”はい”と押しながら進める意外の方法はないか探しています。
IsEmptyを使うなど、でもかまいません。
条件にあうセルがあってもなくても、マクロを一気にすすめて画面上で”はい”を押さなくてもよい方法はないでしょうか。


Sub test()
  Dim Deg空白 As Range

     Set Deg空白 = Range(Cells(i, "A"), Cells(i + x , "B")).SpecialCells(xlCellTypeBlanks)
     On Error GoTo 0

     If Deg空白 Is Nothing Then
     MsgBox "Deg空白セルはありません。"

     Else
     Deg空白.Value = "(空白)"
     End If
End Sub

1 hits

【65895】SpecialCellsのエラー処理 けい 10/7/6(火) 11:11 質問
【65896】Re:SpecialCellsのエラー処理 メタ 10/7/6(火) 11:20 回答
【65902】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 13:18 お礼
【65897】Re:SpecialCellsのエラー処理 Jaka 10/7/6(火) 12:23 発言
【65901】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 13:17 お礼
【65903】Re:SpecialCellsのエラー処理 Jaka 10/7/6(火) 13:36 発言
【65911】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 17:10 質問
【65912】Re:SpecialCellsのエラー処理 Jaka 10/7/6(火) 17:25 発言
【65913】Re:SpecialCellsのエラー処理 けい 10/7/6(火) 17:50 質問
【65918】Re:SpecialCellsのエラー処理 Jaka 10/7/7(水) 11:05 発言
【65920】Re:SpecialCellsのエラー処理 けい 10/7/7(水) 13:02 お礼

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