Question

我在发票工作簿中有一个发票模板表，我想将其某些字段保存在另一个工作簿“仅Excel数据”中，即“发票”表中。创建发票时，我想从“仅Excel数据”，“发票”工作表的A列中获取最后一个发票编号，然后在其中添加1。

请注意，发票编号的格式为ST00001。

在那之后，我只想将发票编号及其详细信息保存在工作簿excel数据中：C10，C11和C12代表总数。

我不知道该怎么做，因为我是vba的新手，这是我尝试做的但无法正常工作。

Dim v As Workbook
Set v = Workbooks("Excel data only")

Range("I12").Value = v.Sheets("INVOICES").Cells(v.Sheets("INVOICES").Rows.Count, "A").End(xlUp).Row.Value + 1

Answer 1

声音

Dim v As Workbook, cellValue As String
Set v = Workbooks("Excel data only")
With v.Worksheets("INVOICES")
    cellValue = .Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With

ActiveSheet.Range("I12").Value = "ST" & Format$((Right$(cellValue, 5) + 1), "00000")

Answer 2

Sub test_1() Dim v As Workbook, cellValue As String With Worksheets("sheet2") cellValue = .Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value End With ActiveSheet.Range("B13").Value = "" & Format$((Right$(cellValue, 2) + 1), "") End Sub

这些代码通过移至最后一行编号来递增，使用递增可以编写这些代码，这些代码可以搜索发票之间是否缺少任何数字也应显示。例如缺少从1到10到7的发票，因此与其代替最后一行的编号，还不如给我缺少的编号。

thnx

VBA获取上一个发票编号并保存新的发票

2 个答案: