如何让Excel宏弹窗指定员工行与PTO列并增减时长？

以下是优化后的宏代码，实现弹窗选择员工行和PTO类型、自动扣除8小时的功能：

Private Sub cbPlusTimeJR_Click()
    Dim employeeRow As Variant
    Dim ptoType As Integer
    Dim targetColumn As String
    
    ' 获取员工行号（弹窗输入）
    employeeRow = InputBox("请输入要调整的员工所在行号：", "选择员工行")
    
    ' 校验输入是否为有效数字（假设第1行是表头，行号从2开始）
    If Not IsNumeric(employeeRow) Or employeeRow < 2 Then
        MsgBox "请输入有效的行号（需大于等于2的数字）", vbExclamation
        Exit Sub
    End If
    
    ' 选择PTO类型
    ptoType = MsgBox("选择要扣除的PTO类型：" & vbCrLf & "是 = Personal time" & vbCrLf & "否 = Vacation time", vbYesNo + vbQuestion, "选择PTO类型")
    
    ' 根据选择确定目标列（Vacation time列可根据实际位置修改）
    If ptoType = vbYes Then
        targetColumn = "F" ' Personal time列
    Else
        targetColumn = "G" ' 示例Vacation time列，按需调整
    End If
    
    ' 执行扣除操作
    Range(targetColumn & employeeRow).Value = Range(targetColumn & employeeRow).Value - 8
    
    MsgBox "已成功扣除8小时PTO", vbInformation
End Sub

关键功能说明： #

• 弹窗输入员工行号，同时校验输入有效性，避免无效操作
• 通过选择弹窗确定PTO类型，自动匹配对应列
• 操作完成后弹出成功提示，提升使用体验

内容的提问来源于stack exchange，提问作者roman.harpole