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

　　文/江觅
　　文件管理方面，对于文件存放是一项比较烦乱的工作，假如不是有条理的人，那么办公文件随处丢弃也是常见的。
　　这样不仅寻找起来比较困难，对于工作也不利。
　　如果将工作流程理清楚了，文件管理也不是什么太要命的事儿。就像图书管理一样，成千上万本书要按类别摆放，分类进行查询和检索，一切都将变得有序而轻松。
　　这是个文件存放记录表的操作，使用的时候结合实际办公文件存放位置和文件柜进行有序整理。
　　特别不喜欢邋里邋遢的人，做一件清爽的事情不发吗？找什么文件都要翻天覆地一番，最终也不知道文件在何处安息。
　　遇到这样的文员，就受着吧！
　　很明显，我是那种不会做，但又看别人做得不好的人，这就是说，为了区别我和别人，花了几个小时把这个文件存放管理给理顺了一下。
　　如果，按这样的一种工作思路保存文件，大概不会太麻烦吧！
　　文件查询是个有用的功能，因为大多数时间是对想要看的文件找出来，这个过程就浪费了许多精力。
　　有些乱七八糟的文件放到几个横七竖八的文件柜子里，找起来真的要命。
　　用这个文件，3秒找到，方便不说，节省的时间用来聊天不香吗！
　　当然了，工作时间不能聊天。
　　文件格式也贴出来了，有什么问题希望给留言。不留也没关系，反正我不会再去关注这个东西了，毕竟还有很多事情要做。
　　自定义设置，真的很有用，谁用谁知道。
　　重点把搜索代码保留一下，虽然不多，但功能实在用着爽。
　　Private Sub TextBox1_Change()
　　Dim w As Worksheet, s As Worksheet
　　Set w = Worksheets(＂文件目录＂)
　　w.Activate
　　Dim iRow As Integer, iCol As Integer
　　iRow = w.Range(＂A65535＂).End(xlUp).Row
　　iCol = w.Range(＂A1＂).End(xlToRight).Column
　　Dim Rcells As Range
　　Set Rcells = w.Range(＂B2:B＂ & iRow)
　　Dim values As String
　　values = VBA.UCase(VBA.Trim(Me.TextBox1.Value))
　　If VBA.Len(values) = 0 Then Exit Sub
　　Me.ListView1.ListItems.Clear
　　Dim lisObj As Object
　　Dim x As Range
　　For Each x In Rcells
　　Set xr = x.Find(values)
　　If Not xr Is Nothing Then
　　Set lisObj = Me.ListView1.ListItems.Add
　　With lisObj
　　.Text = w.Cells(x.Row, 1).Value
　　For i = 1 To iCol - 1
　　.SubItems(i) = w.Cells(x.Row, i + 1).Value
　　Next
　　End With
　　End If
　　Next x
　　Set xr = Nothing
　　Set Rcells = Nothing
　　Set w = Nothing
　　End Sub