Question

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

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

将需要UserForm来管理有关已收到问题的门票。

案件是我想通过点击“新票”按钮来制作新票数。之后，在UserForm中，“Ticket Number”字段将被阻止并显示已分配的新票号，“Date Opened”字段将自动显示当前日期，“Accept”按钮将文本更改为“Create”按钮并将启用。单击“创建”按钮后，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

您可以使用def quickbooks_oauth_callback at = session[:qb_request_token].get_access_token(:oauth_verifier => params[:oauth_verifier]) token = at.token secret = at.secret realm_id = params['realmId'] end符号连接字符串。因此，满足您需求的可能解决方案是：

Me.tbTicketNo.Value = "[BHD#" & Format(LastRow,"00000") &"]"使值始终为五位数。使用Format(LastRow, "00000")时，输出将为LastRow=1。

如果您想以值[BHD#00001]开头而不是仅添加此值

使用Me.tbTicketNo.Value = "[BHD#" & 60555+LastRow &"]"输出为LastRow=1

如何使用VBA从UserForm的最后一行添加特定数字？

1 个答案: