|
▼ひろ さん:
おはようございます。
>作成した表の中の、未入力箇所を赤色で塗りつぶす関数がわかりません誰か助けて...!!
簡単に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を実行してみて下さい。
|
|