Sub UpdateData()
If MsgBox("本当に実行しますか?", _
vbExclamation + _
vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub
Range("C4:C23").Value = Range("D4:D23").Value
Range("D4:D23").ClearContents
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge= 1 Then
If Target.Row >= 3 And _
Target.Row <= 5 And _
Target.Column = 1 Then
Dim tR As Long, lR As Long
tR = Target.Row
lR = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range(Cells(lR, "B"), Cells(lR, "D")).Value = _
Range(Cells(tR, "B"), Cells(tR, "D")).Value
End If
End If
End Sub
では、コードについて解説していきます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge= 1 Then
'省略
End If
End Sub