★VBA★CountIFsで手こずった話 のバックアップの現在との差分(No.1)

やりたいこと

・表1


    A　B　　
___A　B　　
1a〇
2a〇
3a〇
4a×
5b〇
 
 

・表2
    K   L
___K   L
1a〇
2b×
3a〇
4b×
 

上のような二つの表があったとします。表の左の番号は行番号、上のA,B,K,Lは列番号です。

aと〇両方記入されている行数を数え、別の表にその結果を入力したいです、VBAを使って。

 
 
 
 
 
 
 
それと私はかなりの初心者なので以下の方法は参考程度に、もしかしたらもっと簡単で処理の軽い方法があるかもしれないので...
 

表1のみで条件にあてはまる行数を数える

まず、複数条件に当てはまる数を数えたい場合、関数ならCountifsを使うと思います。

じゃあそれをそのままVBAに使えないの？と思いました。

 
 
 
 
 
 
 
 

使えませんでした。
 

しかし、ある文字を付け加えることで使えるようになるそうです。
しかし調べたところ、ある文字を付け加えることで使えるようになるそうです。

それが

 

WorksheetFunction.

 

です。

 

※使ってるバージョンによっては使えないらしいです。私は2013です。

 
 

結果の入力先をP5として作成するとこんな感じでできました。
Cells(5, 16).Value = WorksheetFunction.CountIfs(Range(a1":a5"), "a",Range("b1:b5"), "〇")''
Cells(5, 16).Value = WorksheetFunction.CountIfs(Range(a1":a5"), "a",Range("b1:b5"), "〇")
 

左辺は結果の入力先です。
 
 
 
左辺を最初「P5.value」としていたのですが、エラーになってしまいました。
ここを最初、「p5.Value」にしていました。しかし
なぜなんでしょうか…
 

「424　オブジェクトが必要です」
調べてもよく理解できず...
とのエラーがでてしまいました。なにが悪いのかわからん。と憤慨しつつ、とりあえずここをCells(,)にしました。
悲しくなってきたのでCells(,)を入れて解決してしまいましたがなぜなんでしょうか
 

なにが悪かったのかは後で調べるとして...
 
 

表1の結果と表2の結果を足す

 

表1の数は入力できたので次は表2の数と足します。


Cells(5, 16).Value = WorksheetFunction.CountIfs(Range(a1":a5"), "a",Range("b1:b5"), "〇")  +  WorksheetFunction.CountIfs(Range(k1":k4"), "a",Range("L1:L4"), "〇")
Cells(5, 16)''.Value = WorksheetFunction.CountIfs(Range(a1":a5"), "a",Range("b1:b5"), "〇")  +  WorksheetFunction.CountIfs(Range(k1":k4"), "a",Range("L1:L4"), "〇")
 

単純に式を+しただけです。

 

この式に行きつくまでのことをだいぶ端折ってしまいましたが、実際は以下のエラーに手こずっていました。
しかし、この式に行きつくまで以下のエラーに手こずっていました。


1004 WorksheetFunctionクラスのCountIfsプロパティが取得できません。
このエラー、調べても解決方法があまり載っていないんですよね。
なので相当悩みました。かなり悩み、式を分離させたりセル番地を変数にしたり。
その結果あることに気づきました。
 
 
 
 
 
 
 
 
範囲違う！！！！
 
セル番号を普通にミスって書いてました...
こんな感じです。
 
Cells(5, 16).Value = WorksheetFunction.CountIfs(Range(a1":a5"), "a",Range("b1:b5"), "〇")  +  WorksheetFunction.CountIfs(Range(k1":k14"), "a",Range("L1:L4"), "〇")
 
あんなに悩んでたのにただのタイプミスとは...