Excel VBA質問箱 IV

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

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


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

67618 / 76738

←次へ　｜　前へ→


	【13674】Re:セルの塗りつぶし

ichinose - 04/5/11(火) 7:24 -


	引用なし

	パスワード

▼ひろさん：
おはようございます。

>作成した表の中の、未入力箇所を赤色で塗りつぶす関数がわかりません誰か助けて...！！
簡単にSpecialCells(xlCellTypeBlanks)メソッドを使用すれば・・
と思いましたが、色々と癖がありましたので、以下のようにしました。

'====================================================================
Sub main()
　 Dim rng As Range
　 Set rng = Selection
　 Set rng = Get_XlcellBlanks(rng)
　 If Not rng Is Nothing Then
　　　rng.Interior.ColorIndex = 3
　 Else
　　　MsgBox "なし"
　　　End If
End Sub
'=================================================================
Function Get_XlcellBlanks(rng As Range) As Range
'指定されたセル範囲の中から、未入力セルを取得する
　 Set Get_XlcellBlanks = Nothing
　 With rng
　　　.Value = .Value
　　　If .Count = 1 Then
　　　　 If .Value = "" Then
　　　　　　Set Get_XlcellBlanks = rng
　　　　　　End If
　　　Else
　　　　 On Error Resume Next
　　　　 Set Get_XlcellBlanks = .SpecialCells(xlCellTypeBlanks)
　　　　 On Error GoTo 0
　　　　 End If
　　　End With
End Function

表のセル範囲を選択した状態でプロシジャーmainを実行してみて下さい。

0 hits

▼

【13673】セルの塗りつぶし ひろ 04/5/11(火) 1:00