用vba生成员工预约办公室系统代码，要求生成员工的预约记录

以下是一个简单的 VBA 代码，用于生成员工预约办公室系统记录：

Sub CreateAppointmentRecord()

    '设置变量
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim empName As String
    Dim appDate As Date
    Dim appStartTime As String
    Dim appEndTime As String
    
    '选择工作表
    Set ws = ThisWorkbook.Sheets("预约记录")
    
    '获取最后一行的行数
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '获取员工名称
    empName = InputBox("请输入员工姓名：")
    
    '获取预约日期
    appDate = InputBox("请输入预约日期，格式为yyyy/mm/dd：")
    
    '获取预约开始时间
    appStartTime = InputBox("请输入预约开始时间，格式为hh:mm：")
    
    '获取预约结束时间
    appEndTime = InputBox("请输入预约结束时间，格式为hh:mm：")
    
    '将新预约记录添加到工作表中
    ws.Cells(lastRow + 1, "A").Value = empName
    ws.Cells(lastRow + 1, "B").Value = appDate
    ws.Cells(lastRow + 1, "C").Value = appStartTime
    ws.Cells(lastRow + 1, "D").Value = appEndTime
    
    '提示用户记录已添加
    MsgBox "员工预约记录已添加！"
    
End Sub

这个代码会提示用户输入员工姓名、预约日期、预约开始时间和预约结束时间，并将这些信息添加到名为“预约记录”的工作表中。注意，这只是一个简单的示例代码，你需要根据你的具体需求进行修改和完善。