用于添加唯一记录以在Excel VBA中存档的宏

时间:2018-03-30 18:39:22

标签: excel vba excel-vba

所以我作为推销员工作,我想在Excel VBA中创建一个简单的宏来跟踪我的销售情况。

我添加了一些组合框,它们组成了订单可以包含的所有选项,我只想让按钮ADD将命名区域内的所有单元格(9)传输到下面的另一个命名区域。这很容易,我这样做:

Range("start").Value = Range("order").Value

这是范围(“顺序”),它是9列。

ABC123456789是否否否1 0 1£5.50

我想要的是使用Button_Click()添加订单,从Range(“开始”)开始,并在下一行添加每个订单,这样在点击几下后我就会有一些订单存档这样:

ABC123456789是否否否1 0 1£5.50
ABC123456789是否否否1 0 1£5.50
ABC123456789是否否否1 0 1£5.50
ABC123456789是否否否1 0 1£5.50

我知道这很容易做到,但我尝试过很多不同的事情而且都没有,所以如果你能帮我这么做,我真的很感激。< / p>

我已经浪费了5个小时,这令人尴尬。我知道我不是程序员,但我曾经能够使用像这样简单的小代码...

显然我希望这个宏做更多的事情,例如我想按天分组销售,但如果我能更好地理解单元格的寻址如何与它们的属性一起工作,我肯定会搞清楚。

1 个答案:

答案 0 :(得分:2)

你可以使用:

Private Sub Button_Click()
    With Range("start")
        .Offset(IIf(IsEmpty(.Cells(1, 1)), 0, IIf(IsEmpty(.Cells(2, 1)), 1, .End(xlDown).Row - .Row + 1))).Value = Range("order").Value
    End With
End Sub