合同管理在企业运营全过程中是一个很普遍的工作职责。

伴随着企业买卖频次提升，合同书总数也会慢慢提升，各种各样不一样的合同管理就看起来十分必要了。

详细介绍一种合同管理方式 ，当然，是一些最基础的Excel方式 ，关键运用vba代码完成合同管理的一种工作方式。

合同管理表

表格中基础包含了合同书相关内容，在其中便是对合同信息开展一下储存，实际上就这一点功能。

实际操作，在下面详细介绍。

管理方法页

它是个管理方法通道，用Form表单制作而成，分四个功能项，添加合同书、合同书查询、合同书续签、系统配置。

添加合同书

添加合同书是刚开始操作，如果不添加合同信息，后边的操作就没法开展。

当然，这步操作以前还有一个设定操作，这儿不做详细介绍，关键是由于设定很枯燥乏味，沒有令人觉得有造就的事儿，忽略。

添加新项目也看到了一些是输入框，要手动式键入，例如合同书名字、序号等。

一些是早已设定好的选择项，下拉列表挑选就可以，例如，归类、签订方法这些。

合同书续签

实际上关键干了这一功能，由于一些合同书并不是用一次就不需要了，例如用工协议，经常要继签。

因此 做这一续签相对性简易的一个操作。

挑选合同编号，随后查验合同书內容，确定准确无误就在右侧操作继签。

实际上这一也是有不健全的地区，暂时没有健全，以后碰到难题再处理吧！

很有可能，再也不能碰到难题，主要是好像并不一定做这一工作中。

合同书查询

查询功能别说太多了，它是必需。

在其中能够 完成合同书名查询和合同书号查询，除开这两项查询，还提升了期满合同书查询。

简言之便是把全部到期合同书找出去，非常简单点击选择框就显示信息出来。

最重要的是完成了合同书查询功能。

就是那个查询合同格式按键。

选定要查询的合同书，点击这一按键就开启合同书文档了，默认设置是Word文档。

如果是PDF或其他格式文件，抱歉，不兼容。

也有个难题沒有处理，开启word文档的情况下是写保护方式，不清楚为何，都不做科学研究了，期待有搞清楚的盆友，留言板留言告之一下。

编码

每一次要把编码贴一点出去，可能是关键以vba代码方式来主要表现才可以使这一功能看起来十分雅致吧！

合同续签编码：

Private Sub CommandButton1_Click()Dim vName As String, vDate As IntegervDate = VBA.Val(Me.ComboBox2.Value)vName = VBA.Trim(Me.ComboBox3.Value)If VBA.Len(vName) = 0 Or VBA.Len(vDate) = 0 Then Exit SubDim vArr(), Ti As IntegerTi = Me.Frame1.Controls.CountIf Ti <= 0 Then Exit SubReDim vArr(1 To Ti)Dim vi As IntegerDim vobj As ObjectFor Each vobj In Me.Frame1.ControlsIf VBA.Left(vobj.Name, 2) = "L0" Then vi = vi 1 vArr(vi) = vobj.Caption End IfNext vobjDim vsArvsAr = VBA.Split(vArr(2), "_", 2)vArr(2) = vsAr(0) & "_ " & vArr(9) 1 '合同编号vArr(7) = vArr(8)vArr(8) = VBA.CDate(vDate * 365) VBA.CDate(vArr(8))vArr(9) = vArr(9) 1vArr(11) = vNameDim iRow As Integer, iCol As IntegerDim w As WorksheetSet w = ThisWorkbook.Worksheets("合同管理")w.ActivateiCol = w.Range("AX1").End(xlToLeft).Columnw.Rows(2).Insertw.Range(w.Cells(2, 1), w.Cells(2, iCol)).SelectWith Selection .Borders.LineStyle = 1 .Interior.Color = RGB(235, 235, 235) .Font.ColorIndex = 1 .Value = vArrEnd WithMsgBox vArr(2) & VBA.vbCrLf & "合同书签订取得成功！", vbInformation, "取得成功"Me.ComboBox1.Value = ""End Sub

热烈欢迎关心个人收藏

这里有大量Excel办公室解决方法

文章转载自网络，如有侵权，请联系api@1dq.com删除