咨询一下change事件的问题

假绅士

请问各位大侠，change事件可不可以实现用单元格复制粘贴也运行，我在实验中发现当我复制粘贴到指定单元格后对应的单元格内容并不改变，也就是说change事件并未运行。请问Private Sub Worksheet_Change(ByVal Target As Range)如何设定才能让复制粘贴也同样运行。谢谢！

爱疯

你的实际问题，和这个问题有怎样的关系，举个例子？

假绅士

爱疯 发表于 2015-3-20 11:55
你的实际问题，和这个问题有怎样的关系，举个例子？

那我举个例子吧，
假如A1单元格是我需要输入的单元格，然后B1单元格是Change事件控制的对应变动单元格，当我正常在A1单元格输入数据的时候，会触发Change事件，导致B1单元格根据要求变动，但是，当我用复制粘贴（复制选择粘贴）的方法改变A1单元格中的字符的时候，B1单元格就不会变动，也就是Change事件未被触发。我希望是当我正常输入数据的时候，Change事件会被触发，当我用复制粘贴（复制选择粘贴）的方法时，也能触发Change事件。

假绅士

爱疯 发表于 2015-3-20 11:55
你的实际问题，和这个问题有怎样的关系，举个例子？

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address() = "$B$2" Then
   
3.     实验1
   
4. Else
   
5.     If Target.Address() = "$F$4" Then
   
6.             实验2
   
7.         Else
   
8.             If Target.Address() = "$F$2" Then
   
9.                 实验3
   
10.             Else
    
11.                 If Target.Address() = "$F$5" Then
    
12.                     实验4
    
13.                 End If
    
14.             End If
    
15.         End If
    
16.     End If
    
17. End Sub

复制代码

老师，我想问一下，我这样编的代码如何让Change事件在用（复制-选择粘贴）时可以被触发

爱疯

把你3楼所说的需求，用附件来表达吧

如果有人看懂了你的意思，自然会有回复的。

假绅士

爱疯 发表于 2015-3-20 16:51
把你3楼所说的需求，用附件来表达吧

如果有人看懂了你的意思，自然会有回复的。

好得，我整理一下附件。