Как составить бланк в эксель

Создание форм для заполнения и печати в Excel

​Смотрите также​ информация введенная ранее,​ “F”).Value = “детская”​ ее активации происходил​ использовать календарь. Календари​lLastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count,​, я вашу форму​ тупик. Коллеги, подскажите,​поле 1 –​ выбираем нужный. Если​ автоматическое сохранени таблицы​ в Excel” тут.​

Шаг 1. Отображение вкладки “Разработчик”.

​ формулы с функцией​ накладной. Для этого,​

1. ​ такую формулу. =ПОИСКПОЗ(A2;$A:$A;0)=СТРОКА(A2)​​ как сцепить слова​​Формат элемента управления​​Вы можете создать форму​​ а в отдельных​

2. ​ ‘Дробные числа в​​ ввод значений в​​ есть двух видов.​​ “A”).End(xlUp).Row + 1​​ не запускал, попробуйте​

3. ​ что попробовать? Как​​ ячейка А1 (по​​ – нет, тогда​​ через определенный период​​В бланке в​

1. ​ «ИНДЕКС». Функция «ИНДЕКС»​ сделаем выпадающий список.​​ Диалоговое окно заполнили​​ из разных ячеек​​.​

2. ​ в Excel, добавив​​ ячейках этой заявки​​ VBA пишутся через​​ два поля сразу?​​ Но календари не​

Шаг 2. Добавление и форматирование элементов управления содержимым

1. ​Cloud_MD​​ этот код. Этот​​ подступиться?​ типу Sheets(“Sheet1”).Select​

2. ​ выбираем слева в​ времени, например, через​ ячейках для заполнения​

3. ​ может искать не​ Как сделать выпадающий​ так.​ в одно предложение.​В окне​​ в книгу элементы​​ будет информация из​

4. ​ точку. ActiveSheet.Cells(lLastRow, “G”).Value​​т.е. если мы​​ поставляются с программой​: Окей. Все работает.​ код для кнопки​С уважением,​

5. ​Range(“A1:A1111”).Select), видимо. (Номер​ окне папку, в​ 5 или 10​

Шаг 3. Защита листа, содержащего форму

1. ​ можно установить проверку​​ только в первом​​ список, читайте в​Эта формула будет проверять,​​Первый вариант.​​Формат объекта​​ управления содержимым, такие​​ строчки напротив которой​

2. ​ = 0.1 ElseIf​

3. ​ выбираем номер палаты​

   ​ Excel, а поставляются​​Если так:​внести данные​Константин.​​ исследования)​​ которую сохраняли шаблон.​ минут. Как и​​ вводимых данных, чтобы​​ левом столбце таблицы,​​ статье «Выпадающий список​​ есть ли одинаковые​

Шаг 4. Проверка формы (необязательно)

​Заполнить товарную накладную в​задайте такие свойства​ как кнопки, флажки,​

1. ​ была нажата кнопка​ Me.OptionButton2.Value = True​ – автоматически проставляется​

2. ​ с программой Access.​Private Sub CommandButton2_Click()​. Код заносит данные​Busine2012​

support.office.com

Как заполнить бланк в Excel.

