基于Excel单元创建值，并将其推送到用户表单中的文本框或标签中

Question

我正试图在我公司实体的一个关于采购订单的Excel中创建财务流程和系统。 我有一个用户表单，但我试图在工作表中有一个表示该用户表单的单元格的值。

我希望PO号在用户表单中表示。 该PO编号将来自包含所有采购订单编号的工作表，只需取最后一个编号并+1。 然后将提交所有其他信息以供批准。 我遇到以下代码的问题。 有人可以帮忙吗？ 有想法，也解释你在我出错的地方锻炼的想法。

欢迎所有建议。 我对VBA很新。

' POnumber variable
Dim PONumber As Long  

' variable for worksheet
Dim PONumberData As Worksheet  

' variable for last POnumber
Dim lastPONumber As Integer    

' variable for last POnumber
Dim PONumtxtBox As TextBox      

' variable for textbox on userform
Dim PONumtxtBox As TextBox  

' variable for PO integer converted to string
Dim PONumberstring As String    


' set textbox variable to userform Textbox

Set PONumtxtBox = Me.PONumberTxtBox

' work outs the last PO number on the PONumberData worksheet

lastPONumber = PONumberData.Range("A2").End(xlDown).Value

' Take's last PO Number and add 1 to it to create next PO number

PONumber = lastPONumber + 1

' converts integer PO number in cell on PONumberData worksheet to string

PONumberstring = CStr(PONumber)

' should add that number to userform * but isn't *

PONumtxtBox.Text = PONumberstring

我希望在userform中有一个PO编号

Answer 1

您可以在UserForm中创建一个标签框来保存“PO编号”。 在下面的示例中，代码直接添加到UserForm并在初始化时运行。 它找到列中的最后一个数字并添加一个。 这假设您在工作表中按顺序排列了您的采购订单编号，否则它将不会非常有用。

“PONumb”引用UserForm中的命名标签。

Private Sub UserForm_Initialize()

    With ThisWorkbook.Worksheets("Sheet1")

        Dim R As Integer

        R = .Cells(.Rows.Count, 1).End(xlUp).Row

        Me.PONumb = .Range("A" & R).Value + 1

    End With

End Sub