[已解决]精简一下，谢谢

fangniuji

Sub Macro2()
'
' Macro2 Macro
'
'
    Range("D3").Select
     
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Bs"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
   Range("D4").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Bs"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
   
End Sub
我录个宏大家帮我精简一下，谢谢.D3,D4等于数据有效性,数据单元格区域Bs

最佳答案

月排行榜 / 总排行榜

Zipall

2014-5-3 17:08

1. Sub test()
   
2.     With Range("d3:d4").Validation
   
3.         .Delete
   
4.         .Add xlValidateList, , , "=bs"
   
5.     End With
   
6. End Sub

复制代码

跳转到最佳答案楼层

Zipall

1. Sub test()
   
2.     With Range("d3:d4").Validation
   
3.         .Delete
   
4.         .Add xlValidateList, , , "=bs"
   
5.     End With
   
6. End Sub

复制代码

yewei113

经典

yewei113

vba就是好呀

傲世笑笑

建议以后在代码后加上备注，方便我们这么小白，学习

Zipall

傲世笑笑 发表于 2014-5-3 17:29
建议以后在代码后加上备注，方便我们这么小白，学习

单击 Validation 然后按F1

蓝粆

录制宏的吧~~真纠结看得~~