免费99精品国产自在现线观看_人妻少妇精品视频区性色_丝袜 屁股 在线 国产_无码视频在线免费观看

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

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

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

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

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

合同管理表

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

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

具體操作,在下面介紹。

管理頁

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

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

添加合同

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

添加合同是開始操作,如果不添加合同信息,后面的操作就沒辦法進行。

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

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

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

合同續(xù)約

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

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

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

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

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

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

合同查詢

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

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

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

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

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

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

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

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

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

代碼

合同管理如何進行,用Excel vba 編程,就這么簡單(怎樣制作合同管理的excel表格)

每次要把代碼貼一點出來,可能是主要以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辦公解決方案

相關(guān)新聞

聯(lián)系我們
聯(lián)系我們
在線咨詢
分享本頁
返回頂部