Excel中实现鼠标点击某一个单元格，其内容自动跳到另一个单元格内.点击一次数量1，点击两次数量为2.

Question

鼠标点击黄色区域，其内容自动复制到绿色单元格内。比如，我鼠标点击C5,其内容SASJ00044-01跳到L7.数量显示1.鼠标继续点击C5,则数量变为2. 鼠标继续点击E6，则SASJ72003-05跳到L8,数量显示1.
怎么实现这个功能，VBA?

Answer 1

什么叫做 点击， 单击还是双击，
你 点 C6 然后 点 E6 ，再点回 C6 怎么处理, 已有的 是在原 单元 L7 增加，还是 在L9 增加追问

单击。 单击C6，C6值写入绿色单元视为结束。再单击E6,E6单元值写入绿色单元。 如果是已有的，就在原单元数量上加1即可。 我想实现这个功能，至于怎么处理，我也不清楚，只要这个实现这个功能。

追答

代码放到 工作表 代码区:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set s = Application.Intersect(Target, Range("C5:E17"))
  If Target.Count = 1 And Not (s Is Nothing) Then
   If Application.WorksheetFunction.CountIf(Range("L:L"), Target) > 0 Then
    r = Range("L:L").Find(Target).Row
     Cells(r, "N") = Cells(r, "N") + 1
     Else
     r1 = [l65536].End(xlUp).Row + 1
     Cells(r1, "L") = Target
     Cells(r1, "N") = 1
    End If
 End If
End Sub

Answer 2

EXCEL的基础功能做不到 需要使用VBA定义工作表事件才可以实现4710追问

恩，我也是想用VBA实现。求代码