您現在的位置是：首頁 > 垂釣
如何進行合同管理，Excel vba 輕鬆解決
- 由 江覓易見 發表于 垂釣
- 2022-08-15
如何用excel管理合同臺賬
合同管理在公司運營過程中是一個很常見的工作內容。
隨著公司交易次數增加，合同數量也會逐漸增加，各種不同的合同管理就顯得十分必要了。
介紹一種合同管理方法，當然了，是一些最基本的Excel方法，主要利用vba程式碼實現合同管理的一種工作方式。
合同管理表
表中基本涵蓋了合同相關內容，其中就是對合同資訊進行一下儲存，其實就這點功能。
具體操作，在下面介紹。
管理頁
這是個管理入口，用Form表單製作而成，分四個功能項，新增合同、合同查詢、合同續約、系統設定。
新增合同
新增合同是開始操作，如果不新增合同資訊，後面的操作就沒辦法進行。
當然了，這步操作之前還有一個設定操作，這裡不做介紹，主要是因為設定很枯燥，沒有讓人感覺有成就的事情，略過。
新增專案也看到了有些是文字框，要手動輸入，比如合同名稱、編號等。
有些是已經設定好的選項，下拉框選擇就可以，比如，分類、簽約方式等等。
合同續約
其實主要做了這個功能，因為有些合同不是用一次就不用了，比如用工合同，常常要續簽。
所以做這個續約相對簡單的一個操作。
選擇合同編號，然後檢查合同內容，確認無誤就在右邊操作續簽。
其實這個也有不完善的地方，暫時沒有完善，之後遇到問題再解決吧！
可能，再也不會遇到問題，主要是似乎並不需要做這個工作。
合同查詢
查詢功能不用說太多了，這是必備。
其中可以實現合同名查詢和合同號查詢，除了這兩項查詢，還增加了到期合同查詢。
說白了就是把所有過期合同找出來，很簡單單擊選擇框就顯示出來了。
最重要的是實現了合同檢視功能。
就是那個檢視合同文字按鈕。
選中要檢視的合同，單擊這個按鈕就開啟合同檔案了，預設是Word檔案。
如果是PDF或其它檔案格式，很抱歉，不支援。
還有個問題沒有解決，開啟word檔案的時候是隻讀模式，不知道為什麼，也不做研究了，希望有明白的朋友，留言告知一下。
程式碼
每次要把程式碼貼一點出來，可能是主要以vba程式碼形式來表現才能使這個功能顯得十分優雅吧！
合同續簽程式碼：
Private Sub CommandButton1_Click（）
Dim vName As String， vDate As Integer
vDate = VBA。Val（Me。ComboBox2。Value）
vName = VBA。Trim（Me。ComboBox3。Value）
If VBA。Len（vName） = 0 Or VBA。Len（vDate） = 0 Then Exit Sub
Dim vArr（）， Ti As Integer
Ti = Me。Frame1。Controls。Count
If Ti <= 0 Then Exit Sub
ReDim vArr（1 To Ti）
Dim vi As Integer
Dim vobj As Object
For Each vobj In Me。Frame1。Controls
If VBA。Left（vobj。Name， 2） = “L0” Then
vi = vi + 1
vArr（vi） = vobj。Caption
End If
Next vobj
Dim vsAr
vsAr = 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） + 1
vArr（11） = vName
Dim iRow As Integer， iCol As Integer
Dim w As Worksheet
Set w = ThisWorkbook。Worksheets（“合同管理”）
w。Activate
iCol = w。Range（“AX1”）。End（xlToLeft）。Column
w。Rows（2）。Insert
w。Range（w。Cells（2， 1）， w。Cells（2， iCol））。Select
With Selection
。Borders。LineStyle = 1
。Interior。Color = RGB（235， 235， 235）
。Font。ColorIndex = 1
。Value = vArr
End With
MsgBox vArr（2） & VBA。vbCrLf & “合同簽約成功！”， vbInformation， “成功”
Me。ComboBox1。Value = “”
End Sub
歡迎關注收藏
這裡有更多Excel辦公解決方案