软件:Excel
版本:2013
各位版上的大大好，小弟正在做一个供应商下拉式选单。
我有大约4-5个页面会共用一份资料。
我目前是用Active X的下拉式选单。然后自己在程式码中用AddItem去做。
可想而知，供应商会越来越多。我每次新增一个，就要打开这几个页面去新增Code。
感觉有点笨。
如果用表单控件的方式，也是需要去更改每一个下拉式表单的范围。
请问有没有可以只做一次全体适用的方法呢?
烦请拨冗指导。感谢。

不知道原po目前是怎么写的，就以原文来看也不清楚什么是每次新增一个，就要打开这几个页面去新增code又什么是只做一次全体适用的方法？适用在那？提供有宏码的档案才会比较清楚要的是什么

@soyoso大大我更新资料了喔。

写个循环additem，循环终止值或最后一个有值的储存格以range.end()、range.find或工作表函数counta抓取

好的，感谢，我试试看。

或是要以worksheet_change为触发事件，当新增资料后，循环指定表单或activex控件内listfillrange范围字串范围字串取得可用range.address

@soyoso大大，我又更新资料了。

再多传个CLbox到sub AIR，AIR多设个变量接收.additem就以AIR所设 变量.additem

Cool!!!大感谢。

注意一个最大的问题 activeX 在不同的excel版本不相容也就是如果你要向下或向下相容 这按钮会失效前提必须全部的人都要用2016以上的excel或全部都要2007的

相容上测试，储存于2016，开启于2007或2010时，并不一定会失效 https://i.imgur.com/Jtzf37w.jpg

s大 我前一星期才碰上的 我的是2019 64位元写好放到2007 32位元 当下没问题 使用了两三天突然 按钮直接消失 但实际上存在 而且无法用visible控制显示就算重新写上按钮 还是消失而且 另一个按钮是反过来 不消失 永远消失不掉该页面 我放上约15个activex的按钮于工作表上

这也就是为什么我要回并不一定会失效，因版本的不同，不能

而且会出现按钮大小自动变大变小的问题

了解 谢谢

回文您可以举例再何种情况下是可能会产生出失效，但要说是全部都要那个版本才是可行的话，个人觉得那不一定

注意一个最大的问题 activeX 在不同的excel版本不相容也就是如果你要向下或向下相容 这按钮会失效前提必须全部的人都要用2016以上的excel或全部都要2007的

相容上测试，储存于2016，开启于2007或2010时，并不一定会失效 https://i.imgur.com/Jtzf37w.jpg

s大 我前一星期才碰上的 我的是2019 64位元写好放到2007 32位元 当下没问题 使用了两三天突然 按钮直接消失 但实际上存在 而且无法用visible控制显示就算重新写上按钮 还是消失而且 另一个按钮是反过来 不消失 永远消失不掉该页面 我放上约15个activex的按钮于工作表上

这也就是为什么我要回并不一定会失效，因版本的不同，不能

而且会出现按钮大小自动变大变小的问题

了解 谢谢

回文您可以举例再何种情况下是可能会产生出失效，但要说是全部都要那个版本才是可行的话，个人觉得那不一定

不知道原po目前是怎么写的，就以原文来看也不清楚什么是每次新增一个，就要打开这几个页面去新增code又什么是只做一次全体适用的方法？适用在那？提供有宏码的档案才会比较清楚要的是什么

@soyoso大大我更新资料了喔。

写个循环additem，循环终止值或最后一个有值的储存格以range.end()、range.find或工作表函数counta抓取

好的，感谢，我试试看。

或是要以worksheet_change为触发事件，当新增资料后，循环指定表单或activex控件内listfillrange范围字串范围字串取得可用range.address

@soyoso大大，我又更新资料了。

再多传个CLbox到sub AIR，AIR多设个变量接收.additem就以AIR所设 变量.additem

Cool!!!大感谢。