表格操作系列
九、使用表中的某列设置单元格有效性(下拉列表)
在给表格制作下拉列表时,需要用数据有效性的方法将表中的某一个数据填到某一个格中,这样可以在使用表格时,很方便的输入数据,并且可以避免手工录入带来的数据格式或文本的不确定性。但有一个问题是,经常数据源会有重复的数据,如果把重复的数据都写到下拉列表中,显然是不合适的,下面的函数利用字典的方法去重,再设置有效性,可以解决这个问题。
函数代码
'设置单元格的有效性
Public Function SetValid(SouRng As String, TarCell As String, Optional SouSh As String = "当前表", Optional TarSh As String = "当前表") '字典使用,动态设置不重复有效性
Dim d As Object
Dim rng As Range
Dim i As Integer, lr As Integer
Dim Dic_Str As String
'On Error GoTo err
If SouSh = "" Or SouSh = "当前表" Then SouSh = ActiveSheet.Name
If TarSh = "" Or TarSh = "当前表" Then TarSh = ActiveSheet.Name
Set d = CreateObject("scripting.dictionary")
d.comparemode = vbTextCompare '采用文本的比较方式,不分大小写
With Sheets(SouSh)
If InStr(1