Excel VBA 根据下拉框单元格的值来改变另一个下拉框单元格的值

在很多的报表开发中，需要用到VBA去设置Excel的一些规则。 

以下是一个根据下拉框单元格的值来给特定单元格进行赋值的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next:
    Application.ScreenUpdating = False
    If Target.Column = 7 Then        // 这是需要赋值的DDL列
        If Target.Offset(0, -2).Value = 13 Then  //表示赋值列往前移动两个单位的格子值
            With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
             xlBetween, Formula1:="No"   //赋值为No
            .IgnoreBlank &