Добрый всем день!
Что хотел сделать: В форме выпадающий список реализован с использованием Combobox, задача которого показывать пути для сохранения данных, а так же ФИО. Если необходимый путь или фио отсутствует, нужно, что бы пользователь указал его в ручную.
Что получилось: сделал на событии combobox_change, но в момент, когда вводишь например фамилию, то записывается значение побуквенно. Т.е. Необходимо написать "Иванов", в итоге видим в выпадающем списке такой массив: "И;Ив;Ива;Иван;Ивано;Иванов".
Как можно исправить это?
Сам код:
Что хотел сделать: В форме выпадающий список реализован с использованием Combobox, задача которого показывать пути для сохранения данных, а так же ФИО. Если необходимый путь или фио отсутствует, нужно, что бы пользователь указал его в ручную.
Что получилось: сделал на событии combobox_change, но в момент, когда вводишь например фамилию, то записывается значение побуквенно. Т.е. Необходимо написать "Иванов", в итоге видим в выпадающем списке такой массив: "И;Ив;Ива;Иван;Ивано;Иванов".
Как можно исправить это?
Сам код:
| Код |
|---|
lastrow=sheets(1).cells(rows.count,1).row
x=userform1.combobox1.value
if lastrow>2 then
a=Sheets(1).collumns("A:A").find(What:=x,LookIn=xlValues)
if a="" then sheets(1).range("A" & lastrow+1)=x
else
a=sheets(1).range("A2")
if a<>x then
sheets(1).range("A" & lastrow +1)=x
end if
end if
|
