多列同时分别按不同列设置数据有效性

转角处的沉思

请教如附件想要根据sheet2多列分别同时针对sheet1中对应列的仅标题行设置数据有效性，打开文件即生效。

longwin

请看附件。。。。

转角处的沉思

longwin 发表于 2024-7-24 13:45
请看附件。。。。

感谢帮助，效果不错，不过描述忘写只需对sheet1第一行标题这边设置有效性，第二行开始可以自由输入其它数据了。

转角处的沉思

longwin 发表于 2024-7-24 13:45
请看附件。。。。

如果在此基础上的有效性仅需对表1的第一行（即只需设置标题行）的这些列设置该如何调整代码呢，自己尝试修改未果，谢谢。

longwin

已更新，请看附件。。。。

转角处的沉思

longwin 发表于 2024-7-30 16:48
已更新，请看附件。。。。

感谢帮助，是想要的结果。之前我自己尝试调整，也想到增加Target.Row = 1这个条件，发现第二行往后还是有数据有效性产生，另外请教下模块中str1这个参数在sheet1代码中没有出现怎么也能提取啊。

longwin

set_Validation(Target, Join(WorksheetFunction.Transpose(arr), ","))

红色的就是str1, set_Validation(rng, str1)

转角处的沉思

longwin 发表于 2024-7-30 21:14
set_Validation(Target, Join(WorksheetFunction.Transpose(arr), ","))

红色的就是str1, set_Validatio ...

感谢答复，看着也像，不敢确定。