Ecel VBA编程 典型实例——设计工资录入窗口.docxVIP

Excel VBA 编程 典型实例——设计工资录入窗口 某单位在发放工资时，每次都需要在 Excel 中作表中对员工的工资的进行统计，并计算后，再次时行汇总得出最后结果，这样很容易造成操作性的错误。如果这些数据输入到用户窗体中，并使用程序来进行处理计算，则会减少操作错误的，保证了数据的安全和准确。本例将在VBE 环境中设计一个工资录入的用户窗口，使用户掌握用户窗体的设计和属性的设置及事件代码的编写。 练习要点 用户窗体 使用控件 代码 操作步骤： 工资明细在工作表 Sheet1 的单元格 A1 至 M30 区域中，输入相应的信息，并设置单元格的格式，如图 12-22 所示。 工资明细 图 12-22 设置单元格 工资基础设置在工作表 Sheet2 的单元格 A1 至 G6 区域中，设置单元格格式并输入工资基础设置信息，如图 12-23 工资基础 设置 图 12-23 输入工资设置信息 提 示 提 示 这里所设置的员工类别对应岗位 工资、补贴和养老保险，所在部门对应员工的基本工资。 员工基础设置在工作表 Sheet3 的单元格A 列到 D 列中输入员工的信息，如图 12-24 员工基础 设置 图 12-24 输入员工信息 单击绘制进入 VBE 环境，创建用户窗体UserForm1，并在【控件工具箱】中，单击“标签”按钮，添加到用户窗体中，如图12-25 单击 绘制 图 12-25 添加“标签”控件 组合框文字框按钮在用户窗体中，依次加入其他的控件，并设置控件的标题名称，如图12-26 组合框 文字框 按钮 图 12-26 添加其他控件 为了便于用户的理解，窗体上的 为了便于用户的理解，窗体上的“文字框”控件都为其指定了 Text 注 意 注 意 值，该值与文字框控件的“名称” 相同，用户在使用时无需指定。 提 示 提 示 在添加【工资】栏中的控件时，应 当先添加【工资】框架控件，然后再将控件添加到“框架”控件中。 输入 I输入分别为【计算】、【确定】和【取消】按钮指定“对应键”，如图 12-27 输入 I 输入 图 12-27 指定“对应键” 提 示 提 示 选择【计算】按钮，在【属性】窗 口的 Accelerator 属性后输入“I”，在 Caption 属性值后添加“（I）”，即可指定“对应键” 选择输入图 12-28 设置“文字框”属性设置【应发工资】和【实发工资】文字框的 BackColor 属性值为“无效文本” 的，并设置 Enabled 属性值为 选择 输入 图 12-28 设置“文字框”属性 在用户窗体的【属性】窗口中，设置窗体的Caption 属性的值为“员工工资录入”，并设置控件组合框、文字框、按钮的TabIndex 属性的值。 右击用户窗体，执行【查看代码】，打开【代码窗体】，然后在右边的列表框 中选择“Initialize”事件，并在该事件中输入代码，如图12-29 所示。 用户窗体加载Private Sub UserForm_Initialize()Dim i As Integer绑定员工编号组合框,其中从工作表 Sheet3 用户窗体加载 Private Sub UserForm_Initialize() Dim i As Integer 绑定员工编号组合框,其中从工作表 Sheet3 中的单元格 A2 开始 For i = 2 To 20 ComboBox1.AddItem Sheet3.Range($A + Trim(Str(i))) Next i End Sub 在【代码】窗口中左边的对象列表框中选择对象ComboBox1，然后为其 Change 选择组合框后，执行的事件 选择组合框后，执行的事件 Private Sub ComboBox1_Change() Dim i As Integer 选择编号后，自动赋值 For i = 2 To 20 遍历工作表中员工编号 If ComboBox1.Value = Sheet3.Range($A + Trim(Str(i))) Then 找到匹配的值后,填充员工“姓名”、“部门”和“员工类别” TextBox1.Value = Sheet3.Range($B + Trim(Str(i))) TextBox2.Value = Sheet3.Range($C + Trim(Str(i))) TextBox3.Value = Sheet3.Range($D + Trim(Str(i))) End If Next i 通过部门信息设置基本工资的值 For i = 3 To 6 If If TextBox2.Value = Sheet2.Range($F + Trim(Str(i))) Then TextBox4.Value = Sheet2.Ran