vba - xlDown 未按预期工作

Question

我关注了this教程

为了处理按钮操作。我想每次在单击按钮时将数据写入新行，但是该代码要么覆盖现有数据，要么将数据写入新行(并再次覆盖它)。

代码:

Private Sub cmdUnesiUBazu_click()
     Sheet1.Activate

    Range("B2").End(xlDown).Offset(1, 0).Select ' want to start write from C2 cell
    ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1

    ActiveCell.Offset(0, 1).Value = txtSifraOsobe.Value
    ActiveCell.Offset(0, 2).Value = txtImeIPrezime.Value
    ActiveCell.Offset(0, 3).Value = txtAdresa.Value
    ActiveCell.Offset(0, 4).Value = cboGrad.Value
    ActiveCell.Offset(0, 5).Value = cboDrzava.Value
    ActiveCell.Offset(0, 7).Value = txtDatumRodjenja.Value

  End Sub

Answer 1

最好直接引用单元格，而不是选择它们并引用ActiveCell。观看Excel VBA Introduction Part 5 - Selecting Cells (Range, Cells, Activecell, End, Offset)

您似乎正在尝试创建唯一标识符 (ID) 来引用您的记录。但是您要向下面的空单元格添加 1: ActiveCell.Value = ActiveCell.Offset(1, 0).Value + 1 而不是应该将上面单元格的值加 1 ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1

Sheet1.Activate

With Range("B2").End(xlDown).Offset(1, 0)
    .Value = .Offset(-1, 0).Value + 1
    .Offset(0, 1).Value = txtSifraOsobe.Value
    .Offset(0, 2).Value = txtImeIPrezime.Value
    .Offset(0, 3).Value = txtAdresa.Value
    .Offset(0, 4).Value = cboGrad.Value
    .Offset(0, 5).Value = cboDrzava.Value
    .Offset(0, 7).Value = txtDatumRodjenja.Value
End With