遍历TextBox并获取TextBox编号

Question

我有7个文本框对应的7个标签没有用户表单。1.我需要遍历每个文本框并找到空/空文本框2.显示不能为空的相应label.caption的消息框3.找到文本框编号以将焦点设置在空白文本框上

Dim x As Integer
For x = 1 To 7
'Find the empty/blank TextBox
If ActiveSheet.OLEObjects("TextBox" & x).Object.Text = "" Then
'Display Message
MsgBox ActiveSheet.OLEObjects("Label" & x).Object.Caption & " cannot be empty"
'Find the empty/blank Texbox number to set focus.This is where I am stuck 
TextBox(Number?).Activate
Exit Sub
End If
Next x

Answer 1

你可以这样做：

Dim x As Integer
Dim emptyTextboxIndex As Long
For x = 1 To 7
    If ActiveSheet.OLEObjects("TextBox" & x).Object.Text = "" Then
        MsgBox ActiveSheet.OLEObjects("Label" & x).Object.Caption & " cannot be empty"
        emptyTextboxIndex = ActiveSheet.OLEObjects("TextBox" & x).Index
        ActiveSheet.OLEObjects(emptyTextboxIndex).Activate
        Exit Sub
    End If
Next x

另外，如果我是您，我会避免使用ActiveSheet，并且会使用对工作表的显式引用。我也会避免使用Exit Sub。