Я новичок в vba и столкнулся с проблемой, когда у меня два столбца. В столбце 1 содержится описание должности, а в другом - номер должности.
Пользователь вводит описание должности в столбце 1, а в столбце 2 дается автоматический c номер должности. Я создал код vba, который запрашивает у пользователя описание вакансии и создает номер вакансии для этого ввода. Я хочу создать функцию, в которой, если пользователь вводит одно и то же описание вакансии в строке под ним, номер должности сохраняет тот же номер, но к нему добавляется буква. Итак, если есть 5 одинаковых должностных инструкций, номера будут go из 01, 01A, 01B, 01 C и 01D.
Я попытался создать функцию, которая ищет пользовательский ввод и переходит к следующий поиск. Если активная ячейка равна вводу пользователя, добавьте счетчик к номеру задания. Но с буквами.
Dim prompt as integer
Dim userinput as string
Dim userinputjobnum as variant
prompt = InputBox("Select a row you would like to work in")
userinput = InputBox("Job description?", "Description")
Cells(prompt, 1).Value = userinput
Cells.Find(What:=userinput, After:=ActiveCell, LookIn:= _
xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Value = userinput Then
userinputjobnum = ??
Cells(prompt,2).value = userinputjobnum
End if