|
こんにちは。かみちゃん です。
>>見つけた日付の下に貼り付ける値は何を貼り付けるのですか?
>
>貼り付ける値は「数字」になります。
数字をどう貼り付けるのかわかりませんが、
とりあえず、次のような感じで、なんとなくできるようです。
ちょっと、不具合も多少あるかもしれませんし、スマートではないので、その辺りは、とりあえずということで、参考にしてください。
Option Explicit
Sub Macro1()
Dim strDate As String
Dim c As Range
strDate = Format(Range("A1").Value, "m/d")
'Sheet1を検索
With Sheets("Sheet1").Rows(1)
Set c = .Find(strDate, LookIn:=xlValues)
If Not c Is Nothing Then
Range(c.Offset(1), c.Offset(5)).Value = 1
End If
End With
'Sheet2を検索
With Sheets("Sheet2").Rows(1)
Set c = .Find(strDate, LookIn:=xlValues)
If Not c Is Nothing Then
Range(c.Offset(1), c.Offset(5)).Value = 1
End If
End With
End Sub
|
|