问通过文本框将数据更新到excel工作表

EN

Private Sub CommandButton3_Click() 'UPDATE CHANGES
  
Dim n As Integer
Dim q As Variant
Dim o As Worksheet
Set o = ThisWorkbook.Sheets("ItemList")

 On Error Resume Next
 q = Application.Match(Me.TextBox3.Value, o.Range("A2:A"), 0)

For n = 0 To 6
o.Range("E" & q).Value = CLng(Me.TextBoxSMALL.Value)
q = q + 1
o.Range("E" & q).Value = CLng(Me.TextBoxmedium.Value)
q = q + 1
o.Range("E" & q).Value = CLng(Me.TextBoxlarge.Value)
q = q + 1
o.Range("E" & q).Value = CLng(Me.TextBoxXLarge.Value)
q = q + 1
o.Range("E" & q).Value = CLng(Me.TextBoxXXLarge.Value)
q = q + 1
o.Range("E" & q).Value = CLng(Me.TextBoxXXXLLARGE.Value)
q = q + 1
Next n
End Sub