Sheet2に下記のような出荷データを貼り付ければ、Sheet1の対応する出荷日に数量が入力されるイベントプロシージャを考えてます。

Sheet2に下記のような出荷データを貼り付ければ、Sheet1の対応する出荷日に数量が入力されるイベントプロシージャを考えてます。 (出荷データは毎回変わるため、出荷日は1月1日~5日のみとは限りません) Sheet2から抜き取るデータの条件として、下記条件があります。 ① 商品コードが1111(Sheet1のB1セル) ② 得意先名称の右端5文字が”(岡山C)” 下記例でいけば、「Sheet1のE3セルに300、F3セルに100が入力される」ことになります。 何か構文例ありますでしょうか。(出荷日が毎回変わる場合の変数の扱いがよくわかりません・・)

画像

Visual Basic33閲覧

ベストアンサー

0

Sheet1の3行目に関数式を入力してあげればよいのでは? Sub sample() Const cFormula As String = _ "=SUMIFS(Sheet2!$D:$D,Sheet2!$A:$A,Sheet1!$B$1,Sheet2!$B:$B,""=*(岡山C)"",Sheet2!$C:$C,Sheet1!C$2)" With Worksheets("Sheet1") With .Range("C2", .Cells(2, .Columns.Count).End(xlToLeft)).Offset(1) .Formula = cFormula .Copy .PasteSpecial xlPasteValues End With End With Application.CutCopyMode = False End Sub