数据有效性区域中英文切换

王匡

求助各位老师，如何实现数据有效性区域的中英文自动切换（VBA或非VBA方式均可）。具体的数据样例和需求描述请参见附件。

需求比较紧急，非常感谢各位老师！

shiruiqiang

个人想法：把中英文互作字典：英文状态下，dic（arr(x,2)）=arr(x,1),否则dic（arr(x,1)）=arr(x,2)

剑指E

~~~~~~~~~~~~~

xunanming

请参考---------------------------------

王匡

剑指E 发表于 2023-3-15 22:05
~~~~~~~~~~~~~

一早上班就回来看一下，果然已经有老师给出了完美答案。虽然我还没搞懂您的代码，但是先来感谢一波，稍后再去研究下您的答案。
谢谢老师！

王匡

xunanming 发表于 2023-3-16 01:44
请参考---------------------------------

谢谢老师，您的答案和楼上的略有不同，但同样可以完美解决我的问题。先来感谢一下，晚点再详细研究您的答案。

王匡

shiruiqiang 发表于 2023-3-15 19:13
个人想法：把中英文互作字典：英文状态下，dic（arr(x,2)）=arr(x,1),否则dic（arr(x,1)）=arr(x,2)

非常感谢，这个思路我会去尝试下

王匡

非常感谢各位前辈的指点，但由于我的实际问题比样例数据复杂一些，自己还是没能力照猫画虎独立完成。我重新上传了数据表格，望各位老师拨冗指点。感激不尽。

王匡

剑指E 发表于 2023-3-15 22:05
~~~~~~~~~~~~~

老师好，非常感谢您的回复。您的代码写得很简洁，我琢磨半天还是没有完全领会您的意思。再加上我的实际问题比样例数据要复杂一些，所以目前还是没能解决问题（主要是中英文交替写入字典那部分看不明白）。我重新上传了实际的数据，还望老师能继续指点一下。
非常感谢。

王匡

xunanming 发表于 2023-3-16 01:44
请参考---------------------------------

老师好，感谢您的细心回复。我大概看懂了您的注释，但是自己还是没能解决实际问题。我重新上传了实际的数据，还望老师能继续指点一下。
非常感谢。