VBA 不能写入文本框

VBA无法写入对应的文本框……在调试模式下伏漏查看都是有的但是就是显示不出来……

代码！

ThisWorkbook.IsAddin = False

TextBox1.Text = Worksheets("评价表").Range("A4").Value

TextBox2.Text = Worksheets("评价表").Range("B4").Value

TextBox3.Text = Worksheets("评价表").Range("C4").Value

TextBox4.Text = Worksheets("评价表").Range("D4").Value

TextBox5.Text = Worksheets("评价表").Range("E4").Value

TextBox6.Text = Worksheets("评价表").Range("F4").Value

TextBox7.Text = Worksheets("评价表").Range("G4"薯老).Value

TextBox9.Text = Worksheets("评价表缺手烂").Range("N4").Value

TextBox10.Text = Worksheets("评价表").Range("L2").Value

TextBox11.Text = Worksheets("评价表").Range("H4").Value

If jx = True Then

OptionButton1.Value = True

OptionButton2.Value = False

Else

OptionButton2.Value = True

OptionButton1.Value = False

End If

If xsq = True Then

OptionButton3.Value = True

OptionButton4.Value = False

Else

OptionButton4.Value = True

OptionButton3.Value = False

End If

If jb = True Then

OptionButton5.Value = True

OptionButton6.Value = False

Else

OptionButton6.Value = True

OptionButton5.Value = False

End If

If sb = True Then

OptionButton7.Value = True

OptionButton8.Value = False

Else

OptionButton8.Value = True

OptionButton7.Value = False

End If

If ej = True Then

OptionButton9.Value = True

OptionButton10.Value = False

Else

OptionButton10.Value = True

OptionButton9.Value = False

End If

TextBox9.Text = qt

sf = True

ThisWorkbook.IsAddin = True

Application.ScreenUpdating = True

CommandButton1.Caption = "提交信息"

用vba在word中插入一个文本框：厅早吵

ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select

四个 数字睁拆是坐标扮侍

用vba在word中插入一个抄文本袭框型颂孙悔：

ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select

四个卜凯郑 数字是坐标zd

---