合同管理在公司运营过程中是一个很常见的工作内容
随着公司交易次数增加，合同数量也会逐渐增加，各种不同的合同管理就显得十分必要了。
介绍一种合同管理 ，当然了，是一些最基本的Excel ，主要利用vba代码实现合同管理的一种工作方式。
合同管理表
表中基本涵盖了合同相关内容，其中就是对合同信息进行一下存储，其实就这点功能。
具体操作，在下面介绍。
管理页
这是个管理入口，用Form表单 而成，分四个功能项，添加合同、合同查询、合同续约、系统设置。
添加合同
添加合同是开始操作，如果不添加合同信息，后面的操作就没办法进行。
当然了，这步操作之前还有一个设置操作，这里不做介绍，主要是因为设置很枯燥，没有让人感觉有成就的事情，略过。
添加项目也看到了有些是文本框，要手动输入，比如合同名称、编号等。
有些是已经设置好的选项，下拉框选择就可以，比如，分类、签约方式等等。
合同续约
其实主要做了这个功能，因为有些合同不是用一次就不用了，比如用工合同，常常要续签。
所以做这个续约相对简单的一个操作。
选择合同编号，然后检查合同内容，确认无误就在右边操作续签。
其实这个也有不完善的地方，暂时没有完善，之后遇到问题再解决吧！
可能，再也不会遇到问题，主要是似乎并不需要做这个工作。
合同查询
查询功能不用说太多了，这是必备。
其中可以实现合同名查询和合同号查询，除了这两项查询，还增加了到期合同查询。
说白了就是把所有过期合同找出来，很简单单击选择框就显示出来了。
最重要的是实现了合同查看功能。
就是那个查看合同文本按钮。
选中要查看的合同，单击这个按钮就打开合同文件了，默认是word文件。
如果是PDF或其它文件格式，很抱歉，不支持。
还有个问题没有解决，打开word文件的时候是只读模式，不知道为什么，也不做研究了，希望有明白的朋友，留言告知一下。
代码
每次要把代码贴一点出来，可能是主要以vba代码形式来表现才能使这个功能显得十分优雅吧！
查看合同代码：
Private Sub CommandButton1_Click() On Error Resume Next Application.ScreenUpdating = False Dim Numbs As String Numbs = Me.ListView1.SelectedItem.ListSubItems(1) If VBA.Len(Numbs) = 0 Then Exit Sub Dim w As Worksheet, s As Worksheet Set w = ThisWorkbook.Worksheets("合同管理") w.Activate Dim iRow As Integer, iCol As Integer iRow = w.Range("B65535").End(xlUp).Row iCol = w.Range("A1").End(xlToRight).Column Dim R As Range Set R = w.Range("B2:B" & iRow) Dim Rx As Range Set Rx = R.Find(Numbs, lookat:=True) If Not Rx Is Nothing Then Dim Wpath As String Wpath = w.Cells(Rx.Row, iCol).Value If VBA.Len(Wpath) = 0 Then MsgBox "合同文件未找到！", vbInformation, "提示": Exit Sub Dim Worobj As Object, WorDoc As Object Set Worobj = CreateObject("word.application") Set WorDoc = Worobj.documents.Open(w.Cells(Rx.Row, iCol).Value, ReadOnly:=False) WorDoc.Active End If Application.ScreenUpdating = True End Sub
欢迎关注收藏
这里有更多Excel办公解决方案
