问题描述
我想创建一个宏,允许用户通过 inputBox 函数输入单词。这个词将用于填充已经有信息的一系列单元格(D 列)。此外,这个词将放在所有其他提案的开头(D 列,D1 = 标题)。
问题是我无法动态执行此操作,我尝试使用 For Each
循环浏览单元格范围,以便 DropDownList 显示所有已填充的单元格(可能有 n 个),但我不能找出如何管理 For Each
循环!
Sub macro_dropDownList()
Range("D2").Select
Selection.Insert Shift:=xlDown,copyOrigin:=xlFormatFromLeftOrAbove
valeur = InputBox("Entrez le nom du model")
Range("D2").Value = valeur
For Each c In Worksheets("DropDownList").Range("D2:D100").Cells
ActiveWorkbook.Names("Model_vehicules").RefersToR1C1 = _
"=DropDownList!$D$2:$D$100"
Next
end Sub
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)