excel - 仅通过鼠标单击而不是通过键盘显示从一个单元格到另一个单元格的值

Question

下面是我通过鼠标单击将值从一个单元格输入到另一个工作表单元格的代码，但它也适用于键盘。请帮助我仅通过鼠标而不是键盘来处理此代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("C5:H9")) Is Nothing Then

        With Sheets("Pricesheet").Select.Range("C10").Value = Target.Value

        End With

    End If

End Sub

标签： excelvba