[已解决]这样怎样写

飞云流水

Worksheet_Change事件只能，单击后生成，如果单元格一次下拉超过2个单元格怎样生成与单击一样效果，就像excel公式一样？

最佳答案

月排行榜 / 总排行榜

zjdh

2011-12-30 20:32

1.   Worksheet_Change事件是单元格被修改后触发，单击触发的是Worksheet_SelectionChange事件。
2.  ”单元格一次下拉超过2个单元格“，你的意思是修改超过2个单元格触发一个事件，可以是Worksheet_SelectionChange事件，可用以下语句屏蔽修改2个及以下的选择：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.EnableEvents = False
   If Target.Count > 2 Then MsgBox "OK"
   Application.EnableEvents = True
End Sub

跳转到最佳答案楼层

macky591

那你生成整列，或声明变量，用变量来引发事件范围

zjdh

1.   Worksheet_Change事件是单元格被修改后触发，单击触发的是Worksheet_SelectionChange事件。
2.  ”单元格一次下拉超过2个单元格“，你的意思是修改超过2个单元格触发一个事件，可以是Worksheet_SelectionChange事件，可用以下语句屏蔽修改2个及以下的选择：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.EnableEvents = False
   If Target.Count > 2 Then MsgBox "OK"
   Application.EnableEvents = True
End Sub

飞云流水

zjdh 发表于 2011-12-30 20:32
1.   Worksheet_Change事件是单元格被修改后触发，单击触发的是Worksheet_SelectionChange事件。
2.  ”单 ...

虽然不能解决问题，但也有点提示，谢谢