使用该插件可以快速查询工程中挂载某脚本的对象，使用方法很简单，一键查找！

Office2007IconsGallery图标快速查找

1、当我们在一个 **链表** 或者 **顺序表** 中 **查找** 一个数据元素 是否存在 的时候，唯一的方法就是**遍历**整个表，这种方法称为 **线性枚举**。如果这时候，**顺序表是有序**的情况下，我们可以采用**折半**的方式去查找，这种方法称为 **二分枚举**。线性枚举 的时间复杂度为 O ( n ) ，二分枚举 的时间复杂度为 O ( l o g 2 n ) 2、PLC查找数据一般使用场景：在博图软件中预先定义好数组，根据数组下标索引到数据；那这就是一个典型的底层实现结构是一个数组，数组类型可以是任意类型，而且数组下表是有序的，那我们完全可以使用折半查找代替遍历整个表，以此通过算法节省CPU扫描时间，提升设备相应速度！（如定义1...10,快速找到上位下发第N个数组下标所存储的数据）；其优势在数组内容较大时明显

FindDupFile 会搜你指定的目录及其子目录，列出所有内容完全相同的文件（文件名可能不同），然后由用户选择删除重复的文件。 FindDupFile 虽然体积仅有100多KB，但功能很强，不但搜索速度相当迅速，而且能区出所有内容完全相同的文件（文件名可能不同），然后由用户选择删除重复文件。 从此，即使没有良好的习惯，你的硬盘空间也可以充分利用起来了！

这篇PPT是研究生开课时老师提供的参考PPT，用于快速入门研究生查找文献，确定研究方向，总结研究成果的经验

2017版图式CASS代码快速查找并进行绘制，提高编图效率。

sublime插件，用来快速定位,尽管ctags也可以支持其它编辑器，但是它正式支持的只有VIM。并且VIM中已经默认安装了Ctags，它可以帮助程序员很容易地浏览源代码。ctags也使用与sublime Text。

1.查找关键字文件名、文件目录 2.查找关键字文件内容 3.查找关键字特殊文档内容（xml,doc,ppt,pdf,log,png,jpg等）

1.查找关键字文件名、文件目录 2.查找关键字文件内容 3.查找关键字特殊文档内容（xml,doc,ppt,pdf,log,png,jpg等）

Option Explicit Private Sub CommandButton1_Click() Dim ar, br(), i&, j&, k&, m&, myFile$, myPath$, myStr$, Rng As Range, Wb, Ws, tms# Application.ScreenUpdating = False On Error Resume Next If Range("n3") = "" Then MsgBox "N列中没有要查询的内容": Exit Sub m = Range("n2").End(4).Row - 1 ar = Range("n2").Resize(m) ReDim br(65530, 5) With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then myPath = .SelectedItems(1) Else myPath = ThisWorkbook.Path End With If Right(myPath, 1) "\" Then myPath = myPath & "\" tms = Timer myFile = Dir(myPath & "*.xls*") Do While myFile "" If myFile ThisWorkbook.Name Then br(k, 1) = Left(myFile, InStrRev(myFile, ".") - 1) Set Wb = GetObject(ThisWorkbook.Path & "\" & myFile) With Wb '利用GetObject在后台打开工作簿 For Each Ws In .Worksheets '循环当前工作簿中每个工作表 br(k, 2) = Ws.Name With Ws For i = 2 To m myStr = ar(i, 1) If WorksheetFunction.CountIf(.UsedRange, "*" & myStr & "*") 0 Then Set Rng = .UsedRange.Find(myStr) Do br(k, 3) = Rng.Address(0, 0) br(k, 4) = Rng.Text br(k, 5) = myStr br(k, 0) = k + 1 k = k + 1 br(k, 1) = br(k - 1, 1) br(k, 2) = br(k - 1, 2) Set Rng = .UsedRange.Find(myStr, Rng) Loop While .UsedRange.Find(myStr).Address Rng.Address End If Next End With Next Ws .Close False '不保存关闭工作簿 End With End If myFile = Dir Loop Set Wb = Nothing Range("a1").CurrentRegion.Offset(2) = "" myStr = "很遗憾、不存在你要搜索的内容。" If k Then Range("a3").Resize(k, 6) = br Range("a3").Resize(k, 6).Borders.LineStyle = 1 以下还有内容……见附件！