Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19624 / 76735

←次へ　｜　前へ→


	【62540】Re:IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです

T-K - 09/7/29(水) 13:00 -


	引用なし

	パスワード

▼つんさん：
こんにちは。T-Kです。

On Error GoTo 0はエラーが発生した処理を中止して次の処理を実行する。
ですから、次のif文を実行するはず、と考えました。
そしてデバッグしたら、実行エラー：オブジェクトが必要です、と出て・・。
ならばと以下の「r.SpecialCells (xlCellTypeBlanks)」が、
追加したオブジェクトです。
ともあれ、私の実現したいことは次のステップなのです。
１．指定のセルを一旦、クリア（色を白にするだけ）
２．指定セルに何も入力されていなかったら、そのセルを赤くする
３．再度、１からスタートした時、指定セルに値が入っていたら、
　　セルを赤くしない

Public Sub CommandButton3_Click()
　Dim r As Range
　　　　
'チェック前に一度、指定セル箇所（飛び飛びのセル）をクリアする
　Worksheets("Sheet1").Range("AB3,AC3").Interior.ColorIndex = 0

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

「r.SpecialCells (xlCellTypeBlanks)」
　　
　If Not r Is Nothing Then
　　　　
　　　　r.Interior.ColorIndex = 3
　　　　MsgBox ("赤いセルを入力して下さい")　　　　　　
　　End If
　　　　　　　　
　　Set r = Nothing
　　
End Sub

>「WorksheetFunction.CountBlank」使ったら・・・って提案しました。
>けど、今試してみたら、選択範囲が複数やったらダメみたいですね＾＾；
→そうなんです。
それで、On Error Resume Nextを採用しようとしました。
でも、実は他の業務で活きてくるのが分かって、得しました。
教えていただいてありがとうございます。

0 hits

▼

【62397】IF文でBLANKセルを選択し、その条件次第でそのセルに着色したいです T-K 09/7/16(木) 15:45