文件存放目录管理，再也不用担心找不到文件了，office办公好工具

文/江觅

文件管理方面，对于文件存放是一项比较烦乱的工作，假如不是有条理的人，那么办公文件随处丢弃也是常见的。

这样不仅寻找起来比较困难，对于工作也不利。

如果将工作流程理清楚了，文件管理也不是什么太要命的事儿。就像图书管理一样，成千上万本书要按类别摆放，分类进行查询和检索，一切都将变得有序而轻松。

这是个文件存放记录表的操作，使用的时候结合实际办公文件存放位置和文件柜进行有序整理。

特别不喜欢邋里邋遢的人，做一件清爽的事情不发吗？找什么文件都要翻天覆地一番，最终也不知道文件在何处安息。

遇到这样的文员，就受着吧！

很明显，我是那种不会做，但又看别人做得不好的人，这就是说，为了区别我和别人，花了几个小时把这个文件存放管理给理顺了一下。

如果，按这样的一种工作思路保存文件，大概不会太麻烦吧！

文件查询是个有用的功能，因为大多数时间是对想要看的文件找出来，这个过程就浪费了许多精力。

有些乱七八糟的文件放到几个横七竖八的文件柜子里，找起来真的要命。

用这个文件，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