VBA员工出差管理系统(上）

提示：文章写完后，目录可以自动生成，如何生成可参考右边的帮助文档

前言

提示：这里可以添加本文要记录的大概内容：

面试上了Excel（vba）工程师，第一次来记录一下自己的博客，日常学习的内容，上传到CSDN博客中，主要是自学的一些知识点，希望大家可以提提建议，谢谢。

---

提示：以下是本篇文章正文内容，下面案例可供参考

一、员工出差管理系统

本章将使用Excel VBA 的用户窗体及程序代码制作一个简单的员工出差管理系统，该系统的主要功能为：能以对话框交互的方式录入出差信息，并自动根据公司的出差规定计算预支费用；能根据录入的出差行程设置提醒，在打开工作簿时会自动弹出对话框显示即将到来的出差行程；能快速显示当天在外出差的人员，以便进行人员调配。

这个是员工出差记录表，可以参考一下。

二、交互式录入出差记录

1.设计“出差信息录入”用户窗体

图片（示例）完成结果：出差信息录入用户窗体：

2.编写控件的对应事件代码

2.1 这个是往返日期中的前往日期和返回日期设置的代码，能够让用户可以在窗体中进行录入员工信息。
代码如下（示例）：

Private Sub Sday1_Change()
'设置前往日期中的日
       day1 = Sday1
End Sub
Private Sub Smonth1_Change()
'设置前往日期中的月份
  month1 = Smonth1
End Sub
Private Sub Syear1_Change()
    '设置前往日期中的年份
    year1 = Syear1
End Sub
Private Sub Syear2_Change()
  '设置返回日期中的年份
  year2 = Syear2
  
End Sub
Private Sub Smonth1_Change()
   '设置返回日期中的月份
   month2 = Smonth2
End Sub
Private Sub Sday2_Change()
   '设置返回日期中的日
   day2 = Sday2
End Sub

year1，month1,day1 是前往日期的设置，也是按钮控件的名字；year2,month2,day2是返回日期的设置，也是按钮控件的名字。

---

2.2 为“取消”按钮添加相应的代码
代码如下（示例）：

'定义变量保存当前行号
Public rowindex As Integer
'取