​поле 2 –​​ В нашем примере​ ​ где настроить частоту​​ заполняли бланки верно​ как функция «ВПР».​ в Excel» тут.​ названия товара. Можно​ Excel.​ элемента управления, как​ списки и поля​ “Регистрация” в списке​ Then ElseIf Me.OptionButton3.Value​
​ собственно номер палаты​
​ У вас установлен​ Dim lLastRow As​
​ из текстового поля​:​ ячейка B1 (фамилия​ «Семейный бюджет». Нажимаем​ автоматического сохранения таблицы,​ и не было​ Формулы будут такие.​Если список товаров​ написать свой текст​Например, у нас​ шрифт, выравнивание и​ со списками. После​​ данных первого открытого​ = True Then​ и доза радиационной​ на компьютере Access?​ Long ‘Определяем последнюю​номер исследования​
​Cloud_MD​ пациента)​ «Открыть».​
​ смотрите в статье​ ошибок при обработке​В ячейку C4​ слишком большой для​ сообщения при неверном​ есть большой список​ цвет.​
​ этого другие пользователи​ окна Excel.​ ElseIf Me.OptionButton4.Value =​ нагрузки​Cloud_MD​ заполненную строку по​в первую свободную​, выложите книгу и​поле 3 –​Теперь, как сохранить​ “Автосохранение в Excel”.​ этих данных. Смотрите​
​ для поиска единицы​ выпадающего списка, то​ заполнении ячейки (смотрите​ товаров. Нам нужно​Повторите действия 1–4 для​ смогут заполнить эту​Второй вариант: возможно​ True Then End​
​UPD: Попробовал несколько​: Нет, к сожалению.​ столбцу A. lLastRow​ ячейку в столбце​ форму, чтобы было​ ячейка C1 (имя​ эту таблицу, чтобы​Например, таблицу семейного​
​ статью “Проверка данных​ измерения напишем такую​ можно сделать зависимый​ другие закладки диалогового​ автоматически заполнить товарную​ каждого добавляемого элемента​ форму в приложении​ ли при помощи​
​ If​
​ примеров из пособия​ Есть только ворд-эксель-поверпойнт​ = ActiveSheet.Cells(ActiveSheet.Rows.Count, “A”).End(xlUp).Row​ A.​ на основе чего​
​ пациента)​ не испортить шаблон.​ бюджета мы заполняем​ в Excel”.​ формулу. =ИНДЕКС(Все_Товары;ПОИСКПОЗ(A4;Товары;0);3)​ раскрывающийся список, в​ окна). Нажимаем «ОК».​
​ накладную, взяв все​ управления.​ Excel и при​​ формулы открыв заявку​Cloud_MD​ – не получается.​
​ и аналогичные инструменты​ + 1 ‘Заносим​Private Sub CommandButton2_Click()​ писать код.​поле 4 –​Поработали в этой​ ежемесячно. Используя шаблон​В Excel можно​
​В ячейке D4​
​ котором товар будет​Теперь, когда мы​ данные для этого​В меню​ желании распечатать ее.​ “blank” вручную, при​: Сделал, а также​Busine2012​ в OpenOffice​ данные из TextBox2.​
​ Dim lLastRow As​Все имена заняты​ ячейка D1 (отчество​ таблице. Выходим из​ это сделать очень​ не только выделить​ такая формула. =ИНДЕКС(Все_Товары;ПОИСКПОЗ(A4;Товары;0);4)​ расположен на определенную​ напишем слово, которое​ из огромного перечня​Сервис​Более новые версии​ заведении нр. заявки​
​ снес ComboBox’ы, заменив​:​Извини, не понимаю.​
​ ActiveSheet.Cells(lLastRow, “A”).Value =​ Long ‘Определяем последнюю​: Немного странно, что​ пациента)​ неё с сохранением:​ просто.​ или удалить повторяющиеся​
​В ячейке Е4​ букву алфавита. Как​ уже есть в​
​ товаров. Итак, у​наведите указатель на​ Office 2011 ​
​ в Е3, получить​ их на TextBox’ы​Cloud_MD​
​ Этот код требуется​ Me.TextBox2.Value ‘Заносим данные​ заполненную строку по​ такая задача появилась.​выпадающий список 1​ «Сохранить как», и​Итак.​ значения, но и​-​ сделать такой список,​ столбце А (например,​ нас есть такая​
​ пункт​В меню​ Е5 и Е7​ сограничением ввода количества​, а зачем вы​ внести куда? Перед​ из TextBox1. ActiveSheet.Cells(lLastRow,​ столбцу A. lLastRow​
​ Можно же просто​выпадающий список 2​ в появившемся окне​Нажимаем кнопку «Office»​
​ сложить их перед​=ИНДЕКС(Все_Товары;ПОИСКПОЗ(A4;Товары;0);5)​
​ смотрите в статье​​ в ячейке А6​​ таблица с перечнем​
​Защита​Excel​ данные из файла​ и типа символов.​ для OptionButton надписи​ значениями ComboBox (всех​ “B”).Value = Me.TextBox1.ValueТо,​ = ActiveSheet.Cells(ActiveSheet.Rows, “A”).End(xlUp).Row​ заполнять ячейки, и​​выпадающий список 3​ меняем название файла.​(в верхнем левом​ удалением. Смотрите описание​Копируем все формулы​ «Связанный выпадающий список​ напишем слово «стол»),​ товара на листе​и выберите команду​выберите элемент​ “Список” соответствующие номеру​
​ Так код короче,​ сделали, ведь OptionButton​ трех) или после?​ конечно, делает все​ + 1 ‘Заносим​ никаких дополнительных знаний​ — в ячейку​
​ Например, пишем: «Семейный​
​ углу экрана), выбираем​ нескольких способов в​ вниз по столбцам.​ в Excel по​ выйдет такое предупреждающее​ книги Excel «Товар».​Защитить лист​Параметры​
​ этой заявки?​ да и разобраться​ имеет свою надпись?​ Если после, то​ корректно. А вот​ данные из TextBox2.​ не нужно.​ E1 (совместно -​ бюджет февраль 2013г».​ «Сохранить как» ->​
​ статье “Как сложить​ Всё. Накладная готова.​ алфавиту» здесь.​ окно.​Выделим таблицу (А2:Е6). Присвоим​.​.​Step_UA​ кому-либо проще (если​Cloud_MD​

excel-office.ru

Сохранить свою таблицу как шаблон Excel.

​ опять же, ссылается​ ​ как сделать, чтобы​​ ActiveSheet.Cells(lLastRow, “A”).Value =​Cloud_MD​ выбор ввод возраста)​ И меняем тип​​ «Книга Excel». В​​ и удалить дубли​ Теперь, выбираем из​Итак, в ячейках​Внимание!​ ей имя. Как​Выберите нужные параметры защиты.​
​В разделе​: Доброго.​ не профи -​: Я же не​ на ошибку в​ он из трех​ Me.TextBox2.Value End Sub​: Огромное вам спасибо,​выпадающий список 4​ файла – выбираем​ появившемся окне выбираем​
​ в Excel”.​ выпадающего списка наименование​ столбца А сделали​Данные в это​ присвоить имя, смотрите​Сохраните и закройте книгу.​Разработка​1. Достаточно одной​ типа меня). Busine2012,​ для себя пишу​ строке​ Combobox три переменные​Cloud_MD​ коллеги, за скорый​ — в ячейку​
​ из списка (нажали​ папку, в которую​Как в Excel​ товара, и все​ выпадающие списки.​
​ список нужно вносить​
​ в статье «Присвоить​​Совет:​выберите​ кнопки, действие которой​ невероятное просто​В учебнике было​Private Sub ComboBox3_Change()​ сводил в одну​: Ага, спасибо, принцип​ ответ. Задача была​ F1 (выбор области​ на стрелку и​ будем сохранять шаблон​сохранить таблицу​ данные автоматически появляются​Теперь в накладной​ вручную. Если копировать,​ имя в Excel​​ Чтобы продолжить редактирование после​
​Представление​ будет применяться к​
​спасибище​ указано поле для​и данные вврдятся​ ячейку (решение вопроса​ понятен. Однако при​ в упрощении и​ исследования)​ появился список) «Книга​
​ (в левом списке​, бланк, анкету, которые​ в других ячейках​ в остальные ячейки​ то проверка данных​ ячейке, диапазону, формуле».​ защиты формы, в​.​ строке активной ячейки.​за то, что​ ввода пометок “Capture”​ только из ComboBox1​ о возрасте пациента)?​ использовании твоей конструкции​ автоматизации ведения журнала​
​переключатель 1​ Excel». Указываем папку,​ окна). Внизу окна​
​ мы сделали шаблоном,​ накладной.​ вставим формулы, которые​ не сработает, нарушится.​Мы присвоили имя​ меню​В разделе​ Public Sub Register_Click()​ потратил свое время​ – в моей​ и только в​Не по теме:​ с формой выдает​ и с целью​переключатель 2​ куда будем сохранять​ справа в строке​
​ смотрите здесь. Мы​Осталось написать количество и​ будут искать данные​​Или можно настроить​
​ таблице такое –​Сервис​Показывать на ленте​ Application.ScreenUpdating = False​ и помог разобраться.​ версии его нет,​ первую ячейку свободной​

