最近买了一本书,书上说可以利用excel制作一种人力资源查询的软件,上面可以做插件,于是乎,做了一,可是每当我点击添加时候都是在同一行添加,就是说,我添加一个信息后,再输入一个新信息,之前输入的就没有了。。。
就是说,我添加完后只在330行显示,再添加,还在330显示,之前的就被替换掉了。。
代码如下:
Private Sub CommandButton2_Click()
Dim a As Integer
If TextBox1.Value = "" Then
MsgBox "员工编号请勿空白!", vbOKOnly
Exit Sub
End If
太多了,省略。。。。。
Sheets("人事查询系统").Select
a = Cells(3, 4).Value
Cells(a + 5, 2).Value = TextBox1.Value
.....也省略。
End Sub
3q,按照你的方法,问题解决了
大哥,小弟初学VBA肯定有不懂的地方,干嘛这么露骨呢?o(╯□╰)o
追答超级丹都六字国骂了,国人就不要太含蓄了!