Excel窗体txt控件循环TabIndex排序异常技术求助

我明白你遇到的困扰了——你已经在属性窗口设置好了控件的TabIndex顺序，想要按这个顺序遍历窗体里以txt开头且TabIndex大于2的控件，但直接用For Each遍历Controls集合得到的顺序完全不符合预期，比如出现了2,3,20,5,6,7这种混乱的排序。

问题根源 #

Controls集合的默认遍历顺序不是按TabIndex排序的，而是按照控件被添加到窗体的先后顺序来排列的。哪怕你后来在属性窗口修改了TabIndex，集合内部的存储顺序并不会跟着改变，所以直接遍历就会出现乱序的情况。

解决方案：先收集控件再排序 #

要实现按TabIndex顺序遍历，我们需要先把符合条件的控件筛选出来，再对它们按TabIndex进行排序，最后遍历排序后的集合。这里提供两种常用的实现方式：

方法1：使用ArrayList（简洁高效）

VBA可以借助System.Collections.ArrayList来快速实现排序，代码如下：

Dim ctrl As Control
Dim sortedControls As Object
Set sortedControls = CreateObject("System.Collections.ArrayList")

' 第一步：收集所有符合条件的控件
For Each ctrl In PipelineUpdateForm.Controls
    If Left(ctrl.Name, 3) = "txt" And ctrl.TabIndex > 2 Then
        sortedControls.Add ctrl
    End If
Next ctrl

' 第二步：按TabIndex升序排序
sortedControls.Sort Key:=Function(x) x.TabIndex

' 第三步：遍历排序后的控件，执行你的业务逻辑
For Each ctrl In sortedControls
    Debug.Print ctrl.TabIndex, ctrl.Name ' 验证排序结果
    ' 在这里添加你的代码，比如根据TabIndex从工作表查找对应值
    ' Colu... 你的后续逻辑
Next ctrl

方法2：使用数组+冒泡排序（无需额外引用）

如果你不想依赖外部对象，也可以用数组存储控件，再通过冒泡排序实现按TabIndex排序：

Dim ctrl As Control
Dim ctrlArr() As Control
Dim i As Integer, j As Integer
Dim tempCtrl As Control
Dim count As Integer

' 第一步：统计符合条件的控件数量
count = 0
For Each ctrl In PipelineUpdateForm.Controls
    If Left(ctrl.Name, 3) = "txt" And ctrl.TabIndex > 2 Then
        count = count + 1
    End If
Next ctrl

' 第二步：初始化数组并填充控件
ReDim ctrlArr(1 To count)
count = 1
For Each ctrl In PipelineUpdateForm.Controls
    If Left(ctrl.Name, 3) = "txt" And ctrl.TabIndex > 2 Then
        Set ctrlArr(count) = ctrl
        count = count + 1
    End If
Next ctrl

' 第三步：按TabIndex升序进行冒泡排序
For i = LBound(ctrlArr) To UBound(ctrlArr) - 1
    For j = i + 1 To UBound(ctrlArr)
        If ctrlArr(i).TabIndex > ctrlArr(j).TabIndex Then
            Set tempCtrl = ctrlArr(i)
            Set ctrlArr(i) = ctrlArr(j)
            Set ctrlArr(j) = tempCtrl
        End If
    Next j
Next i

' 第四步：遍历排序后的数组
For i = LBound(ctrlArr) To UBound(ctrlArr)
    Set ctrl = ctrlArr(i)
    Debug.Print ctrl.TabIndex, ctrl.Name ' 验证排序结果
    ' 你的业务逻辑代码
Next i

效果验证 #

运行上述代码后，调试打印的TabIndex就会按照3,5,6,7,20这样的升序排列，完全符合你设置的TabIndex顺序。

内容的提问来源于stack exchange，提问作者Robert Bluszcz