|
1.B列4行から18行に各3行をセル結合し B4,B7,B10,B13,B16 の5個のセルを作成。
2.D列4行から6行に [aa,bb,**] のドロップダウンリストを作成。
3.上記1.の結合した5個セルに入力規制によるドロップダウンを設定。
そこで下記コードを実行した結果 rt4が [**] の選択有無に関係なく[5] となります。
CountIf関数では [**] などの記号は引数としては使用できないのでしょうか?
以上よろしくご教示お願いいたします。
Option Explicit
Public Sub test()
Dim myrange As Range
Dim rt As Integer, rt2 As Integer, rt3 As Integer, rt4 As Integer
Set myrange = [b4:b18]
rt = WorksheetFunction.CountA(myrange)
rt2 = WorksheetFunction.CountBlank(myrange)
rt3 = WorksheetFunction.CountIf(myrange, "aa")
rt4 = WorksheetFunction.CountIf(myrange, "**")
End Sub
|
|