Question

http://imgur.com/zEm7hT7

在我的图片中，我有我的表格，在输入信息到文本框中并按回车键将信息放入标题下方的正确位置，我想要做的是要么有下一个按钮，按下一行和一个后退按钮，它会向上移动一行，并允许我将信息输入到数据库＆＃39;按照说或我想让它在点击“输入”时自动跳下一行。我已经看过了，我找不到任何我想问的东西，反应很好，谢谢。

这是我到目前为止所做的。

Private Sub CommandButton1_Click()
Dim x As Integer
x = Cells(1, 1).End(xlDown).Row + 1
Cells(x, 1) = TextBox1.Value
Cells(x, 2) = TextBox2.Value
Cells(x, 3) = TextBox3.Value
Cells(x, 4) = TextBox4.Value
Cells(x, 5) = TextBox5.Value
End Sub

Answer 1

将x=2替换为查找下一个空行

If Cells(2,1) = "" Then
    x = 2
Else
    x = Cells(1,1).End(xlDown).Row + 1
End If

Excel VBA增加行/列

1 个答案: