[已解决]改变代码查询工作表的C1单元格的值触发工作表事件，下面代码怎么改写？

要用就学

'改变代码查询工作表的C1单元格的值触发工作表事件，下面代码怎么改写？
Sub 按常驻人口姓名查找()
ends = Range("e2:k4500").Columns(1).Find("*", searchdirection:=xlPrevious).Row Sheets("代码查询").Range("a2:x999").Clear Range("e1:k1").Copy Sheets("代码查询").Range("a2")
For Each rng In Range("e2:e" & ends)
    m = m + 1
    If rng Like Sheets("代码查询").Range("c1") Then        k = k + 1
       Range("e" & m + 1 & ":k" & m + 1).Copy Sheets("代码查询").Range("a" & k + 2)      End If
    Next
  If Sheets("代码查询").Range("a3") = "" Then Sheets("代码查询").Range("c1") = "请在此输入查询的条件支持通配符"
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-27 06:43

看不明白你到底想做什么。
如果是因为修改C1的值触发了事件，而你是想不触发的这话。

1. '改变代码查询工作表的C1单元格的值触发工作表事件，下面代码怎么改写？
   
2. Sub 按常驻人口姓名查找()
   
3.     Application.EnableEvents = False
   
4. 
   
5.     ends = Range("e2:k4500").Columns(1).Find("*", searchdirection:=xlPrevious).Row
   
6.     Sheets("代码查询").Range("a2:x999").Clear
   
7.     Range("e1:k1").Copy Sheets("代码查询").Range("a2")
   
8.     For Each Rng In Range("e2:e" & ends)
   
9.         m = m + 1
   
10.         If Rng Like Sheets("代码查询").Range("c1") Then
    
11.             k = k + 1
    
12.             Range("e" & m + 1 & ":k" & m + 1).Copy Sheets("代码查询").Range("a" & k + 2)
    
13.         End If
    
14.     Next
    
15.     If Sheets("代码查询").Range("a3") = "" Then Sheets("代码查询").Range("c1") = "请在此输入查询的条件支持通配符"
    
16.     Application.EnableEvents = True
    
17. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

看不明白你到底想做什么。
如果是因为修改C1的值触发了事件，而你是想不触发的这话。

1. '改变代码查询工作表的C1单元格的值触发工作表事件，下面代码怎么改写？
   
2. Sub 按常驻人口姓名查找()
   
3.     Application.EnableEvents = False
   
4. 
   
5.     ends = Range("e2:k4500").Columns(1).Find("*", searchdirection:=xlPrevious).Row
   
6.     Sheets("代码查询").Range("a2:x999").Clear
   
7.     Range("e1:k1").Copy Sheets("代码查询").Range("a2")
   
8.     For Each Rng In Range("e2:e" & ends)
   
9.         m = m + 1
   
10.         If Rng Like Sheets("代码查询").Range("c1") Then
    
11.             k = k + 1
    
12.             Range("e" & m + 1 & ":k" & m + 1).Copy Sheets("代码查询").Range("a" & k + 2)
    
13.         End If
    
14.     Next
    
15.     If Sheets("代码查询").Range("a3") = "" Then Sheets("代码查询").Range("c1") = "请在此输入查询的条件支持通配符"
    
16.     Application.EnableEvents = True
    
17. End Sub
    

复制代码

要用就学

hwc2ycy 发表于 2013-6-27 06:43
看不明白你到底想做什么。
如果是因为修改C1的值触发了事件，而你是想不触发的这话。

我在sheet1工作表中录入大量有关姓名的数据并写了上面这段代码，我新建了一个名称为“代码查询”的工作表，只要在“代码查询”工作表的c1单元格中，填写姓名即可查询sheet1的相关的内容。我现在想当我在“代码查询”c1单元格录入新的姓名离开c1单元格时自动触发这段代码。请赐教

hwc2ycy

直接修改了后查询不比你离开更好么。