自動集計日付

Question

私は自分がしたいことをする方法を理解しようとしているワークブックを持っています。マクロは問題ではないと私は私のニーズにvbaを使用する必要がありますが、私がやりたいことに凹みを入れるのに十分なことは分かっていません。

基本的な前提は次のとおりです。私は2枚のシートワークブックを持っています。シート1には現在の日付と2つのフィールドが含まれています。シート2は一連の日付（月）を持ち、同じ2つのフィールドはすべての日付のシート1を形成します。私がしたいのは、シート1の日付に応じて、シート2がその日付の適切なフィールドを自動入力するということです。他のすべてのフィールドだけを残す。私はspreedsheetの残りの部分だけを残して（空白ではなく0にして）、正しい日付を設定します。 サンプルを作成した用紙hereをアップロードしました。誰かが私にどんな方向性を提供しても大いに感謝しています。不明な点がある場合は、明確にするように依頼してください。ありがとうございました。

STP

Answer 1

あなたは、このマクロを実行することがあります。

Option Explicit 

Sub r() 
Dim c as Range 

For Each c In Worksheets("Sheet2").Range("A2:A999") 
If c.Value = Worksheets("Sheet1").Range("A2").Value Then 
    c.Offset(0, 1).Value = Worksheets("Sheet1").Range("b2").Value 
    c.Offset(0, 2).Value = Worksheets("Sheet1").Range("c2").Value 
End If 
Next c 

End Sub