MW211 EXIT

devlog
ExcelVBA/WorksheetFunctionに配列引数(2)
2020年08月25日
引数が可変の場合、構成要素が数値や文字列なら、配列で指定ができるが
オブジェクト系(範囲など)だとこれができないっぽい。

例えばこんなイメージは無理。
┌──────────────────────────────────────┐
│MsgBox WorksheetFunction.CountIfs(配列)                                     │
└──────────────────────────────────────┘

ということで、代案。
CountIfs()の引数は最大30個なので
配列を30個あらかじめ用意して、NULLで埋めておけばそんな感じになる。
┌──────────────────────────────────────┐
│Dim 配列(1 To 30) As Variant                                                │
│For i = LBound(配列) To UBound(配列)                                        │
│    配列(i) = Null                                                          │
│Next i                                                                      │
├──────────────────────────────────────┤
│MsgBox WorksheetFunction.CountIfs( _                                        │
│    配列(1), 配列(2), 配列(3), 配列(4), 配列(5), _                          │
│    配列(6), 配列(7), 配列(8), 配列(9), 配列(10), _                         │
│    配列(11), 配列(12), 配列(13), 配列(14), 配列(15), _                     │
│    配列(16), 配列(17), 配列(18), 配列(19), 配列(20), _                     │
│    配列(21), 配列(22), 配列(23), 配列(24), 配列(25), _                     │
│    配列(26), 配列(27), 配列(28), 配列(29), 配列(30) _                      │
│)                                                                           │
└──────────────────────────────────────┘

もっといい方法がありそうだが。
分類:ExcelVBA