Excel VBA窗体中的“下一个”和“上一个”按钮

Private Sub cmdNext_Click()
    Dim currentControl As Control
    Dim nextControl As Control
    Dim i As Integer
    
    ' 获取当前聚焦的控件
    Set currentControl = Me.ActiveControl
    
    ' 查找下一个控件的索引
    For i = 0 To Me.Controls.Count - 1
        If Me.Controls(i).Name = currentControl.Name Then
            ' 如果到达最后一个控件，则循环回到第一个
            If i = Me.Controls.Count - 1 Then
                Set nextControl = Me.Controls(0)
            Else
                Set nextControl = Me.Controls(i + 1)
            End If
            Exit For
        End If
    Next i
    
    ' 将焦点移动到下一个控件
    nextControl.SetFocus
End Sub

Private Sub cmdPrevious_Click()
    Dim currentControl As Control
    Dim previousControl As Control
    Dim i As Integer
    
    ' 获取当前聚焦的控件
    Set currentControl = Me.ActiveControl
    
    ' 查找上一个控件的索引
    For i = 0 To Me.Controls.Count - 1
        If Me.Controls(i).Name = currentControl.Name Then
            ' 如果是第一个控件，则循环回到最后一个
            If i = 0 Then
                Set previousControl = Me.Controls(Me.Controls.Count - 1)
            Else
                Set previousControl = Me.Controls(i - 1)
            End If
            Exit For
        End If
    Next i
    
    ' 将焦点移动到上一个控件
    previousControl.SetFocus
End Sub