excel-office.ru

Как создать форму с переносом данных в таблицу?

​к сожалению я пока​​ошибку “13” Type​ исключения возможных ошибок,​
​переключатель 3​ нашу таблицу бюджета​ «Имя файла» пишем​ долго мучились, чтобы​ установить формулу расчета​ в списке товаров​ условное форматирование, чтобы​ «Все_Товары».​наведите указатель на​
​установите флажок​ Row = ActiveCell.Row​hzwer​
​ при введении информации​ строки. Значения остальных​
​ не прочел еще​ mismatch​ которые регулярно возникают​
​переключатель 4 –​ за февраль. Сохранить.​ название шаблона. В​
​создать таблицу в Excel​ стоимости товара с​ и переносить их​
​ окрашивались ячейки с​
​В столбце А​
​ пункт​Вкладка “Разработчик”​ ‘ строка активной​: Всем доброго времени​
​ в “Caption”, например,​ боксов игнорируются.​ или не нашел​и ссылается на​
​ при ведении как​
​ при выборе одного​
​Значок нашей книги​
​ строке «Тип файла»​. Как сделать таблицу​ НДС. Как можно​ в накладную.​ одинаковыми названиями товара.​ перечислены товары. Наименование​
​Защита​.​ ячейки With ActiveSheet​
​ суток!​ ничего не происходит.​Busine2012​ кусок кода-календаря, поэтому​ строчку​ бумажного, так и​ из – строго​ Excel, сохраненной шаблоном​
​ нажимаем стрелку (треугольник​ разными способами с​ написать формулу по​В ячейке C2​ Читайте статью «Как​ товаров не должно​и выберите команду​В правой части ленты​ Workbooks.Open (ActiveWorkbook.Path &​Есть у меня​
​Busine2012​
​:​

​ выбор возраста сделал​​lLastRow = ActiveSheet.Cells(ActiveSheet.Rows, “A”).End(xlUp).Row​​ цифрового журнала.​​ определенное значение в​ будет такой.​ черный справа строки)​ разными функциями, смотрите​

​ расчету НДС, читайте​​ «Единица измерения» пишем​ выделить повторяющиеся значения​ быть одинаковым. Можно​Снять защиту листа​ нажмите кнопку​ “blank.xlsx”) ‘ открытие​

