关于在Thisworkbook批量建立数据有效性的问题

财知道

　　在线求助：我想把附件里的“录入表”下的代码写入到工作簿的Thisworkbook里（因为录入表有时会要删除，那样代码就没了），在线求助大神帮下忙。另外代码建立的数据有效性为什么“支出功能科目”那一列无效？（不知道是不是太多行了，我尝试着少一些行就有效）

　　代码是为了实现如下功能：当第“录入表”二列不为空时，在该表的第三列开始依据数据源表第四列起建立数据有效性。本人ＶＢ菜鸟一个，恳请大神指点。

财知道

有大神出手了吗？在线等……我自己做的要在录入表第二列后的每列双击鼠标才会出现数据有效性下拉选项，而我想要的效果是，只要第二列一改变就自动跳出所有数据有效性下拉选项。

WANT-T

1、通常我们会把代码写到模块里，而不是工作表里；
2、以下内容为，我自己经常用的，向单元格区域添加数据有效性下拉菜单的通用方法：其中参数2：addlist为添加的清单，是一个以英文逗号拼接的字符串；如，"内容1,内容2,内容3",直接调用这个过程，输入对应的参数，即可！

1. Public Sub 向单元格添加列表(rng As Range, addlist As String)
   
2.     With rng.Validation
   
3.         .Delete
   
4.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=addlist
   
5.         .IgnoreBlank = True
   
6.         .InCellDropdown = True
   
7.         .InputTitle = ""
   
8.         .ErrorTitle = ""
   
9.         .InputMessage = ""
   
10.         .ErrorMessage = ""
    
11.         .IMEMode = xlIMEModeNoControl
    
12.         .ShowInput = True
    
13.         .ShowError = False
    
14.     End With
    
15. End Sub

复制代码

3、祝工作顺利，天天开心；

财知道

WANT-T 发表于 2023-2-13 16:12
1、通常我们会把代码写到模块里，而不是工作表里；
2、以下内容为，我自己经常用的，向单元格区域添加数据 ...

这个addlist超多怎么办？能自动获取吗？能麻烦具体搞个例子不？

WANT-T

财知道 发表于 2023-2-13 16:44
这个addlist超多怎么办？能自动获取吗？能麻烦具体搞个例子不？

我到是能提供一个方法，不过不一定适合你，我是用的ado_sql，来操作的，对新手并不友好

1. Public Function 需求负责人清单() As String
   
2.     Dim SQL As String, Arr()
   
3.     SQL = "SELECT DISTINCT 开发人员 " & _
   
4.             "FROM [开发人员清单] " & _
   
5.             "WHERE 人员是否有效='是'"
   
6.     Ado_Open
   
7.     Arr = Application.WorksheetFunction.Transpose(GetArray(GetRecordSet(SQL)))
   
8.     Ado_Close
   
9.     需求负责人清单 = Join(Arr, ",")
   
10. End Function

复制代码

财知道

还是没有得到适合的答案，继续在线等，希望大神们出出手，别沉了啊。

财知道

贴子沉了吗？继续等待中…………

WANT-T

财知道 发表于 2023-2-14 08:22
还是没有得到适合的答案，继续在线等，希望大神们出出手，别沉了啊。

我这个是相对系统化一些，如果你要求没有这么高，就用数据循环加字典，拼接以下字符串就可以了！

财知道

这个问题是太没技术性了还是大神还没出来看啊，怎么没人能给个直接的解答啊

财知道

WANT-T 发表于 2023-2-14 15:41
我这个是相对系统化一些，如果你要求没有这么高，就用数据循环加字典，拼接以下字符串就可以了！

能麻烦您就用我的例子，按我的要求帮我整个吗？