合同管理在公司運(yùn)營過程中是一個很常見的工作內(nèi)容

隨著公司交易次數(shù)增加，合同數(shù)量也會逐漸增加，各種不同的合同管理就顯得十分必要了。

介紹一種合同管理方法，當(dāng)然了，是一些最基本的Excel方法，主要利用vba代碼實現(xiàn)合同管理的一種工作方式。

合同管理表

表中基本涵蓋了合同相關(guān)內(nèi)容，其中就是對合同信息進(jìn)行一下存儲，其實就這點(diǎn)功能。

具體操作，在下面介紹。

管理頁

這是個管理入口，用Form表單制作而成，分四個功能項，添加合同、合同查詢、合同續(xù)約、系統(tǒng)設(shè)置。

添加合同

添加合同是開始操作，如果不添加合同信息，后面的操作就沒辦法進(jìn)行。

當(dāng)然了，這步操作之前還有一個設(shè)置操作，這里不做介紹，主要是因為設(shè)置很枯燥，沒有讓人感覺有成就的事情，略過。

添加項目也看到了有些是文本框，要手動輸入，比如合同名稱、編號等。

有些是已經(jīng)設(shè)置好的選項，下拉框選擇就可以，比如，分類、簽約方式等等。

合同續(xù)約

其實主要做了這個功能，因為有些合同不是用一次就不用了，比如用工合同，常常要續(xù)簽。

所以做這個續(xù)約相對簡單的一個操作。

選擇合同編號，然后檢查合同內(nèi)容，確認(rèn)無誤就在右邊操作續(xù)簽。

其實這個也有不完善的地方，暫時沒有完善，之后遇到問題再解決吧！

可能，再也不會遇到問題，主要是似乎并不需要做這個工作。

合同查詢

查詢功能不用說太多了，這是必備。

其中可以實現(xiàn)合同名查詢和合同號查詢，除了這兩項查詢，還增加了到期合同查詢。

說白了就是把所有過期合同找出來，很簡單單擊選擇框就顯示出來了。

最重要的是實現(xiàn)了合同查看功能。

就是那個查看合同文本按鈕。

選中要查看的合同，單擊這個按鈕就打開合同文件了，默認(rèn)是Word文件。

如果是PDF或其它文件格式，很抱歉，不支持。

還有個問題沒有解決，打開word文件的時候是只讀模式，不知道為什么，也不做研究了，希望有明白的朋友，留言告知一下。

代碼

每次要把代碼貼一點(diǎn)出來，可能是主要以vba代碼形式來表現(xiàn)才能使這個功能顯得十分優(yōu)雅吧！

查看合同代碼：

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

歡迎關(guān)注收藏

這里有更多Excel辦公解決方案