根据指定值在数据有效性序列的中间位置显示指定值对应的最大值

whlbliss · 发表于 2019-5-19 17:26

本帖最后由 whlbliss 于 2019-5-19 17:41 编辑

有两列数据，A列为“发文单位”，B列为“发文字号”，如图，

两列均根据sheet2，

设置了数据的有效性。当在“发文单位”中选择某个数据时，如图（飞人）

，
则在“发文字号”列自动打开下拉菜单，显示当前值（飞人）对应的“发文字号”中的最大值（[2019]8号），且显示在中间位置，如图

。
请问高手，这如何通过VBA编程实现。

数据有效性序列的最大值显示.rar (8.07 KB, 下载次数: 4)

whlbliss · 发表于 2019-5-19 20:44

敬请高手指点迷津，谢谢！

蓝桥玄霜 · 发表于 2019-5-20 10:24

请见代码。
动态数据有效性。

whlbliss · 发表于 2019-5-20 11:54

蓝桥玄霜发表于 2019-5-20 10:24
请见代码。
动态数据有效性。

感谢蓝桥玄霜老师的代码，我才疏学浅，不能完全理解。将代码输入进去后，代码有点问题，不能运行。可能是哪里输入有错。还有有劳您发个附件。诚谢！

蓝桥玄霜 · 发表于 2019-5-21 08:25

请仔细核对抄写的代码，初学者常常会抄错的。
建议上传出错的代码和附件看看。

		自动登录	找回密码
密码			免费注册

[求助] 根据指定值在数据有效性序列的中间位置显示指定值对应的最大值