Создаем бланк в excel

Вы можете создать форму в Excel, добавив в книгу элементы управления содержимым, такие как кнопки, флажки, списки и поля со списками. После этого другие пользователи смогут заполнить эту форму в приложении Excel и при желании распечатать ее.

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

1. В меню Excel выберите элемент Параметры.

2. В разделе Разработка выберите Представление.

3. В разделе Показывать на ленте установите флажок Вкладка «Разработчик».

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

1. На вкладке Разработчик выберите элемент управления, который хотите добавить.

2. На листе щелкните место, куда нужно вставить элемент управления.

3. Чтобы задать свойства элемента управления, щелкните его, удерживая нажатой клавишу CONTROL, и выберите пункт Формат элемента управления.

4. В окне Формат объекта задайте такие свойства элемента управления, как шрифт, выравнивание и цвет.

5. Повторите действия 1–4 для каждого добавляемого элемента управления.

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

1. В меню Сервис наведите указатель на пункт Защита и выберите команду Защитить лист.

2. Выберите нужные параметры защиты.

3. Сохраните и закройте книгу.

   Совет: Чтобы продолжить редактирование после защиты формы, в меню Сервис наведите указатель на пункт Защита и выберите команду Снять защиту листа.

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

При необходимости вы можете проверить форму, прежде чем распространять ее.

1. Защитите форму, как указано в описании шага 3.

2. Откройте форму еще раз, заполните ее обычным способом и сохраните как копию.

На чтение 6 мин Опубликовано 20.01.2021

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

Содержание

1. Использование инструментов заполнения в табличном редакторе
2. Первый метод: интегрированный элемент для ввода информации
3. Второй метод: наполнение бланков информацией из таблички
4. Заключение и выводы о создании бланка.

Использование инструментов заполнения в табличном редакторе

Форма заполнения – это специальный элемент с полями, названия которых соответствуют наименованиям столбиков наполняемой таблички. В поля необходимо вбивать информацию, которая сразу же вставится новой строчкой в выбранную область. Эта специальная форма может быть использована в качестве обособленного интегрированного инструмента табличного редактора или же находиться на самом рабочем листе в качестве диапазона. Разберем каждую вариацию более детально.

Первый метод: интегрированный элемент для ввода информации

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

1. Отметим, что изначально, иконка, которая включает эту форму – скрыта. Нам необходимо произвести процедуру активации инструмента. Передвигаемся в подменю «Файл», находящееся в левой верхней части интерфейса табличного редактора. Находим здесь элемент, имеющий наименование «Параметры», и кликаем по нему левой клавишей мышки.

1. На дисплее возникло окошко под наименованием «Параметры Excel». Передвигаемся в подраздел «Панель быстрого доступа». Здесь находится огромное количество разнообразных настроек. В левой стороне располагаются специальные инструменты, которые можно активировать на панели инструментов, а в правой стороне находятся уже включенные инструменты. Раскрываем перечень около надписи «Выбрать команды из:» и выбираем при помощи левой клавиши мышки элемент «Команды на ленте». В перечне команд, выведенном в порядке алфавита, ищем пункт «Форма…» и выбираем его. Кликам «Добавить».

1. Щелкаем на кнопку «ОК».

1. Мы активировали данный инструмент на специальной ленте.

1. Теперь нам необходимо заняться оформлением шапки таблички, а затем ввести какие-нибудь показатели в нее. Наша табличка будет состоять из 4 колонок. Вбиваем наименования.

1. В самую 1-ю строчку нашей таблички также вбиваем какое-нибудь значение.

1. Производим выделение любого поля заготовленной таблички и кликаем на элемент «Форма…», располагающийся на инструментальной ленте.

1. Открылось окошко настроек инструмента. Здесь располагаются строчки, соответствующие наименованиям колонок таблички.

Стоит отметить, что первая строчка уже наполнена данными, так как мы до этого самостоятельно ввели их на рабочем листе.

1. Вбиваем показатели, которые мы считаем необходимыми в остальные строчки. Кликаем на кнопку «Добавить».

1. В 1-ю строчку таблички автоматом перенеслись вбитые показатели, а в самой форме реализовался переход к другому блоку полей, соответствующему 2-ой строчке таблички.

1. Производим заполнение окошка инструмента показателями, которые мы желаем увидеть во 2-ой строчке таблички. Кликаем «Добавить».

1. Во 2-ю строчку таблички автоматом перенеслись вбитые показатели, а в самой форме реализовался переход к другому блоку полей, соответствующему 3-ей строчке таблички.

1. Аналогичным методом производим заполнение таблички всеми необходимыми показателями.

1. При помощи кнопок «Далее» и «Назад» можно реализовать навигацию по ранее вбитым показателям. Альтернативный вариант – полоса прокрутки.

1. При желании можно осуществить редактирование любых показателей в табличке, откорректировав их в самой форме. Для сохранения внесенных изменений необходимо кликнуть на «Добавить».

1. Замечаем, что все отредактированные значения отобразились и в самой табличке.

1. При помощи кнопки «Удалить» можно реализовать удаление конкретной строчки.

