VBA数据有效性互斥

最新推荐文章于 2023-05-10 15:37:24 发布

weixin_33827590

最新推荐文章于 2023-05-10 15:37:24 发布

阅读量193

点赞数

文章标签： python

原文链接：https://my.oschina.net/tedzheng/blog/882523

版权

2019独角兽企业重金招聘Python工程师标准>>>

用VBA进行有效性互斥的设置

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim D As Object
Dim i
Dim m
Set D = CreateObject("Scripting.Dictionary")
For i = 1 To 5
    D(i) = ""
Next i
For m = 1 To Cells(65536, 1).End(xlUp).Row
    If D.exists(Cells(m, 1).Value) Then D.Remove Cells(m, 1).Value
Next m
If D.Count < 1 Then Exit Sub
With Target.Validation
    .Delete
    .Add 3, 1, 1, Join(D.keys, ",")
End With
End Sub

转载于:https://my.oschina.net/tedzheng/blog/882523