Код для генерации уникального идентификатора с префиксом

Question

Просьба помочь мне в создании уникального идентификатора с префиксом. Я разрабатываю небольшой проект в Excel для хранения базы данных клиентов. У меня есть UserForm с текстовыми полями в нем. Я хочу код, который будет генерировать уникальный идентификатор каждый раз, когда я добавляю новый профиль клиента с префиксом, скажем, CTR.

Answer 1

Существует множество способов. Скажем, вы храните имена своих клиентов в столбце A некоторых листов, начиная с ячейки A2. Каждый раз, когда вы добавляете клиента, добавьте его имя в столбец A. Для того, чтобы присвоить уникальный идентификатор клиента, в ячейке B2 входят:

=IF(A2="","","CTR" & ROW()-1) 

и скопируйте:

Если вы хотите код, чтобы сделать новый идентификатор, то:

Sub dural() 
    Dim LastId As String, NewId As String 
    Dim N As Long 

    N = Cells(Rows.Count, "B").End(xlUp).Row 
    LastId = Cells(N, "B").Value 
    NewId = "CTW" & CLng(Mid(LastId, 4)) + 1 
    MsgBox NewId 
End Sub