1. После нажатия появится специальное окошко с предупреждением, которое говорит о том, что выбранная строчка удалится. Необходимо кликнуть «ОК».

1. Строчка удалилась из таблички. После всех проведенных процедур жмем на элемент «Закрыть».

1. Дополнительно можно осуществить форматирование, чтобы табличка приобрела красивый внешний вид.

Второй метод: наполнение бланков информацией из таблички

К примеру, у нас имеется табличка, в которой содержится информация по платежам.

Цель: заполнить бланк этими данными, чтобы его можно было удобно и корректно распечатать. Подробная инструкция выглядит так:

1. На отдельном рабочем листе документа осуществляем создание пустого бланка.

Стоит заметить, что внешний вид самого бланка можно создать самостоятельно или же скачать готовые бланки с различных источников.

1. Перед тем как взять информацию из таблички ее необходимо немного изменить. Нам нужно добавить пустую колонку левее от исходной таблички. Здесь будет ставиться метка около той строчки, которую мы планируем добавить в сам бланк.

1. Теперь нам необходимо реализовать связывание таблички и бланка. Для этого нам понадобится оператор ВПР. Используем такую формулу: =ВПР(«x»;Данные!A2:G16;2;0).

1. Если поставить метку около нескольких строчек, то оператор ВПР будет брать только 1-й найденный показатель. Для решения этой проблемы необходимо щелкнуть ПКМ по иконке листа с исходной табличкой и кликнуть на элемент «Исходный текст». В отобразившемся окошке вводим такой код:

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

1. Данный макрос не позволяет вводить больше одной метки в первую колонку.

Заключение и выводы о создании бланка.

Мы выяснили, что существует несколько видов создания бланка в табличном редакторе. Можно использовать специальные формы, располагающиеся на инструментальной ленте или же применять оператор ВПР для осуществления переноса информации из таблички в бланк. Дополнительно применяются специальные макросы.

Оцените качество статьи. Нам важно ваше мнение:

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

Применение инструментов заполнения

Форма заполнения представляет собой объект с полями, наименования которых соответствуют названиям колонок столбцов заполняемой таблицы. В эти поля нужно вводить данные и они тут же будут добавляться новой строкой в табличный диапазон. Форма может выступать как в виде отдельного встроенного инструмента Excel, так и располагаться непосредственно на листе в виде его диапазона, если она создана самим пользователем.

Теперь давайте рассмотрим, как пользоваться этими двумя видами инструментов.

Способ 1: встроенный объект для ввода данных Excel

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

1. Нужно отметить, что по умолчанию значок, который её запускает, скрыт и его нужно активировать. Для этого переходим во вкладку «Файл», а затем щелкаем по пункту «Параметры».



2. В открывшемся окне параметров Эксель перемещаемся в раздел «Панель быстрого доступа». Большую часть окна занимает обширная область настроек. В левой её части находятся инструменты, которые могут быть добавлены на панель быстрого доступа, а в правой – уже присутствующие.

   В поле «Выбрать команды из» устанавливаем значение «Команды не на ленте». Далее из списка команд, расположенного в алфавитном порядке, находим и выделяем позицию «Форма…». Затем жмем на кнопку «Добавить».



3. После этого нужный нам инструмент отобразится в правой части окна. Жмем на кнопку «OK».



4. Теперь данный инструмент располагается в окне Excel на панели быстрого доступа, и мы им можем воспользоваться. Он будет присутствовать при открытии любой книги данным экземпляром Excel.



5. Теперь, чтобы инструмент понял, что именно ему нужно заполнять, следует оформить шапку таблицы и записать любое значение в ней. Пусть табличный массив у нас будет состоять из четырех столбцов, которые имеют названия «Наименование товара», «Количество», «Цена» и «Сумма». Вводим данные названия в произвольный горизонтальный диапазон листа.



6. Также, чтобы программа поняла, с каким именно диапазонам ей нужно будет работать, следует ввести любое значение в первую строку табличного массива.



7. После этого выделяем любую ячейку заготовки таблицы и щелкаем на панели быстрого доступа по значку «Форма…», который мы ранее активировали.



8. Итак, открывается окно указанного инструмента. Как видим, данный объект имеет поля, которые соответствуют названиям столбцов нашего табличного массива. При этом первое поле уже заполнено значением, так как мы его ввели вручную на листе.



9. Вводим значения, которые считаем нужными и в остальные поля, после чего жмем на кнопку «Добавить».



10. После этого, как видим, в первую строку таблицы были автоматически перенесены введенные значения, а в форме произошел переход к следующему блоку полей, который соответствуют второй строке табличного массива.




11. Заполняем окно инструмента теми значениями, которые хотим видеть во второй строке табличной области, и снова щелкаем по кнопке «Добавить».



12. Как видим, значения второй строчки тоже были добавлены, причем нам даже не пришлось переставлять курсор в самой таблице.



13. Таким образом, заполняем табличный массив всеми значениями, которые хотим в неё ввести.



14. Кроме того, при желании, можно производить навигацию по ранее введенным значениям с помощью кнопок «Назад» и «Далее» или вертикальной полосы прокрутки.



