Код VBA для автоматического серийного номера в столбце A после ввода пользовательской формы в столбце B

Question

У меня есть пользовательская форма, в которой пользователь может вставлять данные, а данные будут вставляться в столбцы B в M. Мне нужен код либо на рабочем листе, либо в userform для автоматического заполнения серийного номера, начинающегося с «RD 00001», который будет заполнять столбец A каждый раз, когда вводят данные. Пожалуйста, дайте мне идею.

Answer 1

Этот код очень прост и предназначен для запуска на чистом листе с Row 1, являющимся вашей строкой заголовка. Это динамично, так что подключи и играй. Просто позвоните на юг с любым кодом, который у вас есть для ввода других данных.

Sub SerialCode() 
    Dim ws As Worksheet 
    Dim lastSerial, digits, i As Integer 
    Dim nextRow, lastRow As Long 
    Dim newSerial As String 

    Set ws = ThisWorkbook.Sheets(1) 
    nextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1 'Finds the last row in A 
    lastRow = nextRow - 1 
    newSerial = "" 'set value of our string blank 

    If (nextRow - 1) < 2 Then 'If statement to catch if there's only a header 
     lastSerial = 0 
    Else: lastSerial = CInt(Replace(ws.Range("A" & lastRow).Value, "RD ", "")) 
    End If 

    lastSerial = lastSerial + 1 
    digits = 6 - Len(lastSerial) 'how many 0's are there 

    For i = 1 To digits 
     newSerial = newSerial & "0" 'start building the string with 0's 
    Next i 

    newSerial = "RD " & newSerial & lastSerial 'concatenate the serial code 
    ws.Range("A" & nextRow).Value = newSerial 
End Sub 

Примечание: все, что у вас есть для нахождения вашего последнего ряда для ввода других данных, убедитесь, что последняя строка и последняя строка этого субмарины являются одинаковыми.