将上一个单元格数据复制到文本框中

Question

只是想创建一个代码，使我能够让用户表单文本框从前一个单元格中提取数据（因为它是一个数据输入寄存器），并且当找到单元格数据时希望它显示在工作表中以获取它遵循工作表中存在的顺序。

摘要：当 A 列“TCNumber”先前的单元格值 =“TC00010”时，然后在 TXBTCNumber（TC 编号值的文本框）中显示值，并将找到的数据加 1 并将新值添加到新行单元格中。

附：如果可能的话，我可以让它找到整个值（例如：TC00010）而不仅仅是数字

找到了一个代码，可以找到以前的单元格数据并将其添加到文本框中已经期望它只显示 TC 编号的最后两位而不是整个值

当前代码：

With UserForm1.TXBTCNumber

Dim TCNum As Integer
Dim TC As String
Dim rows As String
Dim value As String
Dim concat As String
Set ws = Worksheets("Material Tracibility Register")


rows = ws.Range("A1048576").End(xlUp).Row

Dim a As String
'Column
a = "A"
concat = a & rows
'Value in last low is below
TC = Range(concat).value
TCNum = Mid(TC, 3, 6) + 1

UserForm1.TXBTCNumber.value = TCNum
End With
UserForm1.Show
End Sub

Answer 1

为了只复制最后 2 个字符，您只需在代码中添加子字符串函数，这有助于剪切字符串 TCNum 并复制您需要的部分。

示例：

With UserForm1.TXBTCNumber

Dim TCNum As Integer
Dim TC As String
Dim rows As String
Dim value As String
Dim concat As String
Set ws = Worksheets("Material Tracibility Register")


rows = ws.Range("A1048576").End(xlUp).Row

Dim a As String
'Column
a = "A"
concat = a & rows
'Value in last low is below
TC = Range(concat).value
TCNum = Mid(TC, 3, 6) + 1

UserForm1.TXBTCNumber.value = TCNum.Substring(TCNum.Length - 2)

End With
UserForm1.Show
End Sub