vba - VBA SumIf が日付範囲で機能しない

Question

だから、私は多くのバリエーションを試しましたが、これを機能させることはできません:

var_sum = WorksheetFunction.SumIfs(Range("H:H"), Range("B:B"), str_client, Range("A:A"), "<=" & date_var)

この式には 2 つの条件があります。2 つ目 (日付の比較) はそれを破り、合計を 0 にします。date_var は Date 変数です。Excel の日付範囲は、日付としてフォーマットされます。

何が間違っている可能性がありますか？

Answer 1

日付に紐が付いているような気がします。

Date_Var = "01/01/2013"

Excel は日付を 1900 年 1 月 1 日からの日数として保存するため、適切な値を使用するCDate(か、適切な値に変換することができます。CLng(

var_sum = WorksheetFunction.SumIfs(Range("H:H"), Range("B:B"), str_client, _
    Range("A:A"), "<=" & CLng(date_var))