Excel VBA質問箱 IV

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

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


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

19626 / 76732

←次へ　｜　前へ→


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

T-K - 09/7/29(水) 10:55 -


	引用なし

	パスワード

▼つんさん：

こんにちは。いつもありがとうございます。
早速、下記試してみたのですが・・・
「↓で、ｒにちゃんと、ブランクセルが入ってるかどうか確かめて」
の次のIF文のところでデバッグすると、
「実行エラー'424' オブジェクトが必要です」と出ます。

これは
「r=ブランクセルというエラーが発生したら、それを無視し、
On Error GoTo 0で次の処理を実行する」
でよいのですよね。

このOn Error GoTo 0と　f文の間に「実行エラー'424' 」が出るなら、
r=ブランクセルをセットするはず？なのですが・・・
そこで、r.SpecialCells (xlCellTypeBlanks)と
オブジェクトrとそのプロパティSpecialCells (xlCellTypeBlanks)を
つけてみたましたがうまくいかず。
Rangeについての記述も合ってると思うんですが。
何がいけないのでしょう？

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

「↓で、ｒにちゃんと、ブランクセルが入ってるかどうか確かめて」
　　
　If Not r Is Nothing Then
　　　　
　　　　r.Interior.ColorIndex = 3
　　　　MsgBox ("赤いセルを入力して下さい")　　　　　　
　　End If
　　　　　　　　
　　Set r = Nothing
　　
End Sub

137 hits

▼

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