15. При необходимости можно откорректировать любое значение в табличном массиве, изменив его в форме. Чтобы изменения отобразились на листе, после внесения их в соответствующий блок инструмента, жмем на кнопку «Добавить».



16. Как видим, изменение сразу произошло и в табличной области.



17. Если нам нужно удалить, какую-то строчку, то через кнопки навигации или полосу прокрутки переходим к соответствующему ей блоку полей в форме. После этого щелкаем по кнопке «Удалить» в окошке инструмента.



18. Открывается диалоговое окно предупреждения, в котором сообщается, что строка будет удалена. Если вы уверены в своих действиях, то жмите на кнопку «OK».



19. Как видим, строчка была извлечена из табличного диапазона. После того, как заполнение и редактирование закончено, можно выходить из окна инструмента, нажав на кнопку «Закрыть».



20. После этого для предания табличному массиву более наглядного визуального вида можно произвести форматирование.

Способ 2: создание пользовательской формы

Кроме того, с помощью макроса и ряда других инструментов существует возможность создать собственную пользовательскую форму для заполнения табличной области. Она будет создаваться прямо на листе, и представлять собой её диапазон. С помощью данного инструмента пользователь сам сможет реализовать те возможности, которые считает нужными. По функционалу он практически ни в чем не будет уступать встроенному аналогу Excel, а кое в чем, возможно, превосходить его. Единственный недостаток состоит в том, что для каждого табличного массива придется составлять отдельную форму, а не применять один и тот же шаблон, как это возможно при использовании стандартного варианта.

1. Как и в предыдущем способе, прежде всего, нужно составить шапку будущей таблицы на листе. Она будет состоять из пяти ячеек с именами: «№ п/п», «Наименование товара», «Количество», «Цена», «Сумма».



2. Далее нужно из нашего табличного массива сделать так называемую «умную» таблицу, с возможностью автоматического добавления строчек при заполнении соседних диапазонов или ячеек данными. Для этого выделяем шапку и, находясь во вкладке «Главная», жмем на кнопку «Форматировать как таблицу» в блоке инструментов «Стили». После этого открывается список доступных вариантов стилей. На функционал выбор одного из них никак не повлияет, поэтому выбираем просто тот вариант, который считаем более подходящим.



3. Затем открывается небольшое окошко форматирования таблицы. В нем указан диапазон, который мы ранее выделили, то есть, диапазон шапки. Как правило, в данном поле заполнено все верно. Но нам следует установить галочку около параметра «Таблица с заголовками». После этого жмем на кнопку «OK».



4. Итак, наш диапазон отформатирован, как «умная» таблица, свидетельством чему является даже изменение визуального отображения. Как видим, помимо прочего, около каждого названия заголовка столбцов появились значки фильтрации. Их следует отключить. Для этого выделяем любую ячейку «умной» таблицы и переходим во вкладку «Данные». Там на ленте в блоке инструментов «Сортировка и фильтр» щелкаем по значку «Фильтр».
   

   Существует ещё один вариант отключения фильтра. При этом не нужно даже будет переходить на другую вкладку, оставаясь во вкладке «Главная». После выделения ячейки табличной области на ленте в блоке настроек «Редактирование» щелкаем по значку «Сортировка и фильтр». В появившемся списке выбираем позицию «Фильтр».



5. Как видим, после этого действия значки фильтрации исчезли из шапки таблицы, как это и требовалось.



6. Затем нам следует создать саму форму ввода данных. Она тоже будет представлять собой своего рода табличный массив, состоящий из двух столбцов. Наименования строк данного объекта будут соответствовать именам столбцов основной таблицы. Исключение составляют столбцы «№ п/п» и «Сумма». Они будут отсутствовать. Нумерация первого из них будет происходить при помощи макроса, а расчет значений во втором будет производиться путем применения формулы умножения количества на цену.

   Второй столбец объекта ввода данных оставим пока что пустым. Непосредственно в него позже будут вводиться значения для заполнения строк основного табличного диапазона.



7. После этого создаем ещё одну небольшую таблицу. Она будет состоять из одного столбца и в ней разместится список товаров, которые мы будем выводить во вторую колонку основной таблицы. Для наглядности ячейку с заголовком данного перечня («Список товаров») можно залить цветом.



8. Затем выделяем первую пустую ячейку объекта ввода значений. Переходим во вкладку «Данные». Щелкаем по значку «Проверка данных», который размещен на ленте в блоке инструментов «Работа с данными».



9. Запускается окно проверки вводимых данных. Кликаем по полю «Тип данных», в котором по умолчанию установлен параметр «Любое значение».



10. Из раскрывшихся вариантов выбираем позицию «Список».



11. Как видим, после этого окно проверки вводимых значений несколько изменило свою конфигурацию. Появилось дополнительное поле «Источник». Щелкаем по пиктограмме справа от него левой клавишей мыши.



12. Затем окно проверки вводимых значений сворачивается. Выделяем курсором с зажатой левой клавишей мыши перечень данных, которые размещены на листе в дополнительной табличной области «Список товаров». После этого опять жмем на пиктограмму справа от поля, в котором появился адрес выделенного диапазона.



