办公活动中，不免存在一些文件传阅，这在办公室部门日常工作当中是一项很普遍的事项。
管理主页
功能很简单，有添加批阅文件、批阅、和查询三个基本功能组成。
虽然有些公司实行了内网或ERP办公模式，但是可能有公司没有，所以造成文件批阅统计不全面及时，也可能出现某些部门没有查阅到文件，漏阅。
还有些问题是一些公司的内网办公做得真是无法形容，想要看什么文件，感觉就是像在寻宝，就是让你找不到。
遇到这种情况也是很无奈。
下面介绍一个文件批阅记录应用方法，Excel表格内容。
文件批阅信息表格
表内字段也不多，主要有文件编号、文件名、发文单位、批阅人、批阅意见、时间等内容。
以下所有操作都以这个表为基础进行，不然无法进行。
添加批阅文件
这是个Form表单，是文件录入的入口，也是做表格的重要一步，所有批阅文件要从这里输入。
文件批阅
这里自动显示出未批阅的文件目录，查看后执行批阅工作。
文件查看没有做，需要做一个超链接打开Word或PDF文件，这里不做研究。
文件批阅查询
以文件名为关键字进行查询，可以查到所有文件信息。似乎也没什么，完成这个功能，可以方便检索批阅文件的状态。
批阅代码
Private Sub CommandButton1_Click()Dim wjNumb As StringwjNumb = Me.ListView1.SelectedItem.SubItems(2)If VBA.Len(wjNumb) = 0 Then Exit SubDim w As Worksheet, s As WorksheetSet w = ThisWorkbook.Worksheets("文件批阅")w.ActivateDim iRow As Integer, iCol As IntegeriRow = w.Range("C65535").End(xlUp).RowiCol = w.Range("AZ1").End(xlToLeft).ColumnDim Rcells As RangeSet Rcells = w.Range("C2:C" & iRow)Dim values As Stringvalues = wjNumbDim lisObj As ObjectDim x As Range, xr As RangeDim cons As StringFor Each x In RcellsIf x.Value = values Then cons = InputBox("批阅意见", "批阅", "同意") If VBA.Len(cons) = 0 Then Exit Sub x.Offset(0, 4).Value = "已阅" x.Offset(0, 5).Value = cons x.Offset(0, 6).Value = VBA.Format(VBA.Date, "yyyy/mm/dd") End IfNext xMe.ListView1.ListItems.Remove Me.ListView1.SelectedItem.IndexEnd Sub
关于使用Listview控件的一些问题，可能由于这个控件不是默认安装，所以在一些用户使用的时候不能正确显示，或报错无法进行下去。
其实，这个控件好是好，但真的是不友好。所以，在尽可能的情况下，以后还是少用这个控件，不然再好也不能使用，真没有多大意义。
欢迎关注、收藏
