在很多的报表开发中,需要用到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 &