|
初めて投稿致します。agalinman と申します。
業務でVBAを使用していますが、ちょっと行き詰ってしまいましたので、
助言をいただければと思います。
特定の範囲で背景に色が塗られていないセルの数を求める
以下のようなユーザー定義関数を作成致しました。
======ここから
Function PreQA(s_range As String) As Integer
Dim icount As Integer
Dim rng As Range
' Application.Volatile
icount = 0
For Each rng In Range(s_range)
If rng.Interior.ColorIndex = xlNone Then
icount = icount + 1
End If
Next
PreQA = icount
End Function
======ここまで
ここで、例えばセルのB1〜B10の範囲での抽出結果を
セルA1に出力させるためには、
セルA1に
=PreQA("B1:B10")
と入力すれば、期待する答えは導き出せました。
ここで質問ですが、
入力にダブルコーテーションを必要としないようにするためには、
上記コードの s_range As String の箇所をどうように
宣言すればよろしいでしょうか?
要は、入力を
=PreQA(B1:B10)
とさせたいのです。
よろしくお願いします。
|
|