13. Происходит возврат к окошку проверки вводимых значений. Как видим, координаты выделенного диапазона в нем уже отображены в поле «Источник». Кликаем по кнопке «OK» внизу окна.



14. Теперь справа от выделенной пустой ячейки объекта ввода данных появилась пиктограмма в виде треугольника. При клике на неё открывается выпадающий список, состоящий из названий, которые подтягиваются из табличного массива «Список товаров». Произвольные данные в указанную ячейку теперь внести невозможно, а только можно выбрать из представленного списка нужную позицию. Выбираем пункт в выпадающем списке.



15. Как видим, выбранная позиция тут же отобразилась в поле «Наименование товара».



16. Далее нам нужно будет присвоить имена тем трем ячейкам формы ввода, куда мы будем вводить данные. Выделяем первую ячейку, где уже установлено в нашем случае наименование «Картофель». Далее переходим в поле наименования диапазонов. Оно расположено в левой части окна Excel на том же уровне, что и строка формул. Вводим туда произвольное название. Это может быть любое наименование на латинице, в котором нет пробелов, но лучше все-таки использовать названия близкие к решаемым данным элементом задачам. Поэтому первую ячейку, в которой содержится название товара, назовем «Name». Пишем данное наименование в поле и жмем на клавишу Enter на клавиатуре.



17. Точно таким же образом присваиваем ячейке, в которую будем вводить количество товара, имя «Volum».



18. А ячейке с ценой – «Price».



19. После этого точно таким же образом даем название всему диапазону из вышеуказанных трех ячеек. Прежде всего, выделим, а потом дадим ему наименование в специальном поле. Пусть это будет имя «Diapason».



20. После последнего действия обязательно сохраняем документ, чтобы названия, которые мы присвоили, смог воспринимать макрос, созданный нами в дальнейшем. Для сохранения переходим во вкладку «Файл» и кликаем по пункту «Сохранить как…».



21. В открывшемся окне сохранения в поле «Тип файлов» выбираем значение «Книга Excel с поддержкой макросов (.xlsm)». Далее жмем на кнопку «Сохранить».



22. Затем вам следует активировать работу макросов в своей версии Excel и включить вкладку «Разработчик», если вы это до сих пор не сделали. Дело в том, что обе эти функции по умолчанию в программе отключены, и их активацию нужно выполнять принудительно в окне параметров Excel.
23. После того, как вы сделали это, переходим во вкладку «Разработчик». Кликаем по большому значку «Visual Basic», который расположен на ленте в блоке инструментов «Код».



24. Последнее действие приводит к тому, что запускается редактор макросов VBA. В области «Project», которая расположена в верхней левой части окна, выделяем имя того листа, где располагаются наши таблицы. В данном случае это «Лист 1».



25. После этого переходим к левой нижней области окна под названием «Properties». Тут расположены настройки выделенного листа. В поле «(Name)» следует заменить кириллическое наименование («Лист1») на название, написанное на латинице. Название можно дать любое, которое вам будет удобнее, главное, чтобы в нем были исключительно символы латиницы или цифры и отсутствовали другие знаки или пробелы. Именно с этим именем будет работать макрос. Пусть в нашем случае данным названием будет «Producty», хотя вы можете выбрать и любое другое, соответствующее условиям, которые были описаны выше.

    В поле «Name» тоже можно заменить название на более удобное. Но это не обязательно. При этом допускается использование пробелов, кириллицы и любых других знаков. В отличие от предыдущего параметра, который задает наименование листа для программы, данный параметр присваивает название листу, видимое пользователю на панели ярлыков.

    Как видим, после этого автоматически изменится и наименование Листа 1 в области «Project», на то, которое мы только что задали в настройках.



26. Затем переходим в центральную область окна. Именно тут нам нужно будет записать сам код макроса. Если поле редактора кода белого цвета в указанной области не отображается, как в нашем случае, то жмем на функциональную клавишу F7 и оно появится.



