Excel VBA 跨表 批量设置数据有效性,悬赏100,如各位大神马上帮忙解决,马上加100

两个 sheet : 数据源, “数据有效性引用” , 两在同一工作薄内, 格式完全一样

“ 数据源 ” A3:A1000 数据有效性系列 来源 为 "数据有效性引用" Range(A3:A4) (要求序列 可添加, 即 可能会新增A5, 那么序列变为A3:A5, 意思是 A3 :A (xlendup row))
“ 数据源 ” B3:B1000 数据有效性系列 来源 为 "数据有效性引用" B3:B4, 同样要求序列可添加, 即 B3 : B列 最后一非空单元格

同理 : C3:C1000 来源于 数据有效性引用 C3:C 列最后非空单元格 行

在此真诚感谢各位帮忙,
希望描述清楚了, 如仍有不明 请提出,谢谢

第1个回答  2011-02-27
建议:先将“数据有效性引用 ”工作表中的A3:A4所在列A:A定义为名称Randata,然后选中数据源工作表中的A3:A1000设置有效条件为允许“序列”,来源为“=Randata”即可。
其他类似。追问

randata : =OFFSET(数据有效性引用!A$1,0,0,MAX((数据有效性引用!A$1:A$10"")*ROW(数据有效性引用!A$1:A$10))) 这个比你设置的更好,还是动态的, 请看清楚 标题, 大哥

追答

交流学习中,谢谢!

追问

按你设置的, 我有500列, 你设500次是不是?

第2个回答  2011-03-05
这个问题我回答过,还发到你邮箱了
这次完善了代码,你在修改 数据有效性引用 这个表时
database表数据有效性会自动修改
希望是你需要的

修改后的excel表已发到你邮箱本回答被提问者采纳
相似回答