[[20210919181949]]　『アスタリスクが機能しないのは』（koukou）　ページの最後に飛ぶ

『アスタリスクが機能しないのは』（koukou）

.Cells(d, KYK_4).Value = WorksheetFunction.AverageIfs(.Range(.Cells(4, C4_4), .Cells(lRow, C4_4)) _
, .Range(.Cells(4, BAMEI_4), .Cells(lRow, BAMEI_4)), .Cells(i, BAMEI_3) _
, .Range(.Cells(4, KYO_4), .Cells(lRow, KYO_4)), Left(.Cells(3, 2), 1) & "*" _
, .Range(.Cells(4, RNBN_4), .Cells(lRow, RNBN_4)), "<=6")

　上記のアベレージ関数にて、競馬のコース別（芝 or ダート）のデータを収集しております。
この中の[KYO_4]列のコース別の振り分けが、「*」を使用してうまく機能しておりません。
因みに、[KYO_4]列のデータは次の通りになり、
　　　ダ1200
　　　ダ1200
　　　ダ1400
　　　ダ1400
　　　ダ1400
　　　ダ1150
　　　芝1000
　　　芝1400
　　　芝1400
　　　芝1400
　　　芝1400
　　　芝1600
　　　芝1400
　　　芝1400
　　　芝1400
　　　芝1400
　　　芝1400　　　　（一部抜粋）

　また、.Cells(3, 2)　は今回「芝1400」となります。
よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

部分だけ見せられてもよくわかりませんが、とりあえず「Left(.Cells(3, 2), 1) & "*"」が想定通りの値になっているかチェックしてみてはどうですか？
ワイルドカードとして使いたいのか「*」という文字で扱いたいのかで処理が変わってきそうですが・・・

（もこな２） 2021/09/19(日) 19:13

お返事ありがとうございます。
, .Range(.Cells(4, KYO_4), .Cells(lRow, KYO_4)), Left(.Cells(3, 2), 1) & "*" _
上記のコードを後で追加していますので、ここが問題になっているかと思います。
if文で色々試したのですが全てfalseになって返っており、
ワイルドカードとして認識していないと思われます。
宜しくお願いします。

（koukou） 2021/09/19(日) 19:42

　再度お願いします。
先程のコードですが、条件を2つに絞ればそれぞれ機能することが判明しました。
　例1：
.Cells(d, KYK_4).Value = WorksheetFunction.AverageIfs(.Range(.Cells(4, C4_4), .Cells(lRow, C4_4)) _
, .Range(.Cells(4, BAMEI_4), .Cells(lRow, BAMEI_4)), .Cells(i, BAMEI_3) _
, .Range(.Cells(4, KYO_4), .Cells(lRow, KYO_4)), Left(.Cells(3, 2), 1) & "*")
　例2：
.Cells(d, KYK_4).Value = WorksheetFunction.AverageIfs(.Range(.Cells(4, C4_4), .Cells(lRow, C4_4)) _
, .Range(.Cells(4, BAMEI_4), .Cells(lRow, BAMEI_4)), .Cells(i, BAMEI_3) _
, .Range(.Cells(4, RNBN_4), .Cells(lRow, RNBN_4)), "<=6")

　条件を3つに戻すと忽ち「AverageIfsプロパティを取得できません。」と表示されます。
どなたか教えていただければ助かります。よろしくお願いいたします。

（koukou） 2021/09/19(日) 21:54

 三つの条件を満たす行はちゃんとあるのだろうか？
（ねむねむ） 2021/09/19(日) 22:49

　ねむねむ様有難うございます。
三つの条件を満たさない行が1つありました。
ここにて、エラーが発生していました。
　自分勝手にコードミスと思い込んで検証していませんでした。
他の場所でも同じ現象が起きていて、その場合はcountifsやsumifsに
置き換えて対処しておりました。と同時にAverageIfsは扱いづらいと
決めつけておりました。多分今回と同様の事象に陥っていたのではな
いかと思います。有難うございます。

（koukou） 2021/09/20(月) 16:56

コメント返信：

[ 一覧(最新更新順) ]

[[20210919181949]] 『アスタリスクが機能しないのは』（koukou） ページの最後に飛ぶ

[[20210919181949]]　『アスタリスクが機能しないのは』（koukou）　ページの最後に飛ぶ