For Next Loop 函数错误

Question

我正在尝试创建一个循环来更新一些已经在用户窗体上创建的“文本框”。 问题是当我链接线路时

              For y = 2 * (3 + k) To 2 * (3 + k)

有

    For k = 0 To 7

我收到不匹配错误。但如果我定义 y = 6，一切都会好起来的。

你能帮帮我吗？

请看下面的完整代码：

    Sub Update_TextBox_Preco()

    Dim k As Double
    Dim myarray2 As Variant
    Dim y As Double
    Dim Textbox As String
    Dim Textbox_1 As String
    Dim line As Variant

    Array with contained TextBox names
        myarray2 = Array("TextBox_Moeda_Atual", "TextBox_Medida_Atual", "TextBox_Acond_Atual", "TextBox_Lote_Atual", _
                    "TextBox_Incoterm_Atual", "TextBox_p_liq_atual", "TextBox_encargo_atual", "TextBox_Frete_Atual")

    For k = 0 To 7
    Textbox = myarray2(k)
              For y = 2 * (3 + k) To 2 * (3 + k)
                 UserForm1.Controls(Textbox).Value = Worksheets("PANEL").Cells(y, 45).Value
              Next y
    Next k

    End Sub

Answer 1

只需摆脱y 循环。它只触发一次，所以每次通过k 循环时只需设置y。

Sub Update_TextBox_Preco()

Dim k As Long
Dim myarray2 As Variant
Dim y As Long
Dim TextBoxUp As String
Dim Textbox_1 As String
Dim line As Variant

'Array with contained TextBox names
    myarray2 = Array("TextBox_Moeda_Atual", "TextBox_Medida_Atual", "TextBox_Acond_Atual", "TextBox_Lote_Atual", _
                "TextBox_Incoterm_Atual", "TextBox_p_liq_atual", "TextBox_encargo_atual", "TextBox_Frete_Atual")

For k = 0 To 7
    TextBoxUp = myarray2(k)
    y = 2 * (3 + k)
    UserForm1.Controls(TextBoxUp).Value = Worksheets("PANEL").Cells(y, 45).Value
Next k

End Sub