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

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

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

合同管理表

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

具體操作，在下面介紹。

管理頁

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

添加合同

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

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

添加項(xiàng)目也看到了有些是文本框，要手動(dòng)輸入，比如合同名稱、編號(hào)等。

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

合同續(xù)約

其實(shí)主要做了這個(gè)功能，因?yàn)橛行┖贤皇怯靡淮尉筒挥昧耍热缬霉ず贤?，常常要續(xù)簽。

所以做這個(gè)續(xù)約相對(duì)簡(jiǎn)單的一個(gè)操作。

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

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

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

合同查詢

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

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

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

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

就是那個(gè)查看合同文本按鈕。

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

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

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

代碼

每次要把代碼貼一點(diǎn)出來，可能是主要以vba代碼形式來表現(xiàn)才能使這個(gè)功能顯得十分優(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辦公解決方案