Така че, ние имаме следната ситуация:
Задача. се падащия списък, потребителят може да избере от списък с имена (колона а) в клетка D2. Ако името, което не е в списъка, потребителят може да въведете ново име директно в D2 клетка - това автоматично се добавя към колона и ще започне да се появява в списъка на падащото в бъдеще.
Стъпка 1. Създаване наименуван диапазон
в английската версия на Excel, то ще бъде:
Тази формула се отнася до всички напълнени клетки в колона А, като се започне с А1 и надолу до края - до фамилията.
Стъпка 2. Създаване на списък кутия падащото
Изберете клетка D2 и отваряне на меню Data - Проверка (Data - Validation). След това изберете от падащия списък (Allow) Списък позиция (Списък) и типа на източника на низ (Източник) препратка към създадохте в стъпка 1, наименувания диапазон:
За да Excel ще ни позволи да влезе в списъка на нови имена, махнете отметката от раздела Съобщения за вход (Input Message) и съобщение за грешка (Error Alert), и след това щракнете върху OK. Сега имаме падащия списък в клетка D2. И ако, например, на ръка, за да добавите ново име в колона А, той автоматично ще се появи в списъка на падащото в клетка D2, защото имената са взети от хората на динамичния диапазон, което автоматично проследява промените в колона А.
Стъпка 3. Добавете прост макрос
Частни Под Worksheet_Change (ByVal Target As Range)
Дим lReply толкова дълго,
Ако Target.Cells.Count> 1 Тогава Exit Sub
Ако Target.Address = "$ D $ 2" Тогава
Ако IsEmpty (Target) След това Излезте Sub
Ако WorksheetFunction.CountIf (Range ( "Хора"), Target) = 0 Тогава
lReply = MsgBox ( "Добавяне на въведеното от вас име" _
мишена "В падащия списък?", VbYesNo + vbQuestion)
Ако lReply = vbYes Тогава
Обхват ( "Хора"). Клетките (обхват ( "Хора"). Rows.Count + 1, 1) = Целева
Крайна сметка, ако
Крайна сметка, ако
Крайна сметка, ако
End Sub
Ако вашият падащия списък не е в клетката D2 или варира спомена имената не са хора. а като нещо друго, след това пощипване на параметрите в макро по своему.
Всичко! Сега, когато се опитате да въведете ново име в клетката D2 Excel ще поиска
и когато утвърдителен отговор на потребителя за автоматично добавяне на ново име в списъка в колона А и в списъка на падащото в клетка D2.
Новини
Knights етер теория
Свързани статии