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