|
各チェック処理は、任意に入れてね。
――――――――――――――――――――――――――――――
Dim wsIn As Worksheet
Dim wsOut As Worksheet
Dim inMonth As String
Dim inDate As String
Dim rng As Range
Dim target As Range
Dim tRow As Long
Dim tCol As Long
Set wsIn = ActiveWorkbook.Worksheets("入力")
Set wsOut = ActiveWorkbook.Worksheets("データ")
inMonth = wsIn.Range("B1").Value
inDate = wsIn.Range("B2").Value
Set rng = wsIn.Range("B3:B" & wsIn.Range("B3").End(xlDown).Row)
For Each target In rng
tCol = wsOut.Range("1:1").Find(inMonth).Column
tRow = wsOut.Range("A:A").Find(target.Value).Row
With wsOut.Cells(tRow, tCol)
.NumberFormat = "m/dd"
.Value = inDate
End With
Next target
――――――――――――――――――――――――――――――
|
|