Excel VBA質問箱 IV

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

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


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

19760 / 76732

←次へ　｜　前へ→


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

つん - 09/7/16(木) 16:56 -


	引用なし

	パスワード

▼T-K さん：
こんにちは＾＾

>　　If 発行番号 = Range("A4").SpecialCells(xlCellTypeBlanks) Then

Rangeオブジェクトの変数に代入するときは、Setせんとあきません。

Set 発行番号 = Range("A4").SpecialCells(xlCellTypeBlanks)

If Not 発行番号 Is Nothing Then
　　処理処理
End If

って形ですね。
でも、単一セルを指定すると、全セル対象になるみたいなので、これもアウトみたいですが＾＾；
単一セルの処理だったら単純に

If Range("a4").Value = "" Then

でいいように思います。

>　　ElseIf 日付1 = Range("E4").SpecialCells(xlCellTypeBlanks) Then
>　　　　Range("E4").Interior.ColorIndex = 3
>　　ElseIf 発行者 = Range("E5:E7").SpecialCells(xlCellTypeBlanks) Then
>　　　　Range("E5:E7").Interior.ColorIndex = 3
>　　Else
>　　　　MsgBox "赤セルを入力して下さい"
　　　　ここで、メッセージいれたら、どこにも赤セルがない状態の時に
　　　　メッセージが出るだけちゃうの？
>　　End If
>End Sub

よくわからんのですけど、結局は、セルの「A4」と「E4:E7」の範囲の空白セルを赤く塗りつぶしたいんですよね？
やったら、

Sub test3()

　　Dim r As Range

　　Set r = Worksheets("Sheet1").Range("a4,e4:e7").SpecialCells(xlCellTypeBlanks)
　　
　　If Not r Is Nothing Then
　　　　r.Interior.ColorIndex = 3
　　　　MsgBox "赤セルを入力してちょ"
　　End If
　　
　　Set r = Nothing

End Sub

で、どうですか？

81 hits

▼

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