|
Kein 様
ありがとうございました。
以下のように、Kein様のソースを応用させて頂くことにより、
様々なパターンに応用することができました。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ofs As Integer
Dim res As Integer
Dim flg As Integer
flg = 0
If Intersect(Target, Range("C5:E5")) Is Nothing Then
Else
ofs = 2
res = 12
flg = 1
End If
If Intersect(Target, Range("C6:E6")) Is Nothing Then
Else
ofs = 13
res = 7
flg = 1
End If
If Intersect(Target, Range("C26:E26")) Is Nothing Then
Else
ofs = 1
res = 6
flg = 1
End If
If flg = 0 Then
Exit Sub
End If
With Target
If .Count > 1 Then Exit Sub
If Not .Validation.Value Then Exit Sub
Application.EnableEvents = False
.Offset(ofs).Resize(res).Value = .Value
Application.EnableEvents = True
End With
End Sub
|
|