Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 3 And Target.Count = 1 Then'限制在C列并且只有在选择一个单元格时才发生
      If Target <> "" Then
          Application.SendKeys "{F2}"
      End If
  End If
End Sub
posted on 2011-03-11 13:02  zjianjun/Andy  阅读(1767)  评论(0)    收藏  举报