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

≪