|
Kein 様 ありがとうございます。
教えていただいたとおりにすると実現できました。
しかし、複数のセルに同様のことをしようとして(セルA2〜A5にA1を反映、B2〜B5にB1を反映・・・・)これを応用しようとしたのですが(以下)、どうしてもできませんでした。
教えていただいたソースも理解できていないのですが、何が悪いのでしょうか。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address <> "$A$1" Then Exit Sub
If .Count > 1 Then Exit Sub
If Not .Validation.Value Then Exit Sub
Application.EnableEvents = False
Range("A2:A5").Value = .Value
Application.EnableEvents = True
If .Address <> "$B$1" Then Exit Sub
If .Count > 1 Then Exit Sub
If Not .Validation.Value Then Exit Sub
Application.EnableEvents = False
Range("B2:B5").Value = .Value
Application.EnableEvents = True
If .Address <> "$C$1" Then Exit Sub
If .Count > 1 Then Exit Sub
If Not .Validation.Value Then Exit Sub
Application.EnableEvents = False
Range("C2:C5").Value = .Value
Application.EnableEvents = True
End With
End Sub
|
|