ワークシート関数を使う
サンプルソース
|
' 合計を求める Msgbox WorksheetFunction.Sum(Range("A1:A100")) ' 平均を求める Msgbox WorksheetFunction.Average(Range("A1:A100")) ' 最大値を求める Msgbox WorksheetFunction.Max(Range("A1:A100")) ' 最小値を求める Msgbox WorksheetFunction.Min(Range("A1:A100")) ' 件数を求める Msgbox WorksheetFunction.Count(Range("A1:A100")) ' 標準偏差を求める Msgbox WorksheetFunction.StDev(Range("A1:A100")) ' 条件を満たす合計を求める Msgbox WorksheetFunction.SumIf(Range("A1:A100"),"B1") ' 条件を満たす件数を求める Msgbox WorksheetFunction.CountIf(Range("A1:A100"),"B1") |
解説
WorksheetFunctionでワークシート関数が使用できます。
WorksheetFunction.ワークシート関数名 のように使用します。
ワークシート関数では結果を直接取ることができるため、シートやVBAでの計算の間違いが起こらないので非常に便利な関数です。
以下のような関数が使用できます。
集計
Sum、Average、Max、Min、Count、StDev、SumIf、CountIf
論理和・積
And、Or、Xor
リスト検索
Vlookup、HLookup
基数変換
Hex2Bin、Bin2Dec、Dec2Bin、Oct2Bin