- 407 名前：デフォルトの名無しさん mailto:sage [2017/05/31(水) 03:10:26.82 ID:ngSfzLWM0.net]
- >>393
イベントを使うといいと思う
例えば４列目に入力があったら５〜７列目がオートフィルされるようにするなら
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 3 And Target.Column = 4 Then
Range(Cells(Target.Row - 1, 5), Cells(Target.Row - 1, 7)).Select
Selection.AutoFill Destination:=Range(Cells(Target.Row - 1, 5), Cells(Target.Row, 7)), Type:=xlFillDefault
Target.Select
End If
End Sub
