excel vba 编码用于数据输入

Question

我是编码新手。 我有一个带有 2 张纸的 Excel 文件。 Sheet1是数据输入，而sheet2是数据库。 在sheet1我有 4 个变量： Id 、 Name 、 Old 、 Email 。 我想使用 ActiveX 控件（命令按钮）。

我想当我在sheet1中填充数据并按下按钮时，它应该将数据复制到sheet2 （下图显示sheet2 ），如果我想填充另一个数据，它应该 go 向下 2 行以获取新数据（如第 9 行图片）。 感谢您的帮助。

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    
    Dim iRow As Long  
    iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 1
     
    With ThisWorkbook.Sheets(2)
       .Range("A" & iRow).Value = Sheet1.Range("A5").Value
       .Range("A" & iRow + 1).Value = Sheet1.Range("A6").Value
       .Range("B" & iRow).Value = Sheet1.Range("B5").Value
       .Range("B" & iRow + 1).Value = Sheet1.Range("B6").Value
       .Range("C" & iRow).Value = Sheet1.Range("C5").Value
       .Range("C" & iRow + 1).Value = Sheet1.Range("C6").Value
       .Range("D" & iRow).Value = Sheet1.Range("D5").Value
       .Range("D" & iRow + 1).Value = Sheet1.Range("D5").Value          
    End With

    Call Reset
    Application.ScreenUpdating = True
End Sub

Answer 1

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    
    Dim iRow As Long  
    iRow = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1 
    If iRow <> 5 Then iRow = iRow + 2  'add two rows if not first dataset

    '...