|
给你修改了下:
- Sub AddValidation()
- With Range("C3").Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="外妇科,手术室,内儿科"
- End With
- With Range("E8,G5").Validation
- .Delete
- .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
- xlBetween, Formula1:="=序列"
- End With
- End Sub
复制代码
|
|