vba - 如何使用 VBA 在用户窗体的最后一行添加特定数字？

Question

我是 VBA 的初学者，需要您在代码方面的帮助。

我的问题是我想在 Excel 中使用 VBA 制作某种 UserForm 来为新票生成新号码。

将需要用户表单来管理有关收到问题的票证。

情况是我想通过单击“新票”按钮来制作新的票号。之后，在用户窗体中，“票号”字段将被阻止并显示分配的新票号，“打开日期”字段将自动显示当前日期，“接受”按钮将文本更改为“创建”按钮并启用。单击“创建”按钮后，用户窗体将关闭并在 Excel 表的最后一行中写下有关工单的详细信息。

我也想有以特定号码开头的票号，例如60555、60556、60557 等。问题是现在我收到数字 1、2、3 等。

下面你可以看到一些问题的截图和部分创建的代码。

UserForm "Manage Tickets"

After "Create" button, what is showing in last row in Excel Sheet

What I want to show in last row in Excel Sheet after "Create" button

如果还有一种方法可以在 UserForm 中显示文本“ [BHD#?????] ”并通过 UserForm 添加，这对我很有帮助!

负责“新票”按钮的部分代码:

Private Sub btwNewTicket_Click()
    ClearFields
    LastRow = ThisWorkbook.Sheets("Issue Log").Cells(Rows.Count, 2).End(xlUp).End(xlUp).Row - 4
    Me.tbTicketNo.Value = LastRow
    Me.tbTicketNo.Locked = True
    Me.tbDateOpen = Date
    Me.btnAccept.Caption = "Create"
    Me.btnAccept.Enabled = True
End Sub

提前致谢!

Answer 1

您可以使用 & 连接字符串象征。因此，满足您需求的可能解决方案是:

Me.tbTicketNo.Value = "[BHD#" & Format(LastRow,"00000") &"]"

Format(LastRow, "00000")使值始终为五位数。与 LastRow=1输出将是 [BHD#00001] .

如果您想从 60555 的值开始而不仅仅是添加这个值

Me.tbTicketNo.Value = "[BHD#" & 60555+LastRow &"]"

与 LastRow=1输出将是 [BHD#60556]