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 = Ccstr End 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 = 2 With .Font .Size = 12 .Name = "微软雅黑" End With End With getComBoxList getRowCell(ActiveSheet, 2, 16), ComboxObject '设置求签合同End Sub
这里简单说明一下编码方式和实现过程，由于没有全部完善，就不做过多介绍了。
欢迎关注、收藏
—END—
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。