​ такая задумка в​​:​Cloud_MD​ самым простым и​ + 1​В приложениях я​ ячейку G1 (номер​Нажимаем «Сохранить».​ и выбираем из​ в статье “Как​ в статье «Присвоить​ формулу. =ЕСЛИОШИБКА(ВПР(A2;Все_Товары;3;ЛОЖЬ);””)​
​ в Excel».​ ввести код товара,​.​и выберите пункт​ файла бланка [e3].Value​ Excel, может быть​Cloud_MD​, код нужно внести​ громоздким методом -​Даже при условии​ выложил “скелет” формы​ палаты)​Таблицу Excel можно​ списка «Шаблон Excel».​ сделать таблицу в​
​ имя в Excel​
​В ячейку D2​

​На другом листе​​ если у них​​При необходимости вы можете​​Параметры ленты​ = .Cells(Row, 1).Value​ кто-нибудь сталкивался с​, удалите надписи у​​ для кнопки, которая​​ в виде значений​ выставления значения первой​​ и, конечно, буду​​и одновременно -​ преобразовать в формат​Нажимаем «Сохранить».​
​ Excel”.​ ячейке, диапазону, формуле».​ «Цена» напишем формулу.​ «Накладная» есть бланк​ одинаковое название.​ проверить форму, прежде​.​ ‘ в Е3​ подобной необходимостью и​ OptionButton и воспользуйтесь​

​ заносит данные на​​ combobox​ свободной ячейки в​ безумно благодарен за​ значение в связанную​
​ PDF. Подробнее, как​Теперь нам нужно​
​Из этой таблицы​ Ссылка размещена в​
​ =ЕСЛИОШИБКА(ВПР(A2;Все_Товары;4;ЛОЖЬ);””)​ товарной накладной.​
​Чтобы правильно работала​ чем распространять ее.​В разделе​ данные из 1​ добился успешного решения​ надписями самих OptionButton.​ лист. Т.е. для​
​У меня почему-то​ колонке А -​ помощь. Параллельно штудирую​ ячейку H1​

​ это сделать, смотрите​​ открыть этот шаблон.​​ можно сделать шаблон​​ начале статьи.​В ячейку Е2​Скачать полный бланк товарной​ формула поиска нужного​Защитите форму, как указано​
​Настройки​ столбца строки [e5].Value​

​ этой задачи.​​ Затем выложите форму​
​ этой процедуры:​
​ выходит, что все​ “А3”, даже при​ справочник “Для Чайников”​затем при нажатии​ в статье “Как​Открываем новую книгу​ и затем использовать​Эту функцию можно​ «НДС» пишем формулу.​ накладной можно в​ товара из списка,​ в описании шага​установите флажок​ = .Cells(Row, 2).Value​В общих чертах:​ на форум ещё​Private Sub CommandButton2_Click()​ ячейки заполняет значением​ указании ряда до​ – чтобы хотя​

​ кнопки “запись” -​

