こんにちは。 VBAについて困っているので質問させていただきます。 ＜概要＞ 決められたフォーマットに他のシートから二つの条件が合った場合の合計を出したい データシート A B C D １ 名前 区分 担当 給料 ２ Aさん 社員 ホール 1234 ３ Bさん アルバイト キッチン 2345 ４ Cさん 社員 ホール 6789 ５ Dさん アルバイト 掃除 1011 ↑とあるとします。 このときに『社員かつ担当がホールの方の給料の合計』を他のシートに出したいのですが、 上手くいきません。 使用している関数としては・・・ Dim Data Data = "データ" Worksheets(Data).Activate Dim SelectTantou SelectTantou = file.ListBox.Value (リストボックスに担当場所表示） Dim SetData SetData = SelectTantou Dim EndDataNameCell EndDataNameCell = Worksheets(Data).Range("A1").End(xlDown).Row If Worksheets(Data).Cells(Rows.Count, 3) = "社員" Then Worksheets(SetData).Range("CH3").Formula = "=SUMIF('" & Data & "'!C2:C" & EndDataNameCell & "," & """=" & SelectName & """,'" & Data & "'!D1:D" & EndDataNameCell & ")" Worksheets(SetData).Range("A1").Formula = Worksheets(SelectName).Range("CH3").Value End If のような感じでやってみましたが、 値が表示されませんでした。 SUMPRODUCTもやってみましたが、 うまくいきません。。。 恐れ入りますが、お力添えをお願いいたします。
↧