合同會籤審批流程，VBA程式碼實現方法

No.1

合同會籤是一個重要過程，整個過程都關係到許可權的使用，一般情況下，做個表格，找各相關負責人簽字確認就行了。

本節將以一個示例來，演示一下實現過程，重點關注程式碼程式設計方法。

上圖為合同會籤記錄表，左側為操作按鈕實現不同的功能。

首先錄入記錄，此項表單中，不涉及會籤項目，所以所有部門意見均為預設值空。

下面進入會籤頁，表單可以自動列出未籤記錄，選擇合同號顯示合同資訊，右側功能頁可實現簽字確認。

至於許可權管理，這裡沒有重點做出來，需要進行分別登入，也就是說要進行登入後，相應的操作才可以繼續進行簽字。

以上表單均以VBA程式碼方式來生成，其中編碼理念就是無中生有，看後臺全是一片程式碼，當然了，任何計算機顯示出來的內容，其低層均是程式碼，這個無可厚非。

No.2

程式碼

本節程式碼進行了一個全新的編排，至少對我來說是一個新的方法。

其實編碼有N多種方法進行編輯，當你敲的程式碼多了，自然而然就會發現另一種方法使用起來，就特別地新穎。

Form表單Initialize過程程式碼：

Private Sub UserForm_Initialize()setForm MesetLabel Me.Label1, "合同申批會籤" '合同會籤setLabel2 Me.Label2, "選擇合同：", 50, Me.Label1.Height + 10setCombox Me.ComboBox1setFrame Me.Frame1, 450, 350, Me.ComboBox1.Left, "合同資訊"setFrame Me.Frame2, 450, 350, Me.Frame1.Left + Me.Frame1.Width + 10, "會籤資訊"setBtn Me.CommandButton1, Me.Frame2.Top + Me.Frame2.Height + 10, Me.Frame2.Left, "確 定"setBtn Me.CommandButton2, Me.CommandButton1.Top, Me.CommandButton1.Left + Me.CommandButton1.Width + 5, "關 閉"AddLabelTitel getCell(ActiveSheet, 2, 3), Me.Frame1 '新建表題AddLabelTitel getCell(ActiveSheet, 2, 3).Resize(1, 6).Offset(0, 6), Me.Frame2 '新建表題AddCombobox getCell(ActiveSheet, 2, 3).Resize(1, 6).Offset(0, 6), Me.Frame2, 100, 20, 100End Sub

單單看如上程式碼，真得沒有頭緒，即便是懂VBA的情況下，也看不出個所以然來，因為這些都是以過程或函數的方式來進行呼叫的。

如下幾個可實現過程方法。

定義Frame屬性：

Private Sub setFrame(xFrameObj As Object, wi As Long, hi As Long, li As Long, Ccstr As String)With xFrameObj.Top = .Parent.ComboBox1.Top + .Parent.ComboBox1.Height + 5.Left = .Parent.ComboBox1.Left.Width = wi.Height = hi.Left = li.Caption = CcstrEnd WithEnd Sub

定義ComboBox組合框

Private Sub setCombox(ComboxObject As Object)With ComboxObject.Clear.Width = 220.Height = 28.Left = .Parent.Label2.Left.Top = .Parent.Label2.Top + .Parent.Label2.Height + 5.BorderStyle = 1.Style = 2With .Font.Size = 12.Name = "微軟雅黑"End WithEnd WithgetComBoxList getRowCell(ActiveSheet, 2, 16), ComboxObject '設定求籤合同End Sub

這裡簡單說明一下編碼方式和實現過程，由於沒有全部完善，就不做過多介紹了。

歡迎關注、收藏

---END---