​ сохранить Excel в​ или в этой​ его каждый раз,​ применить при создании​ =ЕСЛИОШИБКА(ВПР(A2;Все_Товары;5;ЛОЖЬ);””)​ статье «Товарная накладная».​ в ячейки столбца​ 3.​Разработчик​

​ ‘ в Е5​Для того, чтобы​ раз.​.​ “1” – не​ “А1111″​

​ бы понимать Ваши​​ введенные в форму​ PDF”.​ же рабочей книге​ как только она​
​ прайс-листа. Как его​Формулы одинаковые. В​В накладной в​ А установим правило​Откройте форму еще раз,​.​ из 2 столбца​ оптимизировать процесс создание​Cloud_MD​Что касается календарей,​ важно, какую переменную​(тест, столько пациентов​ ответы. Опять же​

​ данные переносятся в​​Cloud_MD​ новую страницу (место,​ нам понадобится. Так​ сделать, смотрите в​
​ них меняем только​ ячейках столбца А​ проверки. Выделим диапазон​ заполните ее обычным​На вкладке​ [e7].Value = .Cells(Row,​ заявки – есть​: Да, долго бы​ то вам нужно​
​ я выбираю.​​ я принимаю за​ – если у​ указанные ячейки, сама​: Доброго времени суток,​ куда будем вставлять​ же шаблоном можно​

​ статье “Как сделать​​ номер столбца по​​ будем писать название​​ ячеек столбца А​ способом и сохраните​Разработчик​ 3).Value ‘ …​ список данных, возможно​​ до меня доходило…​​ будет скачать из​
​Busine2012​ месяц) – ошибка​ кого есть вопросы​ же форма остается​ уважаемые коллеги!​

​ шаблон). Нажимаем кнопку​​ сохранить все, что​ прайс-лист в Excel”​
​ счету из списка​ товара, и все​
​ (А2:А6). Заходим на​ как копию.​выберите элемент управления,​ End With Application.ScreenUpdating​ ли в этом​Busine2012​
​ интернета библиотеки классов,​: Данные выводятся в​ прежняя.​ по рентгенологии или​ для продолжения ввода​Нужна помощь в​
​ «Offiсe», выбираем «Открыть»,​ мы делали в​ здесь.​

​ товаров. В ячейке​​ данные по этому​​ закладку «Данные». В​​Настроить​ который хотите добавить.​ = True End​ списке данных в​

​: Код поместите в​​ содержащих календари.​ первую ячейку, поэтому​
​Busine2012​ травматологии – спрашивайте​ информации.​ создании макроса для​ нажимаем. Появилось окно.​ таблице (например, визитки,​Второй вариант.​ С2 поставили номер​

​ товару будут переноситься​​ разделе «Работа с​​заполнение бланка в​​На листе щелкните место,​ Sub2. Используйте функцию​ конце строчки создать​ процедуру​Cloud_MD​ внесите изменения в​

​:​​ – отвечу с​Если честно, не​

​ Excel, который бы​​Внизу справа в​ бланк).​​Если нужно написать​​ столбца – 3,​ в другие ячейки​ данными» нажимаем на​Excel​
​ куда нужно вставить​ ВПР. Например, для​ кнопку с названием,​Private Sub CommandButton2_Click()​: Окей, спасибо, поправил,​ код.​Cloud_MD​ удовольствием.​ имея каких-либо познаний​ позволял из простой​ строке, где написано​Во-время работы над​ предложение из данных​

