文件存放目录管理再也不用担心找不到文件了

　　文江觅
　　文件管理方面，对于文件存放是一项比较烦乱的工作，假如不是有条理的人，那么办公文件随处丢弃也是常见的。
　　这样不仅寻找起来比较困难，对于工作也不利。
　　如果将工作流程理清楚了，文件管理也不是什么太要命的事儿。就像图书管理一样，成千上万本书要按类别摆放，分类进行查询和检索，一切都将变得有序而轻松。
　　这是个文件存放记录表的操作，使用的时候结合实际办公文件存放位置和文件柜进行有序整理。
　　特别不喜欢邋里邋遢的人，做一件清爽的事情不发吗？找什么文件都要翻天覆地一番，最终也不知道文件在何处安息。
　　遇到这样的文员，就受着吧！
　　很明显，我是那种不会做，但又看别人做得不好的人，这就是说，为了区别我和别人，花了几个小时把这个文件存放管理给理顺了一下。
　　如果，按这样的一种工作思路保存文件，大概不会太麻烦吧！
　　文件查询是个有用的功能，因为大多数时间是对想要看的文件找出来，这个过程就浪费了许多精力。
　　有些乱七八糟的文件放到几个横七竖八的文件柜子里，找起来真的要命。
　　用这个文件，3秒找到，方便不说，节省的时间用来聊天不香吗！
　　当然了，工作时间不能聊天。
　　文件格式也贴出来了，有什么问题希望给留言。不留也没关系，反正我不会再去关注这个东西了，毕竟还有很多事情要做。
　　自定义设置，真的很有用，谁用谁知道。
　　重点把搜索代码保留一下，虽然不多，但功能实在用着爽。
　　PrivateSubTextBox1Change（）
　　DimwAsWorksheet，sAsWorksheet
　　SetwWorksheets（文件目录）
　　w。Activate
　　DimiRowAsInteger，iColAsInteger
　　iRoww。Range（A65535）。End（xlUp）。Row
　　iColw。Range（A1）。End（xlToRight）。Column
　　DimRcellsAsRange
　　SetRcellsw。Range（B2：BiRow）
　　DimvaluesAsString
　　valuesVBA。UCase（VBA。Trim（Me。TextBox1。Value））
　　IfVBA。Len（values）0ThenExitSub
　　Me。ListView1。ListItems。Clear
　　DimlisObjAsObject
　　DimxAsRange
　　ForEachxInRcells
　　Setxrx。Find（values）
　　IfNotxrIsNothingThen
　　SetlisObjMe。ListView1。ListItems。Add
　　WithlisObj
　　。Textw。Cells（x。Row，1）。Value
　　Fori1ToiCol1
　　。SubItems（i）w。Cells（x。Row，i1）。Value
　　Next
　　EndWith
　　EndIf
　　Nextx
　　SetxrNothing
　　SetRcellsNothing
　　SetwNothing
　　EndSub