创建动态列表索引答案

【问题标题】：craeting a dynamic listindex创建动态列表索引
【发布时间】：2016-03-23 18:56:28
【问题描述】：

第一个计时器。随时随地学习 VBA，需要一些帮助。我在这行代码Me.Tech2.ListIndex = startnr

上得到了一个无效的属性值

startnr 根据组合框“Tech2”的值而变化。

Dim jobnr As String
Dim startnr As Integer
Dim endnr As Integer

'Tech2 combobox populates according to the name in Tech1 combobox where the name is a named range

jobnr = Tech1.Value
Sheets("Lists").Activate        'named range scope are sheets("Lists")'
Me.Tech2.RowSource = jobnr
endnr = 10000

 If Me.Tech2 = "" Then
     For startnr = 1 To endnr
     Next startnr
 End If

Me.Tech2.ListIndex = startnr

【问题讨论】：

标签： vba combobox

【解决方案1】：

startnr 是 10001，所以 Me.Tech2.ListIndex = startnr 尝试将所选项目设置为 Tech2 中的第 10,002 个项目，如果该项目不存在，则会引发错误。

ListIndex 的有效值为第一项的 0 到最后一项的 Me.Tech2.ListCount - 1。

【讨论】：