求大神指正程序问题

philipyeah

各位大神，
附件中是我编的程序，希望实现如下功能：
按下按钮，在Module No. 文本框内可以输入1， 2，3三种模式，按回车进入下一个文本框输入。
如图1所示，当Module No. 为1时，在Dimension和Other文本框可以分别输入想插入的行数，也是按回车结束输入。最后dimension和other的数值之和就是插入的行的数量。
现在的问题是，Module No.是2的时候，输入的四个值之和与插入的行的数量不符，如图2所示，应该插入的是4行，但实际却插入了113行。
求大神赐教，看一下我程序哪里出了问题，谢谢~

DevilW

• Private Sub TextBox5_Change()
• Set agov = ActiveWorkbook.Worksheets("AG Overview")
• Set templ = ActiveWorkbook.Worksheets("Template")
• If TextBox1.Value = 2 Then
•   Dim rowm2 As Integer
•   Dim dim_1, other_1, dim_2, other_2 As Integer
•   dim_1 = Val(TextBox2.Value)   '--\
•   other_1 = Val(TextBox3.Value) '---\  这里要加上Val 函数
•   dim_2 = Val(TextBox4.Value)   '----/ 不然取到的是字符串
•   other_2 = Val(TextBox5.Value) '--/
•   For i = 1 To (dim_1 + other_1 + dim_2 + other_2)
•     rowm2 = agov.Range("g65536").End(xlUp).Row + i
•     templ.Rows("1:1").Copy
•     agov.Rows(rowm2).Insert Shift:=xlDown
•   Next i
•   MsgBox "插入的行数i=" & (i - 1)
• End If
• End Sub