Question

请您帮我清除目标栏旁边的内容，并附上数据验证值＆＃34;没有后续跟踪＆＃34;和＆＃34;跟进完成＆＃34;。以下代码通过选择数据验证选项（案例1，案例5，案例7）帮助我在目标值列H旁边的单元格中设置下一个后续日期。基本上我想在此代码中添加一些来自我的数据验证下拉列表的选项＆＃34;没有后续跟踪＆＃34; ＆＃34;跟进完成＆＃34;并使这两个选项将内容清除到下一个单元格中。

我希望很清楚我的问题与我希望在此代码中运行的这两个新选项有关。

 Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column <> Columns("H").Column Then Exit Sub
 Select Case Target.Value2
     Case 1, 5, 7: Target.Offset(0, 1).value = NextWorkday(Date,Target.Value2)
 End Select

 End Sub

 Function NextWorkday(dtDate As Date, lngDaysToAdd As Long)
    NextWorkday = dtDate + lngDaysToAdd
    Select Case Weekday(NextWorkday, vbMonday)
        Case 6: NextWorkday = NextWorkday + 2
        Case 7: NextWorkday = NextWorkday + 1
    End Select
 End Function

根据数据验证下拉列表值清除相邻单元格内容

0 个答案: