合同管理在公司运营过程中是一个很常见的工作内容

随着公司交易次数增加，合同数量也会逐渐增加，各种不同的合同管理就显得十分必要了。

介绍一种合同管理方法，当然了，是一些最基本的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办公解决方案