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

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

介绍一种合同管理方法，当然了
，是一些最基本的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 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.ActiveEnd IfApplication.ScreenUpdating = TrueEnd Sub

欢迎关注收藏

这里有更多Excel办公解决方案