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

文/江觅

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

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

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

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

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

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

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

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

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

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

用这个文件，3秒找到，方便不说，节省的时间用来聊天不香吗！

当然了，工作时间不能聊天。

文件格式也贴出来了，有什么问题希望给留言。不留也没关系，反正我不会再去关注这个东西了，毕竟还有很多事情要做。

自定义设置，真的很有用，谁用谁知道。

重点把搜索代码保留一下，虽然不多，但功能实在用着爽。

Private Sub TextBox1_Change()Dim w As Worksheet, s As WorksheetSet w = Worksheets("文件目录")w.ActivateDim iRow As Integer, iCol As IntegeriRow = w.Range("A65535").End(xlUp).RowiCol = w.Range("A1").End(xlToRight).ColumnDim Rcells As RangeSet Rcells = w.Range("B2:B" & iRow)Dim values As Stringvalues = VBA.UCase(VBA.Trim(Me.TextBox1.Value))If VBA.Len(values) = 0 Then Exit SubMe.ListView1.ListItems.ClearDim lisObj As ObjectDim x As RangeFor Each x In RcellsSet xr = x.Find(values)If Not xr Is Nothing ThenSet lisObj = Me.ListView1.ListItems.AddWith lisObj.Text = w.Cells(x.Row, 1).ValueFor i = 1 To iCol - 1.SubItems(i) = w.Cells(x.Row, i + 1).ValueNextEnd WithEnd IfNext xSet xr = NothingSet Rcells = NothingSet w = NothingEnd Sub