27. Теперь для конкретно нашего примера нужно записать в поле следующий код:

    
Sub DataEntryForm()
Dim nextRow As Long
nextRow = Producty.Cells(Producty.Rows.Count, 2).End(xlUp).Offset(1, 0).Row
With Producty
If .Range("A2").Value = "" And .Range("B2").Value = "" Then
nextRow = nextRow - 1
End If
Producty.Range("Name").Copy
.Cells(nextRow, 2).PasteSpecial Paste:=xlPasteValues
.Cells(nextRow, 3).Value = Producty.Range("Volum").Value
.Cells(nextRow, 4).Value = Producty.Range("Price").Value
.Cells(nextRow, 5).Value = Producty.Range("Volum").Value * Producty.Range("Price").Value
.Range("A2").Formula = "=IF(ISBLANK(B2), """", COUNTA($B$2:B2))"
If nextRow > 2 Then
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A" & nextRow)
Range("A2:A" & nextRow).Select
End If
.Range("Diapason").ClearContents
End With
End Sub


    Но этот код не универсальный, то есть, он в неизменном виде подходит только для нашего случая. Если вы хотите его приспособить под свои потребности, то его следует соответственно модифицировать. Чтобы вы смогли сделать это самостоятельно, давайте разберем, из чего данный код состоит, что в нем следует заменить, а что менять не нужно.

    Итак, первая строка:

    Sub DataEntryForm()

    «DataEntryForm» — это название самого макроса. Вы можете оставить его как есть, а можете заменить на любое другое, которое соответствует общим правилам создания наименований макросов (отсутствие пробелов, использование только букв латинского алфавита и т.д.). Изменение наименования ни на что не повлияет.

    Везде, где встречается в коде слово «Producty» вы должны его заменить на то наименование, которое ранее присвоили для своего листа в поле «(Name)» области «Properties» редактора макросов. Естественно, это нужно делать только в том случае, если вы назвали лист по-другому.

    

    Теперь рассмотрим такую строку:

    nextRow = Producty.Cells(Producty.Rows.Count, 2).End(xlUp).Offset(1, 0).Row

    Цифра «2» в данной строчке означает второй столбец листа. Именно в этом столбце находится колонка «Наименование товара». По ней мы будем считать количество рядов. Поэтому, если в вашем случае аналогичный столбец имеет другой порядок по счету, то нужно ввести соответствующее число. Значение «End(xlUp).Offset(1, 0).Row» в любом случае оставляем без изменений.

    

    Далее рассмотрим строку

    If .Range("A2").Value = "" And .Range("B2").Value = "" Then

    «A2» — это координаты первой ячейки, в которой будет выводиться нумерация строк. «B2» — это координаты первой ячейки, по которой будет производиться вывод данных («Наименование товара»). Если они у вас отличаются, то введите вместо этих координат свои данные.

    

    Переходим к строке

    Producty.Range("Name").Copy

    В ней параметр «Name» означат имя, которое мы присвоили полю «Наименование товара» в форме ввода.

    

    В строках

    
.Cells(nextRow, 2).PasteSpecial Paste:=xlPasteValues
.Cells(nextRow, 3).Value = Producty.Range("Volum").Value
.Cells(nextRow, 4).Value = Producty.Range("Price").Value
.Cells(nextRow, 5).Value = Producty.Range("Volum").Value * Producty.Range("Price").Value


    наименования «Volum» и «Price» означают названия, которые мы присвоили полям «Количество» и «Цена» в той же форме ввода.

    

    В этих же строках, которые мы указали выше, цифры «2», «3», «4», «5» означают номера столбцов на листе Excel, соответствующих колонкам «Наименование товара», «Количество», «Цена» и «Сумма». Поэтому, если в вашем случае таблица сдвинута, то нужно указать соответствующие номера столбцов. Если столбцов больше, то по аналогии нужно добавить её строки в код, если меньше – то убрать лишние.

    

    В строке производится умножение количества товара на его цену:

    .Cells(nextRow, 5).Value = Producty.Range("Volum").Value * Producty.Range("Price").Value

    Результат, как видим из синтаксиса записи, будет выводиться в пятый столбец листа Excel.

    

    В этом выражении выполняется автоматическая нумерация строк:

    
If nextRow > 2 Then
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A" & nextRow)
Range("A2:A" & nextRow).Select
End If


    Все значения «A2» означают адрес первой ячейки, где будет производиться нумерация, а координаты «A» — адрес всего столбца с нумерацией. Проверьте, где именно будет выводиться нумерация в вашей таблице и измените данные координаты в коде, если это необходимо.

    

    В строке производится очистка диапазона формы ввода данных после того, как информация из неё была перенесена в таблицу:

    .Range("Diapason").ClearContents

    Не трудно догадаться, что («Diapason») означает наименование того диапазона, который мы ранее присвоили полям для ввода данных. Если вы дали им другое наименование, то в этой строке должно быть вставлено именно оно.

    

    Дальнейшая часть кода универсальна и во всех случаях будет вноситься без изменений.

    После того, как вы записали код макроса в окно редактора, следует нажать на значок сохранения в виде дискеты в левой части окна. Затем можно его закрывать, щелкнув по стандартной кнопке закрытия окон в правом верхнем углу.



28. После этого возвращаемся на лист Excel. Теперь нам следует разместить кнопку, которая будет активировать созданный макрос. Для этого переходим во вкладку «Разработчик». В блоке настроек «Элементы управления» на ленте кликаем по кнопке «Вставить». Открывается перечень инструментов. В группе инструментов «Элементы управления формы» выбираем самый первый – «Кнопка».



29. Затем с зажатой левой клавишей мыши обводим курсором область, где хотим разместить кнопку запуска макроса, который будет производить перенос данных из формы в таблицу.



30. После того, как область обведена, отпускаем клавишу мыши. Затем автоматически запускается окно назначения макроса объекту. Если в вашей книге применяется несколько макросов, то выбираем из списка название того, который мы выше создавали. У нас он называется «DataEntryForm». Но в данном случае макрос один, поэтому просто выбираем его и жмем на кнопку «OK» внизу окна.



31. После этого можно переименовать кнопку, как вы захотите, просто выделив её текущее название.
    

    В нашем случае, например, логично будет дать ей имя «Добавить». Переименовываем и кликаем мышкой по любой свободной ячейке листа.



32. Итак, наша форма полностью готова. Проверим, как она работает. Вводим в её поля необходимые значения и жмем на кнопку «Добавить».



33. Как видим, значения перемещены в таблицу, строке автоматически присвоен номер, сумма посчитана, поля формы очищены.



34. Повторно заполняем форму и жмем на кнопку «Добавить».



35. Как видим, и вторая строка также добавлена в табличный массив. Это означает, что инструмент работает.

Читайте также:
Как создать макрос в Excel
Как создать кнопку в Excel

В Экселе существует два способа применения формы заполнения данными: встроенная и пользовательская. Применение встроенного варианта требует минимум усилий от пользователя. Его всегда можно запустить, добавив соответствующий значок на панель быстрого доступа. Пользовательскую форму нужно создавать самому, но если вы хорошо разбираетесь в коде VBA, то сможете сделать этот инструмент максимально гибким и подходящим под ваши нужды.

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

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

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

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

Шаг 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

Создание форм для заполнения и печати в 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, чтобы при​

Создаем формы в Excel

Если вам приходилось работать с таблицами из множества колонок, да еще к концу рабочего дня и в условиях дефицита времени, то, наверняка, вы случайно вводили данные в ячейку не той строки, в лучшем случае спохватывались и исправляли ошибку сразу, в худшем — ошибка выплывала позже в самый неподходящий момент. Как защитить себя от подобных ситуаций? Есть очень удобное средство — формы. Их созданию и работе с ними посвящена эта статья.

Начнем с того, что не во всех версиях Excel сразу доступна волшебная кнопка Форма. В этом случае предварительно настройте Параметры (перейти к ним можно на вкладке Файл). Здесь вы также можете сразу не найти то, что нужно добавить на ленту. Поэтому сначала измените вариант в поле Выбрать команды (в данном случае нужен вариант Все команды). Чтобы добавить найденную в списке команду Форма, нужно выбрать имя вкладки, где разместится кнопка и создать новую группу. Теперь щелкните по кнопке Добавить и проверьте, появилась ли новая команда в новой группе.

После этих манипуляций на вкладке Данные появится группа Работа с формами (это название задаете вы, когда создаете группу при настройке параметров Excel), а в ней нужная вам кнопка.

Форму нельзя создать, если шапка таблицы занимает несколько строк — это минус.

Но здесь можно «схитрить»: вставьте после настоящей шапки пустую строку, оформите заголовки строк в одну строку, для этой строки после создания формы установите нулевую высоту (Формат — Размер ячеек —Высота строки — ).

Осталось только щелкнуть на любой ячейке таблицы и на кнопке Форма. Готово, можно работать. Вы видите строку, относящуюся только к одному человеку, причем все названия граф в одной форме. Названия кнопок — настоящие подсказки для пользователя. Нужна новая строка — Добавить, не нужна существующая — Удалить, нужно перейти к какой-либо впереди — Далее, позади — Назад.

Единственной «неочевидной» является кнопка Критерии. Она позволяет включать фильтр, чтобы быстрее находить нужные строки, если их очень много. При задании критерия можно использовать такие знаки, как «*» и «?», критериев может быть несколько (но задать их нужно в пределах одного окна). Для отключения фильтра используйте кнопку Правка.

Выбор поля формы можно делать щелчком мыши или клавишей ТАВ. Добавлять новую строку в таблицу можно с помощью соответствующей кнопки или нажатием ENTER, когда заполнено последнее поле.

Конечно, использовать ли форму или работать с таблицей напрямую, решать вам. Но чтобы выбрать оптимальный способ работы, нужно попробовать разные варианты. Сведения о форме в Excel из этой статьи помогут вам это сделать.

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

Вы можете создать форму в Excel, добавив в книгу элементы управления содержимым, такие как кнопки, флажки, списки и поля со списками. После этого другие пользователи смогут заполнить эту форму в приложении Excel и при желании распечатать ее.

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

В меню Excel выберите элемент Параметры.

В разделе Разработка выберите Представление.

В разделе Показывать на ленте установите флажок Вкладка «Разработчик».

В правой части ленты нажмите кнопку и выберите пункт Параметры ленты.

В разделе Настройки установите флажок Разработчик.

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

На вкладке Разработчик выберите элемент управления, который хотите добавить.

На листе щелкните место, куда нужно вставить элемент управления.

Чтобы задать свойства элемента управления, щелкните его, удерживая нажатой клавишу CONTROL, и выберите пункт Формат элемента управления.

В окне Формат объекта задайте такие свойства элемента управления, как шрифт, выравнивание и цвет.

Повторите действия 1–4 для каждого добавляемого элемента управления.

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

В меню Сервис наведите указатель на пункт Защита и выберите команду Защитить лист.

Выберите нужные параметры защиты.

Сохраните и закройте книгу.

Совет: Чтобы продолжить редактирование после защиты формы, в меню Сервис наведите указатель на пункт Защита и выберите команду Снять защиту листа.

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

При необходимости вы можете проверить форму, прежде чем распространять ее.

Защитите форму, как указано в описании шага 3.

Откройте форму еще раз, заполните ее обычным способом и сохраните как копию.

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

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

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

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

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

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

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

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

Прежде чем брать данные из таблицы для нашего бланка, таблицу необходимо слегка модернизировать. А именно — вставить пустой столбец слева от таблицы. Мы будем использовать для ввода метки (пусть это будет английская буква «икс») напротив той строки, данные из которой мы хотим добавить в бланк:

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

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

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

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

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

Шаг 4. Чтобы не было двух «х».

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

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

Практическая работа по MS Excel Создание бланков

практическая работа по созданию бланков в MS EXCEL

Просмотр содержимого документа
«Практическая работа по MS Excel Создание бланков»

Практическая работа по MS Excel

Создать бланк по образцу

1. Сделать ячейки поуже (выделить все ячейки CTRL+A, выбрать Главная, вкладка Ячейки, Формат-Столбец-Ширина, установить значение 3).

2. Ячейка ВС1, выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 8, введите текст: Унифицированная форма № МХ-1

3. Ячейка BC2, выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 8, введите текст: Утверждена постановлением Госкомстата

4. Ячейка BC3, выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 8, введите текст: России от 09.08.99 № 66

5. Объединить ячейки AU5:BC5, выравнивание по вертикали и по горизонтали по центру, размер шрифта 10, введите текст: Код, отметить все границы (тонкая линия)

6. Объединить ячейки AU6:BC6, выравнивание по вертикали и по горизонтали по центру, размер шрифта 10, введите текст: 0335001

7. Ячейка AT6, выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 10, введите текст: Форма по ОКУД

8. Ячейка AT7, выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 10, введите текст: по ОКПО

9. Ячейка AT10, выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 10, введите текст: Вид деятельности по ОКДП

10. В ячейке АТ11 выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 10, введите текст: по ОКПО

11. Объединить ячейки AР14:AT14, выравнивание по вертикали по нижнему краю, размер шрифта 10, введите текст: номер

12. В ячейке АО14 выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 10 введите текст: Договор

13. Объединить ячейки AР15:AT15, выравнивание по вертикали по нижнему краю, размер шрифта 10, введите текст: дата

14. В ячейке АТ16 выравнивание по правому краю, по вертикали по нижнему краю, размер шрифта 10, введите текст: Вид операции

16. Объединить ячейки: А7:АО7, отметить нижнюю границу тонкой линией

17. Объединить ячейки: А8:АО8, выравнивание по вертикали по верхнему краю, размер шрифта 7, введите текст: (организация-хранитель, адрес, телефон, факс)

18. Объединить ячейки: А9:АТ9, отметить нижнюю границу тонкой линией

19. Объединить ячейки: К10:АD10, выравнивание по вертикали по верхнему краю, размер шрифта 7, введите текст: (структурное подразделение)

20. Объединить ячейки: А11:АО11, отметить нижнюю границу тонкой линией

21. Объединить ячейки: А12:АО12, выравнивание по вертикали по верхнему краю, размер шрифта 7, введите текст: (поклажедатель, наименование, адрес, телефон, факс)

22. Объединить ячейки: А13:АТ13, отметить нижнюю границу тонкой линией

23. Объединить ячейки: F14:АH14, выравнивание по вертикали по верхнему краю, размер шрифта 7, введите текст: (фамилия, имя, отчество)

24. Объединить ячейки: Y18:AD19, выравнивание по горизонтали: по правому краю (отступ), по вертикали по нижнему краю, размер шрифта 13, введите текст: АКТ

25. Объединить ячейки АЕ18:АL18, выравнивание по вертикали и по горизонтали по центру, размер шрифта 10, введите текст: Номер документа, задать всю границу тонкой линией

26. Объединить ячейки AМ18:АТ18, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 10, введите текст: Дата составления, задать всю границу тонкой линией

27. Объединить ячейки АЕ19:АL19 и ячейки AМ19:АТ19, задать всю границу жирной линией

28. Объединить ячейки A20:ВС20, выравнивание по вертикали и по горизонтали по центру, размер шрифта 10, введите текст: О ПРИЕМЕ-ПЕРЕДАЧЕ ТОВАРНО-МАТЕРИАЛЬНЫХ ЦЕННОСТЕЙ НА ХРАНЕНИЕ

29. В ячейку С22 введите текст: Акт составлен о том, что приняты на хранение, шрифт 10, выравнивание по левому краю

30. Объединить ячейки: А23:АК23, отметить нижнюю границу тонкой линией

31. Объединить ячейки: А24:АК24, выравнивание по вертикали по верхнему краю, размер шрифта 7, введите текст: (наименование, номер места хранения)

32. Объединить ячейки: АМ23:АZ23, отметить нижнюю границу тонкой линией

33. Объединить ячейки: АМ24:АZ24, выравнивание по вертикали по верхнему краю, размер шрифта 7, введите текст: (срок хранения)

34. В ячейке ВС23 введите текст: дней, выравнивание по правому краю

35. В ячейку А25 введите текст: следующие товарно-материальные ценности:, шрифт 10, выравнивание по левому краю

36. Объединить ячейки A27:D28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: Номер по порядку

37. Объединить ячейки A29:D29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта , введите текст: 1

38. Объединить ячейки A30:D30 и так далее построчно до A53:D53, задать границу всех линий, линии тонкие

39. Объединить ячейки Е27:S27, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: Товарно-материальные

40. Объединить ячейки Е28:О28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: наименование, вид упаковки

41. Объединить ячейки Р28:S28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: код

42. Объединить ячейки Т27:АВ28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: характеристика

43. Объединить ячейки АС27:АL27, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: единица измерения

44. Объединить ячейки АС28:АG28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: наименование

45. Объединить ячейки АН28:АL28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: код по ОКЕИ

46. Объединить ячейки АМ27:АR28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: Количество (масса)

47. Объединить ячейки АS27:ВС27, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: оценка

48. Объединить ячейки АS28:АW28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: цена

49. Объединить ячейки АХ28:ВС28, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: стоимость, руб. коп.

50. Объединить ячейки Е29:О29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 2

51. Объединить ячейки Е30:О30 и построчно до Е53:О53, задать все границы тонкой линией

52. Объединить ячейки Р29:S29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 3

53. Объединить ячейки Р30:S30 и построчно до P53:S53, задать все границы тонкой линией

54. Объединить ячейки T29:AB29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 4

55. Объединить ячейки T30:AB30 и построчно до T53:AB53, задать все границы тонкой линией

56. Объединить ячейки AC29:AG29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 5

57. Объединить ячейки AC30:AG30 и построчно до AC53:AG53, задать все границы тонкой линией

58. Объединить ячейки AH29:AL29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 6

59. Объединить ячейки AH30:AL30 и построчно до AH53:AL53, задать все границы тонкой линией

60. Объединить ячейки AM29:AR29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 7

61. Объединить ячейки AM30:AR30 и построчно до AM54:AR54, задать все границы тонкой линией

62. Объединить ячейки AS29:AW29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 8

63. Объединить ячейки AS30:AW30 и построчно до AS54:AW54, задать все границы тонкой линией

64. Объединить ячейки AX29:BC29, выравнивание по вертикали и по горизонтали по центру, отметить переносить по словам, размер шрифта 9, введите текст: 9

65. Объединить ячейки AX30:BC30 и построчно до AX54:BC54, задать все границы тонкой линией

66. Задать окантовку жирной линией на Р30:АВ53 и АН30:ВС53

67. В ячейке AL54, выравнивание по вертикали по нижнему краю, размер шрифта 10, введите текст: Итого

68. Изменить ширину столбцов всего документа на 0,8, высоту столбцов на 12

69. Оформить документ в целую страницу: меню Вид — Разметка страницы. Отменить сетку.

Заполнение бланков (форм)

Программы для заполнения бланков (документов, форм, приходно-кассовых ордеров, счетов-фактур, актов и доверенностей)

Представляем вашему вниманию 2 программы, предназначенных для заполнения бланков (формирования документов):

Предназначена для формирования файлов по шаблонам

Шаблонами могут выступать любые текстовые файлы, документы и шаблоны Word, книги и шаблоны Excel

Программа подойдёт для заполнения и печати договоров купли-продажи, актов, доверенностей, приказов, протоколов, командировочных удостоверений, деклараций, заявлений, справок, писем, ведомостей, карточек, форм налоговой отчетности, и т.д.

Кроме того, можно сформировать табель, путевой лист, отчет, табель учета рабочего времени, а также любые другие документы, каждый из которых находится в отдельном файле (Word или Excel)

Предназначена для создания листа Excel, на который будут выведены этикетки (наклейки, ценники, и т.д.) в несколько столбцов

Шаблоном выступает заданный в настройках диапазон ячеек книги Excel
(вы рисуете на листе Excel, как выглядит этикетка/наклейка/ценник, в настройках задаёте, по сколько штук их выводить на итоговый лист)

Программа подойдёт для формирования и печати наклеек, объявлений, ценников, квитанций, этикеток, конвертов, приглашений, и т.д.

Также при помощи этой программы можно напечатать платежки, чеки, и любые другие однотипные документы, причем все они будут выведены на печать одновременно
(один лист, состоящий из нескольких столбцов, и неограниченного количества строк)

Обе программы доступны для бесплатного скачивания.

Обе программы поддерживают обновления — все обновления бесплатны.

Почему программа заполнения документов удобнее, чем слияние в Word:

• слияние работает только с документами Word — а программа может подставлять данные как в документы Word, так и в книги Excel и текстовые файлы (TXT)
• функция «Слияние» в Word подставляет в документ данные из одной строки листа Excel — а программа имеет возможность подстановки данных сразу из нескольких выделенных строк
• при использовании программы, можно воспользоваться встроенными функциями склонения фамилий, «сумма прописью», и многими другими
• сформированные документы могут автоматически выводиться на печать, или сохраняться в формате ПДФ
• создаваемые файлы получают нужные имена (по заданной маске, с использованием данных из таблицы Excel) — это удобно при последующей отправке созданных файлов по почте
• заполнение документов выполняется одним нажатием кнопки — не надо разбираться в настройках слияния в Word

Is this article up to date?