Fatal编程技术网
  • vba/
  • Vba 创建动态列表索引

Vba 创建动态列表索引

vba combobox

Vba 创建动态列表索引,vba,combobox,Vba,Combobox,第一次。正在学习VBA，需要一些帮助。我在这一行代码中获得了无效的属性值Me.Tech2.ListIndex=startnr startnr根据组合框“Tech2”的值变化 startnr是10001因此Me.Tech2.ListIndex=startnr尝试将所选项目设置为Tech2中的第10002个项目，如果该项目不存在，则会引发错误 ListIndex的有效值是第一项的0，最后一项的Me.Tech2.ListCount-1 Dim jobnr As String Dim startnr A

第一次。正在学习VBA，需要一些帮助。我在这一行代码中获得了无效的属性值
Me.Tech2.ListIndex=startnr

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

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

ListIndex
的有效值是第一项的
0
，最后一项的
Me.Tech2.ListCount-1

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