​ п.ч. в списке​​ накладной.​ кнопку «Проверка данных».​можно с помощью​ элемент управления.​ ячейки E5: =ВПР(E3;'[Список.xlsx]Sheet1′!$A:$C;2;0)​ напр. “Регистрация”, при​. Код написан только​ обновил.​ActiveSheet.Cells(1, 1).Value =​, да, ошибка у​всячески ваш,​​ в VB (что-то​​ формы, открывающейся с​ «Все файлы» нажимаем​ таблицей, ее нужно​

CyberForum.ru

Создание бланка заявки в Excel на основании данных из другого файла Excel

​ нескольких ячеек, то​​ товаров на листе​Внимание!​
​В появившемся диалоговом​ формул. Функции «ИНДЕКС»​Чтобы задать свойства элемента​… при формировании​ нажатии на которую​ для одного OptionButton;​Остался, пожалуй, только​
​ _ Me.ComboBox1.Value &​
​ меня в коде​Константин.​ там остаточное со​ запуском документа вводить​ на стрелу и​ периодически сохранять, чтобы​ применим функцию “СЦЕПИТЬ”.​ «Товар» единица измерения»​Условием заполнения накладной​ окне в строке​ и «ПОИСКПОЗ» в​ управления, щелкните его,​ заявки только для​ будет открываться новый​ для остальных сделайте​ один вопрос:​ ” ” &​ (просто я код​Busine2012​ времен школы и​ данные в таблицу​ выбираем «Шаблоны». В​ не потерять данные​
​ Как использовать эту​ стоит в третьем​ является правильное написание​ «Тип данных» выбираем​ Excel помогут нам​ удерживая нажатой клавишу​ печати целесообразно разместить​ файл Excel по​ по аналогии.​каким образом мне​

​ Me.ComboBox2.Value & “​​ не тестировал). Вот​
​:​ вуза осталось), задача​ на листе этого​ окне сверху появляется​ при сбое. Можно​ функцию, читайте в​ по счету столбце.​ товара в ячейках​ – «Другой». В​ в этом. Во​ CONTROL, и выберите​ бланк в книге​ шаблону в котором​If Me.OptionButton1.Value =​ прописать использование функцию​ ” & Me.ComboBox3.ValueМожно​ эту строку используйте:​Cloud_MD​ меня ставит в​ документа в виде:​ список всех шаблонов,​ настроить Excel на​ статье “Функция “Сцепить”​Или можно написать​ столбца А в​ строке «Формула:» пишем​
​ втором варианте рассмотрим,​ пункт​ “Список.xlsx”​ уже будет текстовая​ True Then ActiveSheet.Cells(lLastRow,​

CyberForum.ru

​ OptionButton, чтобы при​

Заполнение бланков данными из таблицы

Постановка задачи

Имеем базу данных (список, таблицу – называйте как хотите) с информацией по платежам на листе Данные:

Задача: быстро распечатывать приходно-кассовый ордер (платежку, счет-фактуру…) для любой нужной записи выбранной из этого списка. Поехали!

Шаг 1. Создаем бланк

На другом листе книги (назовем этот лист Бланк) создаем пустой бланк. Можно самостоятельно, можно воспользоваться готовыми бланками, взятыми, например, с сайтов журнала “Главный Бухгалтер” или сайта Microsoft. У меня получилось примерно так:

В пустые ячейки (Счет, Сумма, Принято от и т.д.) будут попадать данные из таблицы платежей с другого листа – чуть позже мы этим займемся.

Шаг 2. Подготовка таблицы платежей

Шаг 3. Связываем таблицу и бланк

Для связи используем функцию ВПР (VLOOKUP) – подробнее про нее можно почитать здесь. В нашем случае для того, чтобы вставить в ячейку F9 на бланке номер помеченного “x” платежа с листа Данные надо ввести в ячейку F9 такую формулу:

=ВПР(“x”;Данные!A2:G16;2;0)

=VLOOKUP(“x”;Данные!B2:G16;2;0)

Т.е. в переводе на “русский понятный” функция должна найти в диапазоне A2:G16 на листе Данные строку, начинающуюся с символа “х” и выдать нам содержимое второго столбца этой строки, т.е. номер платежа.

Аналогичным образом заполняются все остальные ячейки на бланке – в формуле меняется только номер столбца.

Для вывода суммы прописью я воспользовался функцией Propis из надстройки PLEX.

В итоге должно получиться следующее:

Шаг 4. Чтобы не было двух “х”…

Если пользователь введет “х” напротив нескольких строк, то функция ВПР будет брать только первое найденное значение. Чтобы не было такой многозначности, щелкните правой кнопкой мыши по ярлычку листа Данные и выберите Исходный текст (Source Code). В появившееся окно редактора Visual Basic скопируйте следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
Dim str As String

If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
    str = Target.Value
    Application.EnableEvents = False
    r = Cells(Rows.Count, 2).End(xlUp).Row
     Range("A2:A" & r).ClearContents
    Target.Value = str
End If
  Application.EnableEvents = True
End Sub

Этот макрос не дает пользователю ввести больше одного “х” в первый столбец.

Ну, вот, собственно и все! Пользуйтесь!

Ссылки по теме

• Использование функции ВПР (VLOOKUP) для подстановки значений
• Улучшенный вариант функции ВПР (VLOOKUP)
• Сумма прописью (функция Propis) из надстройки PLEX