Excel VBA質問箱 IV

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

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


1564 / 13645 ツリー ←次へ | 前へ→

【73502】CountIF関数の引数に [**] 等記号は使用不可? ghat 13/1/16(水) 14:44 質問[未読]
【73505】Re:CountIF関数の引数に [**] 等記号は使... UO3 13/1/16(水) 15:23 発言[未読]
【73506】Re:CountIF関数の引数に [**] 等記号は使... [ghat] 13/1/16(水) 18:26 お礼[未読]

【73502】CountIF関数の引数に [**] 等記号は使...
質問  ghat  - 13/1/16(水) 14:44 -

引用なし
パスワード
   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

【73505】Re:CountIF関数の引数に [**] 等記号は...
発言  UO3  - 13/1/16(水) 15:23 -

引用なし
パスワード
   ▼ghat さん:

もともと、シート上で COUNTIF を使う場合、* はワイルドカードを意味する
特殊な記号になります。
* という文字を指定する場合は、* の前に ~(チルド)をつける必要があります。

=COUNTIF(範囲,"~*~*") です。
ですからVBAで使う場合にも、"**" ではなく "~*~*" にしてください。

【73506】Re:CountIF関数の引数に [**] 等記号は...
お礼  [ghat]  - 13/1/16(水) 18:26 -

引用なし
パスワード
   ▼UO3 さん:
早速のご教示ありがとうございました。取り急ぎお礼申し上げます。

1564 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free