请大师们帮我将查询到结果直接赋值给相关窗体的控件，谢谢

lbhlbh

请大师们帮我将查询到结果直接赋值给相关窗体的控件，而不用经过“表2”来赋值，结果要如图所示。          TextBox1 = Sheets("2").Range("E4") 'arr(i, j) '"ytr"        TextBox2 = Sheets("2").Range("F4")
        TextBox3 = Sheets("2").Range("G4")
        TextBox4 = Sheets("2").Range("H4")
        TextBox5 = Sheets("2").Range("I4")
        TextBox6 = Sheets("2").Range("J4")
        TextBox7 = Sheets("2").Range("K4")
        TextBox8 = Sheets("2").Range("L4")
        TextBox9 = Sheets("2").Range("M4")
        TextBox10 = Sheets("2").Range("N4")
        TextBox11 = Sheets("2").Range("O4")
        TextBox12 = Sheets("2").Range("P4")
        TextBox13 = Sheets("2").Range("Q4")
        TextBox14 = Sheets("2").Range("R4")
        TextBox15 = Sheets("2").Range("S4")要求就是要优化这些代码。谢谢了。