模糊搜索忽略字段行

okenny

板主真神人也，非常感谢！！！

不过你说的“只修改了第一段”是什么意思？

按“清空数据”后，图片删除不了，有什么函数能删除图片？

zhaogang1960

okenny 发表于 2012-1-10 16:10
板主真神人也，非常感谢！！！

不过你说的“只修改了第一段”是什么意思？

If Target.Address = [b3].Address And Not IsEmpty([b3]) Then之后这一段没有修改

1. Private Sub ClearContent_Click()'“清空数据”
   
2. 
   
3.     Range("a7:m" & [a65536].End(xlUp).Row + 1).ClearContents
   
4.     Range("b1").ClearContents
   
5.     Range("b3").ClearContents
   
6.         For Each myShape In ActiveSheet.Shapes
   
7.             If myShape.Type = 13 Then
   
8.                 myShape.Delete
   
9.             End If
   
10.         Next
    
11. End Sub
    

复制代码

okenny

zhaogang1960 发表于 2012-1-10 16:14
If Target.Address = .Address And Not IsEmpty() Then之后这一段没有修改

请问是不是这段修改不了？

zhaogang1960

媒体demo1.rar (38.37 KB, 下载次数: 23)

2012-1-10 17:08 上传

点击文件名下载附件

okenny

zhaogang1960 发表于 2012-1-10 17:08

谢谢你版主,非常感激

okenny

zhaogang1960 发表于 2012-1-10 17:08

版主版主，能不能增加一个功能是当不输入任何搜索条件，直接点查询键，所有数据都显示出来呢？急～～～急～～～～谢谢

zhaogang1960

okenny 发表于 2012-1-17 10:26
版主版主，能不能增加一个功能是当不输入任何搜索条件，直接点查询键，所有数据都显示出来呢？急～～～急 ...

没有理解，请上传附件并说明

okenny

zhaogang1960 发表于 2012-1-17 10:54
没有理解，请上传附件并说明

点击查看所有就显示出所有资料

zhaogang1960

okenny 发表于 2012-1-17 11:49
点击查看所有就显示出所有资料

1. Private Sub CommandButton1_Click()
   
2.     Call ClearContent_Click
   
3.     For Each sh In Worksheets
   
4.         If sh.Name <> "Result" Then sh.[a1].CurrentRegion.Offset(1).Copy [a65536].End(xlUp).Offset(1)
   
5.     Next
   
6. End Sub
   

复制代码

okenny

zhaogang1960 发表于 2012-1-17 12:56

你好版主，资料能显示出来，不过还把每一个表的字段名也显示了