Макрос ввода данных в таблицу excel

Для облегчения ввода данных в таблицу в 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, то сможете сделать этот инструмент максимально гибким и подходящим под ваши нужды.

При упоминании баз данных (БД) первым делом, конечно, в голову приходят всякие умные слова типа SQL, Oracle, 1С или хотя бы Access. Безусловно, это очень мощные (и недешевые в большинстве своем) программы, способные автоматизировать работу большой и сложной компании с кучей данных. Беда в том, что иногда такая мощь просто не нужна. Ваш бизнес может быть небольшим и с относительно несложными бизнес-процессами, но автоматизировать его тоже хочется. Причем именно для маленьких компаний это, зачастую, вопрос выживания.

Для начала давайте сформулируем ТЗ. В большинстве случаев база данных для учета, например, классических продаж  должна уметь:

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

Со всем этим вполне может справиться Microsoft Excel, если приложить немного усилий. Давайте попробуем это реализовать.

Шаг 1. Исходные данные в виде таблиц

Информацию о товарах, продажах и клиентах будем хранить в трех таблицах (на одном листе или на разных — все равно). Принципиально важно, превратить их в «умные таблицы» с автоподстройкой размеров, чтобы не думать об этом в будущем. Это делается с помощью команды Форматировать как таблицу на вкладке Главная (Home — Format as Table). На появившейся затем вкладке Конструктор (Design) присвоим таблицам наглядные имена в поле Имя таблицы для последующего использования:

Итого у нас должны получиться три «умных таблицы»:

Обратите внимание, что таблицы могут содержать дополнительные уточняющие данные. Так, например, наш Прайс содержит дополнительно информацию о категории (товарной группе, упаковке, весу и т.п.) каждого товара, а таблица Клиенты — город и регион (адрес, ИНН, банковские реквизиты и т.п.) каждого из них.

Таблица Продажи будет использоваться нами впоследствии для занесения в нее совершенных сделок.

Шаг 2. Создаем форму для ввода данных

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

В ячейке B3 для получения обновляемой текущей даты-времени используем функцию ТДАТА (NOW). Если время не нужно, то вместо ТДАТА можно применить функцию СЕГОДНЯ (TODAY).

В ячейке B11 найдем цену выбранного товара в третьем столбце умной таблицы Прайс с помощью функции ВПР (VLOOKUP). Если раньше с ней не сталкивались, то сначала почитайте и посмотрите видео тут.

В ячейке B7 нам нужен выпадающий список с товарами из прайс-листа. Для этого можно использовать команду Данные — Проверка данных (Data — Validation), указать в качестве ограничения Список (List) и ввести затем в поле Источник (Source) ссылку на столбец Наименование из нашей умной таблицы Прайс:

Аналогичным образом создается выпадающий список с клиентами, но источник будет уже:

=ДВССЫЛ(«Клиенты[Клиент]»)

Функция ДВССЫЛ (INDIRECT) нужна, в данном случае, потому что Excel, к сожалению, не понимает прямых ссылок на умные таблицы в поле Источник. Но та же ссылка «завернутая» в функцию ДВССЫЛ работает при этом «на ура» (подробнее об этом было в статье про создание выпадающих списков с наполнением).

Шаг 3. Добавляем макрос ввода продаж

После заполнения формы нужно введенные в нее данные добавить в конец таблицы Продажи. Сформируем при помощи простых ссылок строку для добавления прямо под формой:

Т.е. в ячейке A20 будет ссылка =B3, в ячейке B20 ссылка на =B7 и т.д.

Теперь добавим элементарный макрос в 2 строчки, который копирует созданную строку и добавляет ее к таблице Продажи. Для этого жмем сочетание Alt+F11 или кнопку Visual Basic на вкладке Разработчик (Developer). Если эту вкладку не видно, то включите ее сначала в настройках Файл — Параметры — Настройка ленты (File — Options — Customize Ribbon). В открывшемся окне редактора Visual Basic вставляем новый пустой модуль через меню Insert — Module и вводим туда код нашего макроса:

Sub Add_Sell()
    Worksheets("Форма ввода").Range("A20:E20").Copy                         'копируем строчку с данными из формы
    n = Worksheets("Продажи").Range("A100000").End(xlUp).Row                'определяем номер последней строки в табл. Продажи
    Worksheets("Продажи").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues 'вставляем в следующую пустую строку
    Worksheets("Форма ввода").Range("B5,B7,B9").ClearContents               'очищаем форму
End Sub

Теперь можно добавить к нашей форме кнопку для запуска созданного макроса, используя выпадающий список Вставить на вкладке Разработчик (Developer — Insert — Button):

После того, как вы ее нарисуете, удерживая нажатой левую кнопку мыши, Excel сам спросит вас — какой именно макрос нужно на нее назначить — выбираем наш макрос Add_Sell. Текст на кнопке можно поменять, щелкнув по ней правой кнопкой мыши и выбрав команду Изменить текст.

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

Шаг 4. Связываем таблицы

Перед построением отчета свяжем наши таблицы между собой, чтобы потом можно было оперативно вычислять продажи по регионам, клиентам или категориям. В старых версиях Excel для этого потребовалось бы использовать несколько функций ВПР (VLOOKUP) для подстановки цен, категорий, клиентов, городов и т.д. в таблицу Продажи. Это требует времени и сил от нас, а также «кушает» немало ресурсов Excel. Начиная с Excel 2013 все можно реализовать существенно проще, просто настроив связи между таблицами.

Для этого на вкладке Данные (Data) нажмите кнопку Отношения (Relations). В появившемся окне нажмите кнопку Создать (New) и выберите из выпадающих списков таблицы и названия столбцов, по которым они должны быть связаны:

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

Само-собой, аналогичным образом связываются и таблица Продажи с таблицей Клиенты по общему столбцу Клиент:

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

Шаг 5. Строим отчеты с помощью сводной

Теперь для анализа продаж и отслеживания динамики процесса, сформируем для примера какой-нибудь отчет с помощью сводной таблицы. Установите активную ячейку в таблицу Продажи и выберите на ленте вкладку Вставка — Сводная таблица (Insert — Pivot Table). В открывшемся окне Excel спросит нас про источник данных (т.е. таблицу Продажи) и место для выгрузки отчета (лучше на новый лист):

Жизненно важный момент состоит в том, что нужно обязательно включить флажок Добавить эти данные в модель данных (Add data to Data Model) в нижней части окна, чтобы Excel понял, что мы хотим строить отчет не только по текущей таблице, но и задействовать все связи.

После нажатия на ОК в правой половине окна появится панель Поля сводной таблицы, где нужно щелкнуть по ссылке Все, чтобы увидеть не только текущую, а сразу все «умные таблицы», которые есть в книге.А затем можно, как и в классической сводной таблице, просто перетащить мышью нужные нам поля из любых связанных таблиц в области Фильтра, Строк, Столбцов или Значений — и Excel моментально построит любой нужный нам отчет на листе:

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

Также, выделив любую ячейку в сводной и нажав кнопку Сводная диаграмма (Pivot Chart) на вкладке Анализ (Analysis) или Параметры (Options) можно быстро визуализировать посчитанные в ней результаты.

Шаг 6. Заполняем печатные формы

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

Предполагается, что в ячейку C2 пользователь будет вводить число (номер строки в таблице Продажи, по сути), а затем нужные нам данные подтягиваются с помощью уже знакомой функции ВПР (VLOOKUP) и функции ИНДЕКС (INDEX).

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

• Как использовать функцию ВПР (VLOOKUP) для поиска и подстановки значений
• Как заменить ВПР функциями ИНДЕКС и ПОИСКПОЗ
• Автоматическое заполнение форм и бланков данными из таблицы
• Создание отчетов с помощью сводных таблиц

Visual Basic is an excellent language for automating repetitive tasks in Excel. Imagine taking your automation up a notch by creating highly functional user forms that also look tidy to the end-users.

User forms in VBA present you with a blank canvas; you can design and organize the forms to fit your needs at any given time.

In this guide, you will learn to create a student-based data entry form that captures relevant information in linked Excel sheets.

Creating a User Form With Excel VBA

Open a new Excel workbook and perform a few preliminary steps before you start creating your data-entry form.

Save your workbook with the desired name; don’t forget to change the file’s type to an Excel Macro-Enabled Workbook.

Add two sheets to this workbook, with the following names:

1. Sheet1: Home
2. Sheet2: Student Database

Feel free to change these names as per your requirements.

In the Home sheet, add a button to control the user form macro. Go to the Developer tab and click on the Button option from the Insert drop-down list. Place the button anywhere on the sheet.

Once you’ve placed the button, rename it. Right-click on it, and click on New to assign a new macro to show the form.

Enter the following code in the editor window:

  Sub Button1_Click()UserForm.ShowEnd Sub 

Once the Home and Student Database sheets are ready, it’s time to design the user form. Navigate to the Developer tab, and click on Visual Basic to open the Editor. Alternatively, you can press ALT+F11 to open the editor window.

Click on the Insert tab and select UserForm.

A blank user form is ready for use; an accompanying toolbox opens along with the form, which has all the essential tools to design the layout.

From the toolbox, select the Frame option. Drag this to the user form and resize it.

In the (name) option, you can change the name of the frame. To showcase the name on the front-end, you can change the name in the Caption column.

Next, select the Label option from the toolbox and insert two labels within this frame. Rename the first one as Application Number and the second as Student ID.

The same renaming logic applies; change the names via the Caption option within the Properties window. Make sure you select the respective label before changing its name.

Next, insert two text boxes next to the label boxes. These will be used to capture the user’s inputs. Change the names of two text boxes via the (Name) column within the Properties window. The names are as follows:

• Textbox1: txtApplicationNo
• Textbox2: txtStudentID

Designing the Student Details Frame

Insert a vertical frame and add 10 labels and 10 text boxes. Rename each of them in the following manner:

• Label3: Name
• Label4: Age
• Label5: Address
• Label6: Phone
• Label7: City
• Label8: Country
• Label9: Date of Birth
• Label10: Zip Code
• Label11: Nationality
• Label12: Gender

Insert corresponding text boxes next to these labels; insert two (or more) optionbutton boxes from the user form toolbox next to the gender label. Rename them Male and Female (along with Custom), respectively.

Designing the Course Details Frame

Add another vertical frame and insert six labels and six text boxes corresponding to each label. Rename the labels as follows:

• Label13: Course Name
• Label14: Course ID
• Label15: Enrollment Start Date
• Label16: Enrollment End Date
• Label17: Course duration
• Label18: Department

Designing the Payment Details Frame

Insert a new frame; add a new label and rename it «Do you wish to update the Payment details?» Insert two optionbuttons; rename them Yes and No.

Similarly, add a new frame containing two additional labels and two combo boxes. Rename the labels as follows:

• Label19: Payment Received
• Label20: Mode of Payment

Designing the Navigation Pane

In the final frame, add three buttons from the toolbox, which will contain code for the execution of the forms.

Rename the buttons in the following manner:

• Button1: Save Details
• Button2: Clear Form
• Button3: Exit

Writing the Automated Form Code: Save Details Button

Double-click on the Save Details button. In the ensuing module, insert the following code:

  Private Sub CommandButton2_Click()‘declare the variables used throughout the codesDim sht As Worksheet, sht1 As Worksheet, lastrow As Long'Add validations to check if character values are being entered in numeric fields.If VBA.IsNumeric(txtApplicationNo.Value) = False ThenMsgBox "Only numeric values are accepted in the Application Number", vbCriticalExit SubEnd IfIf VBA.IsNumeric(txtStudentID.Value) = False ThenMsgBox "Only numeric values are accepted in the Student ID", vbCriticalExit SubEnd IfIf VBA.IsNumeric(txtAge.Value) = False ThenMsgBox "Only numeric values are accepted in Age", vbCriticalExit SubEnd IfIf VBA.IsNumeric(txtPhone.Value) = False ThenMsgBox "Only numeric values are accepted in Phone Number", vbCriticalExit SubEnd IfIf VBA.IsNumeric(Me.txtCourseID.Value) = False ThenMsgBox "Only numeric values are accepted in Course ID", vbCriticalExit SubEnd If'link the text box fields with the underlying sheets to create a rolling databaseSet sht = ThisWorkbook.Sheets("Student Database")'calculate last populated row in both sheetslastrow = sht.Range("a" & Rows.Count).End(xlUp).Row + 1'paste the values of each textbox into their respective sheet cellsWith sht.Range("a" & lastrow).Value = txtApplicationNo.Value.Range("b" & lastrow).Value = txtStudentID.Value.Range("c" & lastrow).Value = txtName.Value.Range("d" & lastrow).Value = txtAge.Value.Range("e" & lastrow).Value = txtDOB.Value.Range("g" & lastrow).Value = txtAddress.Value.Range("h" & lastrow).Value = txtPhone.Value.Range("i" & lastrow).Value = txtCity.Value.Range("j" & lastrow).Value = txtCountry.Value.Range("k" & lastrow).Value = txtZip.Value.Range("l" & lastrow).Value = txtNationality.Value.Range("m" & lastrow).Value = txtCourse.Value.Range("n" & lastrow).Value = txtCourseID.Value.Range("o" & lastrow).Value = txtenrollmentstart.Value.Range("p" & lastrow).Value = txtenrollmentend.Value.Range("q" & lastrow).Value = txtcourseduration.Value.Range("r" & lastrow).Value = txtDept.ValueEnd Withsht.Activate'determine gender as per user's inputIf optMale.Value = True Then sht.Range("g" & lastrow).Value = "Male"If optFemale.Value = True Then sht.Range("g" & lastrow).Value = "Female"'Display a message box, in case the user selects the Yes radio buttonIf optYes.Value = True ThenMsgBox "Please select the payment details below"Else:Exit SubEnd IfEnd Sub 

If you’re not sure what parts or any of the code means, don’t worry. We’ll explain it thoroughly in the next section.

Automated Form Code Explained

The textboxes will contain a mix of text and numeric values, so it’s essential to restrict the user’s input. The Application Number, Student ID, Age, Phone, Course ID, and Course Duration should contain only numbers, while the rest will contain text.

Using an IF statement, the code triggers error pop-ups if the user enters a character or text value in any of the numeric fields.

Since the error validations are in place, you need to link the text boxes with the sheet cells.

The lastrow variables will calculate the last populated row, and store the values in them for dynamic use.

Finally, the values are pasted from the text boxes into the linked Excel sheet.

Clear Form and Exit Button Codes

In the clear button, you need to write the code to clear the existing values from the user form. This can be done in the following manner:

  With Me.txtApplicationNo.Value = "".txtStudentID.Value = ""..txtName.Value = "".txtAge.Value = "".txtAddress.Value = "".txtPhone.Value = "".txtCity.Value = "".txtCountry.Value = "".txtDOB.Value = "".txtZip.Value = "".txtNationality.Value = "".txtCourse.Value = "".txtCourseID.Value = "".txtenrollmentstart.Value = "".txtenrollmentend.Value = "".txtcourseduration.Value = "".txtDept.Value = "".cmbPaymentMode.Value = "".cmbPayment.Value = "".optFemale.Value = False.optMale.Value = False.optYes.Value = False.optNo.Value = FalseEnd With 

In the exit button, enter the following code to close the user form.

  Private Sub CommandButton5_Click()Unload MeEnd Sub 

As a last step, you need to input a few final pieces of code to create the drop-down values for the combo boxes (within the payment frames).

  Private Sub UserForm_Activate()With cmbPayment.Clear.AddItem "".AddItem "Yes".AddItem "No"End WithWith cmbPaymentMode.Clear.AddItem "".AddItem "Cash".AddItem "Card".AddItem "Check"End WithEnd Sub 

VBA Automation Makes Work Easier

VBA is a multi-faceted language that serves many purposes. User forms are only one aspect within VBA—there are many other uses like consolidating workbooks and worksheets, merging multiple Excel sheets, and other handy automation uses.

No matter the automation goal, VBA is up to the task. If you keep learning and getting practice in, there’s no aspect of your workflow you can’t improve.

Формы ввода данных в Microsoft Excel

​Смотрите также​ в разных книгах.​ (а если позиций​ все обрезано.​Суть такая, я​ запуска макроса не​ и листов excel?​(Form) на Панели​Нажимайте клавишу TAB для​ то выбираем из​ соответствующих колонкам​ модифицировать. Чтобы вы​ того листа, где​ пункт в выпадающем​ действия значки фильтрации​ заполнения табличной области.​ с каким именно​Для облегчения ввода данных​В какую сторону​ накопится 1000? Это​

​постараюсь попозже выложить​ хочу нажимать на​

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

​ вынесена на Лист.​и что нужно​ быстрого доступа.​ перехода к следующему​ списка название того,​«Наименование товара»​ смогли сделать это​ располагаются наши таблицы.​ списке.​ исчезли из шапки​ Она будет создаваться​ диапазонам ей нужно​ в таблицу в​ копать? Опыта нет)))​ будет очень неудобно)​ скрины или фото.​ горячие клавиши, чтобы​ Изучаю решение. Спасибо​ дописать в код,​

​Используйте кнопки​ полю в форме.​ который мы выше​

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

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

1. ​ таблицы, как это​ прямо на листе,​ будет работать, следует​ Excel можно воспользоваться​Заранее огромное спасибо.​wild_pig​​eritik​​ появлялась форма, далее​Валера​​ чтобы данные копировались​​Назад​

   

2. ​Закончив ввод данных в​ создавали. У нас​«Количество»​​ из чего данный​​ это​ тут же отобразилась​ и требовалось.​ и представлять собой​ ввести любое значение​ специальными формами, которые​wild_pig​: И все 1000​: Фото в вложение​

   ​ я начинаю вводить​​: Огромное спасибо! Я​​ в строго определенный​​(Find Prev) и​​ строку, нажмите клавишу​ он называется​,​ код состоит, что​​«Лист 1»​​ в поле​Затем нам следует создать​​ её диапазон. С​​ в первую строку​

   

3. ​ помогут ускорить процесс​: Может мы вражины,​ будут разные. Что​eritik​​ информацию, она должна​​ уж учебники перечитал,​

   

4. ​ лист, а не​Далее​ RETURN , чтобы​«DataEntryForm»​«Цена»​ в нем следует​.​«Наименование товара»​ саму форму ввода​

   

5. ​ помощью данного инструмента​ табличного массива.​ заполнения табличного диапазона​ но маскируемся?​ с датой делать.​: пример во вложении​ искаться в столбце​ поисковики изнасиловал. А​ в тот в​(Find Next), чтобы​ добавить строку в​​. Но в данном​​и​​ заменить, а что​​После этого переходим к​​.​​ данных. Она тоже​​ пользователь сам сможет​​После этого выделяем любую​ информацией. В Экселе​Цитата​

   

6. ​Hugo​eritik​ (только уникальные само​ здесь, оказывается, какие​ котором форма активна​ легко переключаться от​ конец списка.​

   

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

   

8. ​ имеется встроенный инструмент​200?’200px’:»+(this.scrollHeight+5)+’px’);»>В какую сторону копать​:​: + файл​ собой), и если​ отзывчивые люди обитают!​ в данный момент.​ одной записи (строки)​По завершении добавления строк​ поэтому просто выбираем​. Поэтому, если в​

   

9. ​Итак, первая строка:​ окна под названием​ присвоить имена тем​ своего рода табличный​ которые считает нужными.​​ и щелкаем на​​ позволяющий производить заполнение​

   

10. ​ Копайте в сторону​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub GoEnd()​yutrans​ я выбираю этот​ Респект​Pavel55​ к другой.​ нажмите кнопку​ его и жмем​

    

11. ​ вашем случае таблица​Sub DataEntryForm()​«Properties»​ трем ячейкам формы​ массив, состоящий из​ По функционалу он​​ панели быстрого доступа​​ подобным методом. Также​

    
12. ​ создания своих тем,​Cells(Range(«a» & Rows.Count).End(xlUp).Row​: Спасибо. Буду изучать​ вариант, то автоматически​Serge_ASB​: Посмотрите пример.​

    

13. ​Примечание:​Закрыть​ на кнопку​ сдвинута, то нужно​

    

14. ​«DataEntryForm»​. Тут расположены настройки​ ввода, куда мы​ двух столбцов. Наименования​ практически ни в​​ по значку​​ пользователь может создать​​ и пользования поиском​​ + 1, 1).Select​Paul_GD​

    

15. ​ подставляются значение из​: Понравилась форма.​P.S. У меня​Используйте кнопки​, чтобы добавить последнюю​«OK»​ указать соответствующие номера​— это название​ выделенного листа. В​​ будем вводить данные.​​ строк данного объекта​

    

16. ​ чем не будет​«Форма…»​ собственный вариант формы,​

    

17. ​ (жесточайше).​End Sub​: Добрый день!​ соседних столбцов, но​У меня идея​ такое чувство, что​Добавить​ новую строку и​внизу окна.​​ столбцов. Если столбцов​​ самого макроса. Вы​

    

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

    

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

    

20. ​ столбцов основной таблицы.​ Excel, а кое​ активировали.​ адаптирована под его​

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

​:​ макроса закрепить в​ ввода данных! большой​ данного товара один,​ я ее в​ из таблицы каким-то​Удалить​ Для последней строки​ кнопку, как вы​ аналогии нужно добавить​ как есть, а​следует заменить кириллическое​ в нашем случае​ Исключение составляют столбцы​ в чем, возможно,​Итак, открывается окно указанного​ потребности, применив для​foxmeyson​ верхней закреплённой части​ потенциал!​ если не один,​ целом воплотил. Только​ странным способом. Например,​(Delete), чтобы добавлять​ не требуется нажимать​ захотите, просто выделив​ её строки в​ можете заменить на​ наименование (​ наименование​«№ п/п»​

1. ​ превосходить его. Единственный​ инструмента. Как видим,​ этого макрос. Давайте​, я бы использовал​ листа.​при использовании возник​ то общую сумму​​ вот созданием форм​​ нажав пробел на​​ или удалять записи.​​ клавишу RETURN .​​ её текущее название.​​ код, если меньше​​ любое другое, которое​​«Лист1»​​«Картофель»​​и​

   

2. ​ недостаток состоит в​ данный объект имеет​ рассмотрим различные варианты​ access. Его можно​wild_pig​ такой вопрос к​ поделить на количество​ никогда в Excel​ ячейке, если это​ Начав редактировать данные,​​Примечания:​​В нашем случае, например,​​ – то убрать​​ соответствует общим правилам​​) на название, написанное​​. Далее переходим в​«Сумма»​ том, что для​ поля, которые соответствуют​ использования этих полезных​ настроить через разного​: Вариант с формой​ форме по кнопке​ и присвоить это​

   
3. ​ не занимался. Посему​ так, то таким​ вы можете воспользоваться​ ​ логично будет дать​ лишние.​ создания наименований макросов​ на латинице. Название​ поле наименования диапазонов.​. Они будут отсутствовать.​ каждого табличного массива​​ названиям столбцов нашего​​ инструментов заполнения в​ рода DNS. И​​Bachata​​ Воронка новых клиентов​

   

4. ​ в цену.​ интересуюсь.​ образом удалять информацию​ кнопкой​В Excel строка автоматически​ ей имя​В строке производится умножение​ (отсутствие пробелов, использование​ можно дать любое,​ Оно расположено в​ Нумерация первого из​ придется составлять отдельную​ табличного массива. При​​ Excel.​​ пользовать одну базу​: Спасибо большое, то​​если имеется два​​Одно из полей​​Расскажите (или скажите​​ нельзя! Информация из​

   

   ​Вернуть​ добавляется при переходе​«Добавить»​ количества товара на​ только букв латинского​ которое вам будет​​ левой части окна​​ них будет происходить​ форму, а не​ этом первое поле​Скачать последнюю версию​​ со многомногими подключениями.​​ что нужно!​​ одинаковых названия для​​ это должна быть​ где взять) инфо​​ ячеек надо удалять​​(Restore), чтобы отменить​

   

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

   

6. ​ Excel на том​ при помощи макроса,​ применять один и​ уже заполнено значением,​ Excel​А можно установить​Скажите, а можно​ осуществления поиска в​ дата (календарь для​ по поводу -​ так:​​ любые изменения.​​ или закрытии формы​​ мышкой по любой​​.Cells(nextRow, 5).Value = Producty.Range(«Volum»).Value​ Изменение наименования ни​ в нем были​ же уровне, что​ а расчет значений​ тот же шаблон,​ так как мы​Форма заполнения представляет собой​ бд помощнее, например​

   ​ добавить в форму​ окне Результаты отображаются​ выбора).​ как рисовать саму​1) Выделяете мышкой​Нажмите кнопку​ данных.​

   

7. ​ свободной ячейке листа.​ * Producty.Range(«Price»).Value​ на что не​ исключительно символы латиницы​ и строка формул.​ во втором будет​ как это возможно​ его ввели вручную​ объект с полями,​ SQL server и​ поле для даты?​ оба. но при​​И еще в​​ форму и как​

   

8. ​ область ячеек на​Критерии​В ячейках, которые содержат​Итак, наша форма полностью​​Результат, как видим из​​ повлияет.​​ или цифры и​​ Вводим туда произвольное​ производиться путем применения​ при использовании стандартного​​ на листе.​​ наименования которых соответствуют​

   

9. ​ написать приложение работающие​ Т.е. чтобы ее​ выборе в окне​​ поле количество значение​​ прикручивать на элементы​ листе​​(Criteria), чтобы отобразить​​ формулу, отображается ее​

   

10. ​ готова. Проверим, как​ синтаксиса записи, будет​​Везде, где встречается в​​ отсутствовали другие знаки​

    

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

    

12. ​ управления «источник информации»​2) Нажимаете кнопку​ только те записи,​ результат. Изменить формулу​ она работает. Вводим​ выводиться в пятый​ коде слово​ или пробелы. Именно​​ быть любое наименование​​ на цену.​Как и в предыдущем​ нужными и в​ заполняемой таблицы. В​Stormy​

    
13. ​ вручную?​ остальные поля (которые​В общем объяснила​ и ячейку-получатель.​ Delete на клавиатуре​ которые удовлетворяют определенным​​ в форме данных​​ в её поля​​ столбец листа Excel.​​«Producty»​

    

14. ​ с этим именем​ на латинице, в​Второй столбец объекта ввода​ способе, прежде всего,​ остальные поля, после​ эти поля нужно​: Книги разные -​Не знаю, реализуемо​ содержат отличную от​ как смогла, лучше​​Буду рад комментариям.​​ (либо меню Правка​ критериям.​ невозможно.​ необходимые значения и​В этом выражении выполняется​вы должны его​ будет работать макрос.​ котором нет пробелов,​

    

15. ​ данных оставим пока​ нужно составить шапку​ чего жмем на​​ вводить данные и​​ но всегда одни​

    
16. ​ ли это ,​ первого варианта информацию)​ посмотрите на таблицу​Юрий М​ — Очистить)​Введите критерии и кликните​Изменение данных в строке​ жмем на кнопку​ автоматическая нумерация строк:​​ заменить на то​​ Пусть в нашем​ но лучше все-таки​ что пустым. Непосредственно​ будущей таблицы на​ кнопку​ они тут же​ и те же​ но было бы​ не меняются, т.е.​ и сразу все​: Список доступной для​Petr​ по кнопке​Щелкните любую ячейку в​«Добавить»​If nextRow >​ наименование, которое ранее​ случае данным названием​ использовать названия близкие​​ в него позже​​ листе. Она будет​«Добавить»​ будут добавляться новой​​ или меняются по​​ удобно, если бы​

    

17. ​ отображаются поля, содержащиеся​ поймете.​ скачивания литературы и​: возможно это произошло​​Правка​​ диапазоне или таблице​

    

18. ​.​ 2 Then​​ присвоили для своего​​ будет​

    

19. ​ к решаемым данным​ будут вводиться значения​ состоять из пяти​.​ строкой в табличный​ прихоти пользователя? Если​ в поле даты​ в строке по​__новая таблица учета.xlsx​ ссылки на ресурсы​​ случайно. обычно я​​(Form).​

    

20. ​ с данными, которые​Как видим, значения перемещены​Range(«A2»).Select​ листа в поле​«Producty»​ элементом задачам. Поэтому​ для заполнения строк​ ячеек с именами:​​После этого, как видим,​​ диапазон. Форма может​ одинаковые , то​​ (которое по-прежнему остается​​ первому вхождению.​

    

21. ​Большое СПАСИБО!​ можно найти в​​ удаляю информацию из​​Теперь, нажимая​​ требуется изменить.​ в таблицу, строке​​Selection.AutoFill Destination:=Range(«A2:A» &​«(Name)»​​, хотя вы можете​​ первую ячейку, в​

    

22. ​ основного табличного диапазона.​«№ п/п»​ в первую строку​ выступать как в​​ можно сделать форму​​ редактируемым) по дефолту​возможно ли сделать​eritik​ «Копилке». Загляните в​ ячеек как Вы​Назад​В меню​ автоматически присвоен номер,​ nextRow)​области​
23. ​ выбрать и любое​ которой содержится название​После этого создаем ещё​​,​​ таблицы были автоматически​ виде отдельного встроенного​​ ввода, а базу​​ стояло значение (т.е.​ так, что бы​:​​ Правила — там​​ и написали.​

    

24. ​(Find Prev) и​Данные​ сумма посчитана, поля​Range(«A2:A» & nextRow).Select​​«Properties»​​ другое, соответствующее условиям,​ товара, назовем​ одну небольшую таблицу.​«Наименование товара»​ перенесены введенные значения,​ инструмента Excel, так​ на Excel. Делаем​​ дата) предыдущей ячейки.​​ и поля отображались​

    

25. ​_Adelaida_​ всё есть.​и еще один,​​Далее​​выберите команду​ формы очищены.​End If​​редактора макросов. Естественно,​​ которые были описаны​«Name»​​ Она будет состоять​​,​ а в форме​ и располагаться непосредственно​ подключение через стандартный​ Например, в день​ соответсвенно от выбранного​, никто полностью всю​denisbuslov​ надеюсь последний в​(Find Next), вы​Форма​Повторно заполняем форму и​Все значения​ это нужно делать​ выше.​​. Пишем данное наименование​​ из одного столбца​«Количество»​ произошел переход к​ на листе в​ импорт данных MS​

    ​ нужно ввести 10-20​​ варианта?​​ работу за вас​: Нужно создать форму​ этом топике, вопрос:)​ будете видеть только​.​ жмем на кнопку​«A2»​ только в том​В поле​ в поле и​ и в ней​,​ следующему блоку полей,​ виде его диапазона,​

    ​ Query. Ну или​ наименований блюд. Ты​спасибо заранее!​​ делать не будет.​​ с помощью которой​​помогите добавить третью​​ данные, удовлетворяющие этим​Нажмите кнопку​«Добавить»​

    
26. ​означают адрес первой​ случае, если вы​«Name»​ жмем на клавишу​ разместится список товаров,​«Цена»​ который соответствуют второй​ если она создана​ что-то посложнее, но​ вместе с первым​yutrans​ это целый проект.​​ данные вносились бы​​ кнопочку к «да​

    

27. ​ критериям. В нашем​Создать​.​ ячейки, где будет​

    
​ назвали лист по-другому.​
​тоже можно заменить​Enter​
​ которые мы будем​,​
​ строке табличного массива.​
​ самим пользователем.​ уже на Аccess​ продуктом вводишь сегодняшнюю​
​: Удалите дубликаты строк.​если есть конкретные​
​ в бланк в​
​ - заменить" и​
​ примере – это​
​.​Как видим, и вторая​
​ производиться нумерация, а​Теперь рассмотрим такую строку:​
​ название на более​на клавиатуре.​
​ выводить во вторую​«Сумма»​
​Заполняем окно инструмента теми​Теперь давайте рассмотрим, как​
​ или так как​
​ дату, а дальше,​ (создайте базу данных​
​ вопросы: по организации​
​ строго указанные ячейки.​
​ "нет - добавить"​
​ запись 13.​
​В форме данных найдите​


    ​ строка также добавлена​ координаты «​nextRow = Producty.Cells(Producty.Rows.Count, 2).End(xlUp).Offset(1,​ удобное. Но это​Точно таким же образом​ колонку основной таблицы.​.​ значениями, которые хотим​ пользоваться этими двумя​ Матраскин предложил.​ при нажатии на​ без дубликатов)​ поиска, вывода/вывода данных​ Ячейки выделены красным​ еще одну «отмена»​Примечание:​ строку, которую требуется​

    ​ в табличный массив.​

    ​A»​

    ​ 0).Row​​ не обязательно. При​ присваиваем ячейке, в​ Для наглядности ячейку​Далее нужно из нашего​ видеть во второй​ видами инструментов.​Ирина​ кнопку «добавить» эта​Paul_GD​ — то задавайте.​ шрифтом. Заранее спасибо!​спасибо Вам за​Для редактирования критериев​ изменить, с помощью​

    ​ Это означает, что​— адрес всего​​Цифра​​ этом допускается использование​ которую будем вводить​ с заголовком данного​ табличного массива сделать​ строке табличной области,​​Прежде всего, давайте узнаем,​​: Здравствуйте, подскажите пожалуйста:​​ дата уже как​​: по факту они​если нужен весь​denisbuslov​ помощь!​ нажмите кнопку​

    

    ​ кнопок​

    ​ инструмент работает.​ столбца с нумерацией.​

    ​«2»​​ пробелов, кириллицы и​​ количество товара, имя​ перечня (​ так называемую «умную»​ и снова щелкаем​ как применять встроенную​​ можно ли в​​ бы автозаполнена.​ не являются дубликатами,​ проект целиком пишите​: Извините вот и​Pavel55​Критерии​Назад​Читайте также:​ Проверьте, где именно​​в данной строчке​​ любых других знаков.​«Volum»​

    

    ​«Список товаров»​

    ​ таблицу, с возможностью​ по кнопке​ форму для ввода​

    ​ excel 2010 создать​​wild_pig​ поскольку в след​ на почту del​ файл.​​: Посмотрите пример​​(Criteria) еще раз.​и​Как создать макрос​ будет выводиться нумерация​​ означает второй столбец​​ В отличие от​.​) можно залить цветом.​ автоматического добавления строчек​

    

    ​«Добавить»​

    ​ данных Excel.​

    ​ форму для ввода​​:​​ столбцах будут иные​ обсудим​​denisbuslov​​Petr​

    

    ​ Чтобы закрыть форму,​

    
​Найти далее​
​ в Excel​ в вашей таблице​
​ листа. Именно в​ предыдущего параметра, который​
​А ячейке с ценой​Затем выделяем первую пустую​


    ​ при заполнении соседних​​.​​Нужно отметить, что по​​ данных в форматированную​​Цитата​ данные.​​yutrans​​: Кто согласиться помочь​​: Pavel55, еще раз​​ кликните по​или полосы прокрутки.​

    

    ​Как создать кнопку​ и измените данные​ этом столбце находится​​ задает наименование листа​​ –​​ ячейку объекта ввода​​ диапазонов или ячеек​​Как видим, значения второй​​ умолчанию значок, который​​ таблицу. Заранее спасибо​​Bachata, 31.01.2014 в​Например,​: http://moonexcel.com.ua/%D1%83%D1%80…8B-userform_ru​​ по цене сойдемся!​​ спасибо!​​Закрыть​​Измените данные в строке.​​ в Excel​​ координаты в коде,​​ колонка​​ для программы, данный​«Price»​ значений. Переходим во​ данными. Для этого​ строчки тоже были​ её запускает, скрыт​ за ответ.​ 06:50, в сообщении​ООО рога и​eritik​Anton20002​

    

    ​Kegrus​(Close).​Совет:​

    ​В Экселе существует два​ если это необходимо.​

    ​«Наименование товара»​ параметр присваивает название​.​ вкладку​

    

    ​ выделяем шапку и,​ добавлены, причем нам​

    
​ и его нужно​Z​
​ № 8200?'200px':''+(this.scrollHeight+5)+'px');">Скажите, а​
​ копыта / договор​:​
​: denisbuslov,​
​: Как сделать в​


    ​Урок подготовлен для Вас​​ Чтобы перейти к следующему​​ способа применения формы​В строке производится очистка​. По ней мы​ листу, видимое пользователю​​После этого точно таким​​«Данные»​ находясь во вкладке​ даже не пришлось​ активировать. Для этого​: Да. Выделить данные​ можно добавить в​ 1 (поставка) /​_Adelaida_​

    

    ​приветствую готов помочь.​ форме ввода данных​ командой сайта office-guru.ru​ полю формы, нажмите​ заполнения данными: встроенная​ диапазона формы ввода​

    ​ будем считать количество​

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

    

    ​Источник: http://www.excel-easy.com/examples/data-form.html​ клавишу TAB ,​ и пользовательская. Применение​ данных после того,​

    ​ рядов. Поэтому, если​Как видим, после этого​ название всему диапазону​«Проверка данных»​, жмем на кнопку​ самой таблице.​«Файл»​ «Форма». Если его​ даты?​ООО рога и​ небольшая помощь.​Удалено. Нарушение п.4 Правил​

    

28. ​Примеру: 20 объектов​Перевел: Антон Андронов​ к предыдущему полю​ встроенного варианта требует​ как информация из​ в вашем случае​ автоматически изменится и​​ из вышеуказанных трех​​, который размещен на​​«Форматировать как таблицу»​​Таким образом, заполняем табличный​, а затем щелкаем​​ еще нет, то​​А как узнать,​ копыта / договор​​поиск и вывод​​ ветки РАБОТА/ФРИЛАНС​ с собственными названиями​​Автор: Антон Андронов​​ — сочетание клавиш​

    

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

    

30. ​ по пункту​ вынести на ПБД​ что уже следующий​ 2 (услуги) /​ всех найденных значений​присылайте свою цену.​ и номерами(чтобы постоянно​Petr​ SHIFT + TAB​ пользователя. Его всегда​ в таблицу:​ другой порядок по​​Листа 1​​ выделим, а потом​ инструментов​«Стили»​ которые хотим в​«Параметры»​​ (панель быстрого доступа)…​​ день? А, если​
31. ​ стоимость.руб.​ в listbox​RAN​ не писать навание​

    

    ​: здравствуйте!​ .​ можно запустить, добавив​​.Range(«Diapason»).ClearContents​​ счету, то нужно​в области​ дадим ему наименование​

    

32. ​«Работа с данными»​. После этого открывается​ неё ввести.​.​Ирина​ вы в «следующий»​​нужно изменить/дополнить по​​Private Sub TextBox1_Change()​

    

33. ​: Ниписал в ЛС.​ объектов в полях,​а возможно ли​Закончив изменение данных, нажмите​ соответствующий значок на​

    

34. ​Не трудно догадаться, что​ ввести соответствующее число.​​«Project»​​ в специальном поле.​

    

35. ​.​ список доступных вариантов​Кроме того, при желании,​В открывшемся окне параметров​: Здравствуйте. Спасибо. Я​

​ день захотите подправить​
​ Договору 2, а​ If Len(TextBox1) >​
​китин​ а выбирать из​

​ в excel сделать​ клавишу RETURN ,​ панель быстрого доступа.​ (​ Значение​, на то, которое​ Пусть это будет​Запускается окно проверки вводимых​ стилей. На функционал​ можно производить навигацию​ Эксель перемещаемся в​ знаю это действие.​ (забыли заполнить) предыдущий?​ форма зацикливает на​ 2 Then ListBox1.Clear​:​ списка).​ форму для ввода​ чтобы обновить строку.​

​ Пользовательскую форму нужно​

lumpics.ru

Упрощение ввода данных с помощью формы данных

​«Diapason»​«End(xlUp).Offset(1, 0).Row»​ мы только что​ имя​ данных. Кликаем по​ выбор одного из​ по ранее введенным​ раздел​ Но если данных​Bachata​ Договор 1, хотя​ itext$ = TextBox1.Value​Anton20002​P/S И как​ данных как в​

​В Excel будет автоматически​ создавать самому, но​) означает наименование того​в любом случае​ задали в настройках.​«Diapason»​ полю​ них никак не​

​ значениям с помощью​«Панель быстрого доступа»​

​ много и таблица​: Ну, например, предыдущий​ в окне Результаты​ If itext$ <>​

​: Удалено администрацией​​ добавить новый объект​ access?​ выбрана следующая строка.​

​ если вы хорошо​ диапазона, который мы​

​ оставляем без изменений.​Затем переходим в центральную​

1. ​.​«Тип данных»​ повлияет, поэтому выбираем​ кнопок​

2. ​. Большую часть окна​​ огромная, то тогда​​ день закончился так:​​ поиска видно оба​​ «» Then With​

3. ​Anton20002​​ в список формы​​ну чтобы появлялось​

4. ​Совет:​ разбираетесь в коде​

   ​ ранее присвоили полям​Далее рассмотрим строку​ область окна. Именно​

5. ​После последнего действия обязательно​, в котором по​ просто тот вариант,​«Назад»​ занимает обширная область​

6. ​ как быть? А​31.01.2014 такос 200​​ варианта​​ ThisWorkbook.Worksheets(«base»).[a:a] Dim icell​: Чего это мою​ данных​ окошко с определенными​ Перед нажатием клавиши RETURN​ VBA, то сможете​

   ​ для ввода данных.​​If .Range(«A2»).Value = «»​

   • ​ тут нам нужно​ сохраняем документ, чтобы​ умолчанию установлен параметр​ который считаем более​и​

   • ​ настроек. В левой​ работники мои плохо​ 226​yutrans​ As Range Set​

​ ссылку на видео​

1. ​Петр​ полями для заполнения​ можно отменить все​ сделать этот инструмент​

2. ​ Если вы дали​​ And .Range(«B2»).Value =​​ будет записать сам​​ названия, которые мы​​«Любое значение»​

3. ​ подходящим.​​«Далее»​​ её части находятся​

4. ​ соображают по части​На следующий день,​: А если выбор​ icell = .Find(itext$,​​ заблокировали?​​: Подскажите, а где​​ и затем данные​​ изменения, нажав кнопку​

5. ​ максимально гибким и​

   ​ им другое наименование,​​ «» Then​ код макроса. Если​ присвоили, смог воспринимать​.​Затем открывается небольшое окошко​или вертикальной полосы​ инструменты, которые могут​

6. ​ офиса 2010, они​ 1 февраля, я​ осуществлять через комбобокс?​

   ​ , xlValues, xlPart)​Pelena​

   ​ указывается в настройках​​ помещались в лист.​Восстановить​ подходящим под ваши​​ то в этой​​«A2»​

​ поле редактора кода​

1. ​ макрос, созданный нами​Из раскрывшихся вариантов выбираем​ форматирования таблицы. В​ прокрутки.​

2. ​ быть добавлены на​​ могут работать лишь​​ нажимаю на кнопочку​​Bachata​​ If Not icell​

3. ​:​​ полей, в какую​​если можно покажите​

4. ​.​ нужды.​ строке должно быть​— это координаты​​ белого цвета в​​ в дальнейшем. Для​​ позицию​​ нем указан диапазон,​

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

   ​ «добавить», и все​​: Всем доброго времени​ Is Nothing Then​Anton20002​ ячейку заносить данные?​ пример пожалуйста​

   ​Удаление строки​Автор: Максим Тютюшев​

См. также

​ вставлено именно оно.​ первой ячейки, в​

​ указанной области не​ сохранения переходим во​

support.office.com

Форма данных в Excel

​«Список»​ который мы ранее​ любое значение в​ а в правой​ и формулами. Хотелось​ поля формы, кроме​ суток!​ iaddress$ = icell.Address​, Вам ещё рано​Ан13​Pavel55​Щелкните любую ячейку в​Форма данных представляет собой​

1. ​Дальнейшая часть кода универсальна​
2. ​ которой будет выводиться​​ отображается, как в​​ вкладку​.​
3. ​ выделили, то есть,​​ табличном массиве, изменив​​ – уже присутствующие.​​ облечить им работу​​ поля «дата» (в​Некоторое время назад​ ListBox1.Clear Do Set​ в этой ветке​

​: Kegrus​​: Смотрите пример​​ диапазоне или таблице,​​ удобный способ ввода​​ и во всех​​ нумерация строк.​ нашем случае, то​«Файл»​Как видим, после этого​ диапазон шапки. Как​​ его в форме.​​В поле​ не разносить все​

1. ​ нем уже стоит​​ у меня появилась​​ icell = .FindNext(icell)​ постить. Прочитайте Правила​(Как сделать в​Guest​
2. ​ из которых нужно​ или просмотра одной​​ случаях будет вноситься​​«B2»​
3. ​ жмем на функциональную​​и кликаем по​​ окно проверки вводимых​​ правило, в данном​​ Чтобы изменения отобразились​«Выбрать команды из»​ в ручную, а​ дата предыдущего дня​ цель — начать​ ListBox1.AddItem icell.Value Loop​

​Anton20002​​ форме ввода данных​: Павел, что-то не​​ удалить строку.​​ строки данных в​ без изменений.​— это координаты​​ клавишу​​ пункту​

​ значений несколько изменило​ поле заполнено все​
​ на листе, после​
​устанавливаем значение​

​ с помощью формы​

office-guru.ru

форма ввода данных

​ — 31.01.2014), пустые.​​ вести учет потребляемой​
​ While iaddress$ <>​: Интересно…Целый день программу​ раскрывающийся список:​ срабатывает форма -​В меню​
​ диапазон или таблице.​После того, как вы​ первой ячейки, по​F7​«Сохранить как…»​
​ свою конфигурацию. Появилось​ верно. Но нам​

​ внесения их в​​«Команды не на ленте»​

​ данные заносить по​​ Я вручную изменяю​ пищи для того,​ icell.Address End If​

​ писал, а ее​​Примеру: 20 объектов​

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

​ вес​​ TextBox1.SetFocus End If​

​Pelena​​ и номерами(чтобы постоянно​

​: какую?​​Форма​
​ и поэтому одновременно​ следует нажать на​
​«Наименование товара»​ примера нужно записать​ в поле​. Щелкаем по пиктограмме​«Таблица с заголовками»​«Добавить»​
​ алфавитном порядке, находим​: Тогда, если нет​ на 01.02.2014, заполняю​Для этого был​ End If End​: Это раздел платных​ не писать навание​Petr​

​ код:​​выбираем значение​ левой клавишей мыши.​ на кнопку​Как видим, изменение сразу​«Форма…»​
​ формами в VBA​ делаю запись. И​ в котором продукты​
​ по найденному значению​ вообще не выкладываются.​ а выбирать из​немного изменил Ваш​Создать​
​ Это особенно полезно,​ левой части окна.​

​ введите вместо этих​​Sub DataEntryForm()​

​«Книга Excel с поддержкой​​Затем окно проверки вводимых​«OK»​

​ значений сворачивается. Выделяем​​.​ табличной области.​ кнопку​ работу в платном​

​ вручную прописывать дату​​|​ False On Error​denisbuslov​ добавить новый объект​ чтоб если данные​ строку, которую требуется​
​ столбцов данных, чем​
​ стандартной кнопке закрытия​
​Producty.Range(«Name»).Copy​
​nextRow = Producty.Cells(Producty.Rows.Count,​
​ кнопку​
​ левой клавишей мыши​
​ как «умная» таблица,​ какую-то строчку, то​.​

​ найдется желающий писать​​ не придется​

​Наименование​​ GoTo ErrorHandler sWhatFind​?​ в список формы​ из поля 1​ удалить, с помощью​ помещается на экране.​

​ окон в правом​​В ней параметр​ 2).End(xlUp).Offset(1, 0).Row​«Сохранить»​ перечень данных, которые​ свидетельством чему является​ через кнопки навигации​

​После этого нужный нам​​ большую форму задаром​(дело в том,​|​ = TextBox1.Value If​

​Anton20002​​ данных)​ уже есть в​ кнопок​Перед созданием формы данных​ верхнем углу.​«Name»​

​With Producty​​.​
​ размещены на листе​ даже изменение визуального​ или полосу прокрутки​ инструмент отобразится в​ и вряд ли​ что я не​Калорийность​ sWhatFind <> «»​
​: Да, его заказ.​См. файл​ списке то выводилось​Назад​ необходимо добавить подписи​После этого возвращаемся на​означат имя, которое​If .Range(«A2»).Value =​
​Затем вам следует активировать​

​ в дополнительной табличной​​ отображения. Как видим,​ переходим к соответствующему​ правой части окна.​ Вы сами ее​ знаю языков программирования,​.​ Then ‘With ThisWorkbook.Worksheets(1).[c:c]​

planetaexcel.ru

Форма для ввода данных в эксель (Excel)

​ И не понимаю​​Валера​ бы предупреждение с​и​ вверху каждого столбца​ лист Excel. Теперь​ мы присвоили полю​ «» And .Range(«B2»).Value​

​ работу макросов в​​ области​ помимо прочего, около​

​ ей блоку полей​​ Жмем на кнопку​ напишете.​

​ поэтому мне сложно​​Моя проблема заключаться​
​ Worksheets(«base»).Activate Cells.Find(What:=sWhatFind, After:=ActiveCell,​ почему нельзя показать​​: В развитие задачи​ предложением заменить старые​​Найти далее​

​ в диапазоне или​​ нам следует разместить​

​«Наименование товара»​​ = «» Then​

​ своей версии Excel​​«Список товаров»​

​ каждого названия заголовка​​ в форме. После​«OK»​Мотя​

​ сказать, насколько это​​ в том, что​​ SearchOrder:=xlByColumns).Activate ‘ Затем​​ товар лицом​ Kegrus-а. Надо чтобы​ или добавить новые​

​или полосы прокрутки.​​ таблице. В Excel​ кнопку, которая будет​в форме ввода.​

​nextRow = nextRow​​ и включить вкладку​. После этого опять​ столбцов появились значки​
​ этого щелкаем по​.​​: Уважаемая Ирина!​​ реализуемо​

​ через какое-то время​​ определяем номер строки,​Pelena​ в ComboBox отображались​ данные.​

​Нажмите кнопку​​ эти подписи используются​​ активировать созданный макрос.​​В строках​ — 1​«Разработчик»​ жмем на пиктограмму​ фильтрации. Их следует​ кнопке​Теперь данный инструмент располагается​Не изобретайте велосипед!​А что насчет​ позиций в файле​ в которой находится​:​
​ 2 столбца: №пп​

excelworld.ru

Excel: форма ввода данных в таблицу

​ZVI​​Удалить​
​ для создания полей​ Для этого переходим​.Cells(nextRow, 2).PasteSpecial Paste:=xlPasteValues​End If​
​, если вы это​ справа от поля,​ отключить. Для этого​«Удалить»​ в окне Excel​Во всех версиях​ корректировки… пока переписывать​ становится очень много,​ слово nRow =​
​Anton20002​ ответа и сам​: —​.​ в форме.​ во вкладку​.Cells(nextRow, 3).Value =​Producty.Range(«Name»).Copy​ до сих пор​ в котором появился​ выделяем любую ячейку​в окошке инструмента.​ на панели быстрого​ EXCEL (2003, 2007,​ записанное меню, вроде​ и каждый раз​ ActiveCell.Rows.Row ‘ nColumn​, Вы так и​ ответ. Например:​В Excel есть​
​Внимание:​Подписи столбцов становятся​«Разработчик»​ Producty.Range(«Volum»).Value​
​.Cells(nextRow, 2).PasteSpecial Paste:=xlPasteValues​ не сделали. Дело​ адрес выделенного диапазона.​
​ «умной» таблицы и​Открывается диалоговое окно предупреждения,​ доступа, и мы​ 2010 — про​ бы, не приходилось​
​ листать в конец​
​ = ActiveCell.Column ‘​

​ не поняли, за​​1 заявка​​ встроенная форма для​​ В Excel будет выведен​ именами полей.​. В блоке настроек​.Cells(nextRow, 4).Value =​
​.Cells(nextRow, 3).Value =​ в том, что​Происходит возврат к окошку​ переходим во вкладку​
​ в котором сообщается,​ им можем воспользоваться.​ 2013 не знаю)​Wasilich​

​ листа, чтобы ввести​​ Эта строка для​

​ что получили два​​2 договор​​ редактирования данных, из​​ запрос на подтверждение​Данные, вводимые в​
​«Элементы управления»​ Producty.Range(«Price»).Value​ Producty.Range(«Volum»).Value​
​ обе эти функции​ проверки вводимых значений.​«Данные»​ что строка будет​ Он будет присутствовать​ штатный режим «Форма»​: Вот зачем усложнять​ очередное блюдо ну​ примера, как определить​ замечания? У нас​3 реализация​ VBA вызывается так:​ операции. После подтверждения​ каждое поле формы,​на ленте кликаем​.Cells(nextRow, 5).Value =​.Cells(nextRow, 4).Value =​ по умолчанию в​ Как видим, координаты​. Там на ленте​ удалена. Если вы​ при открытии любой​ достаточно «кривой» и​
​ и так сложную​ очень неудобно!!​ столбец ячейки ‘​ на форуме платные​4 снижение​Sub ФормаВводаДанных()​ удаление строки нельзя​ помещаются в следующую​ по кнопке​ Producty.Range(«Volum»).Value * Producty.Range(«Price»).Value​ Producty.Range(«Price»).Value​ программе отключены, и​ выделенного диапазона в​ в блоке инструментов​ уверены в своих​ книги данным экземпляром​ ограничен 32 полями​ прогу?​Не могли бы​ И адресуем ячейку:​ заказы разрешено брать​5 увеличение​On Error Resume​ отменить.​ пустую строку.​«Вставить»​наименования​.Cells(nextRow, 5).Value =​ их активацию нужно​ нем уже отображены​«Сортировка и фильтр»​ действиях, то жмите​

​ Excel.​​ БД.​

​Можно же проще.​​ вы подсказать решение​​ On Error Resume​​ только проверенным форумчанам,​
​6 расторжение​ Next​Все строки, следующие за​
​Важно:​. Открывается перечень инструментов.​

​«Volum»​​ Producty.Range(«Volum»).Value * Producty.Range(«Price»).Value​

​ выполнять принудительно в​​ в поле​

​щелкаем по значку​​ на кнопку​

​Теперь, чтобы инструмент понял,​​Установите​

​Bachata​​ моей проблемы? Как​
​ Next TextBox14 =​ то есть тем,​А в соответствующие​
​ActiveSheet.ShowDataForm​ удаленной, перемещаются вверх.​ С помощью формы данных​ В группе инструментов​
​и​.Range(«A2»).Formula = «=IF(ISBLANK(B2),​ окне параметров Excel.​«Источник»​«Фильтр»​«OK»​ что именно ему​БЕСПЛАТНУЮ надстройку​: А можно сделать​ я понимаю, самым​ Cells(nRow, 15) TextBox15​ кто сначала заработал​ ячейки Excel заносился​If Err <>​
​Ввод ряда чисел, дат​ невозможно добавлять, изменять​«Элементы управления формы»​«Price»​ «»»», COUNTA($B$2:B2))»​
​После того, как вы​

​. Кликаем по кнопке​​.​.​ нужно заполнять, следует​

​, ссылку на которую​​ так, чтобы в​ удобным вариантом было​ = Cells(nRow, 16)​ себе репутацию в​ только №пп…​
​ 0 Then MsgBox​
​ или других элементов​ и удалять формулы.​выбираем самый первый​означают названия, которые​
​If nextRow >​ сделали это, переходим​«OK»​Существует ещё один вариант​
​Как видим, строчка была​ оформить шапку таблицы​ на форуме для​ форме которую приложил​ бы создание форм?​ TextBox16 = Cells(nRow,​ основных БЕСПЛАТНЫХ ветках​

​Юрий М​​ «Нет данных», vbInformation,​Автоматическое заполнение списков в​

CyberForum.ru

Простая форма ввода данных (Макросы Sub)

​Выполните одно из перечисленных​​ –​ мы присвоили полям​
​ 2 Then​ во вкладку​внизу окна.​ отключения фильтра. При​ извлечена из табличного​ и записать любое​ всех любезно предложил​
​ wild_pig к колонкам​Спасибо! (Файлик прикладываю)​ 17) TextBox1.SetFocus GoTo​ форума.​​: Вот так.​​ «Форма ввода данных»​​ Excel​​ ниже действий.​​«Кнопка»​​«Количество»​
​Range(«A2»).Select​«Разработчик»​Теперь справа от выделенной​ этом не нужно​ диапазона. После того,​ значение в ней.​один из самых уважаемых​ с датой (А:А)​wild_pig​ Ends: ErrorHandler: MsgBox​
​А зачем?​Валера​End Sub​Форма данных позволяет добавлять,​Добавление данных с помощью​.​
​и​

​Selection.AutoFill Destination:=Range(«A2:A» &​​. Кликаем по большому​ пустой ячейки объекта​

​ даже будет переходить​​ как заполнение и​ Пусть табличный массив​

​ экспертов форума​​ просто реализовывалась функция​: Меньше еды -​ («Нет такой организации»)​_Adelaida_​: Ээээ, Юрий. Прикреплен​—​ редактировать и удалять​ формы​Затем с зажатой левой​«Цена»​ nextRow)​ значку​

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

​-​​ ТДАТА?​​ меньше файлик :)​
​ Ends: Else MsgBox​: Доброго времени суток!​
​ файл с 2​

​ZVI​ записи (строки), а​Щелкните любую ячейку в​ клавишей мыши обводим​

​в той же​​Range(«A2:A» & nextRow).Select​

​«Visual Basic»​​ пиктограмма в виде​ оставаясь во вкладке​​ выходить из окна​ состоять из четырех​ZVI​wild_pig​wild_pig​ («Введите название организации»)​
​Но форуме в​ столбцами на листе.​Pavel55​ также отображать только​ диапазоне или таблице,​ курсором область, где​ форме ввода.​End If​, который расположен на​ треугольника. При клике​«Главная»​ инструмента, нажав на​ столбцов, которые имеют​.​: Вот​: А что надо​ End If On​ первый раз, так​ Никакими ComboBox-ами там​

​: Посмотрите пример​​ ту информацию, которая​​ к которым нужно​​ хотим разместить кнопку​В этих же строках,​.Range(«Diapason»).ClearContents​ ленте в блоке​ на неё открывается​. После выделения ячейки​
​ кнопку​ названия​Надстройка:​foxmeyson​ то?​ Error Resume Next​

​ что извините, если​​ и не пахнет​Petr​
​ удовлетворяет определенным критериям.​ добавить строку.​
​ запуска макроса, который​ которые мы указали​End With​ инструментов​ выпадающий список, состоящий​ табличной области на​«Закрыть»​«Наименование товара»​1. не имеет​: Друзья, подскажите, как​Bachata​ Worksheets(«данные»).Activate Application.ScreenUpdating =​ что не так.​ :)​: Спасибо за помощь!!!​ Форма бывает особенно​В меню​ будет производить перенос​ выше, цифры​​End Sub​«Код»​ из названий, которые​ ленте в блоке​.​,​
​ ограничения на количество​ вы это делаете?​: Ну, как. Хочу​ True​

​Мне нужно быстро​​Юрий М​Petr​ полезна, когда строки​
​Данные​

​ данных из формы​​«2»​Но этот код не​.​ подтягиваются из табличного​ настроек​После этого для предания​«Количество»​

​ полей БД,​​Просто мне необходимо​

​ сделать форму ввода​​yutrans​ заполнять таблицу в​
​: Я не знал,​: Уважаемый Павел!​ в документе очень​выберите команду​ в таблицу.​,​ универсальный, то есть,​Последнее действие приводит к​ массива​
​«Редактирование»​ табличному массиву более​
​,​

​2. позволяет одним​​ самому написать нечто​ — т.е. чтобы​
​: eritik,Вы файл приложите?​​ экселе, через гуглпоиск​ что Вы не​возникло еще пара​ широкие и нужно​Форма​

​После того, как область​​«3»​​ он в неизменном​​ тому, что запускается​«Список товаров»​щелкаем по значку​ наглядного визуального вида​«Цена»​ движением мыши изменить​
​ подобное, только чтобы​ можно данные было​eritik​ нашла, что это​ сможете запустить кнопку​

​ вопросов.​​ избежать постоянной прокрутки​.​ обведена, отпускаем клавишу​,​ виде подходит только​ редактор макросов VBA.​. Произвольные данные в​«Сортировка и фильтр»​ можно произвести форматирование.​и​ размеры формы,​ форма ввода была​ вводить вверху страницы,​:​ надо сделать форму​ из VBE. Вот​

excelworld.ru

создание в Excel 2010 формы для ввода данных в форматированную таблицу

​как в последнем​​ листа вправо и​Нажмите кнопку​ мыши. Затем автоматически​«4»​ для нашего случая.​ В области​ указанную ячейку теперь​

​. В появившемся списке​​Кроме того, с помощью​«Сумма»​3. содержит необходимый​ доступна по сети​ а не каждый​yutrans​

​ ввода и через​​ Вам с кнопочкой​ вашем примере сделать,​ влево.​Создать​ запускается окно назначения​,​ Если вы хотите​«Project»​ внести невозможно, а​ выбираем позицию​ макроса и ряда​. Вводим данные названия​ минимум инструментов для​ и заносила данные​ раз листать лист​, не могу.​ программирование. Мои знания​ :-)​

​ чтобы появляющееся окно​​Откройте файл Excel.​.​ макроса объекту. Если​«5»​ его приспособить под​, которая расположена в​ только можно выбрать​«Фильтр»​ других инструментов существует​ в произвольный горизонтальный​ работы по ведению​

​ без открытия документа+​​ вниз и добавлять​
​сижу с рабочего​
​ экселя на этом​Валера​ формы не блокировало​Выберите команду​Введите данные для новой​ в вашей книге​означают номера столбцов​ свои потребности, то​
​ верхней левой части​​ из представленного списка​​.​ возможность создать собственную​ диапазон листа.​​ БД.​ данные будут связаны​​ по новой строке​​ компа, на котором​​ заканчиваются.​
​: Сглупил. Просто кнопка​
​ просмотр остальных книг​Форма​ строки.​
​ применяется несколько макросов,​ на листе Excel,​ его следует соответственно​
​ окна, выделяем имя​ нужную позицию. Выбираем​Как видим, после этого​ пользовательскую форму для​

planetaexcel.ru

​Также, чтобы программа поняла,​

В этой заметке описываются методы создания пользовательских диалоговых окон, которые существенно расширяют стандартные возможности Excel. Диалоговые окна – это наиболее важный элемент пользовательского интерфейса в Windows. Они применяются практически в каждом приложении Windows, и большинство пользователей неплохо представляет, как они работают. Разработчики Excel создают пользовательские диалоговые окна с помощью пользовательских форм (UserForm). Кроме того, в VBA имеются средства, обеспечивающие создание типовых диалоговых окон.[1]

Рис. 1. Работа процедуры GetName

Скачать заметку в формате Word или pdf, примеры в архиве

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

Использование окон ввода данных

Окно ввода данных — это простое диалоговое окно, которое позволяет пользователю ввести одно значение. Например, можно применить окно ввода данных, чтобы предоставить пользователю возможность ввести текст, число или диапазон значений. Для создания окна ввода предназначены две функции InputBox: одна— в VBA, а вторая является методом объекта Application.

Функция InputBox в VBA

Функция имеет следующий синтаксис:

InputBox(запрос [, заголовок] [, по_умолчанию] [, xpos] [, ypos] [, справка, раздел])

• Запрос. Указывает текст, отображаемый в окне ввода (обязательный параметр).
• Заголовок. Определяет заголовок окна ввода (необязательный параметр).
• По_умолчанию. Задает значение, которое отображается в окне ввода по умолчанию (необязательный параметр).
• xpos, ypos. Определяют координаты верхнего левого угла окна ввода на экране (необязательные параметры).
• Справка, раздел. Указывают файл и раздел в справочной системе (необязательные параметры).

Функция InputBox запрашивает у пользователя одно значение. Она всегда возвращает строку, поэтому результат нужно будет преобразовать в числовое значение. Текст, отображаемый в окне ввода, может достигать 1024 символов (длину допускается изменять в зависимости от ширины используемых символов). Если определить раздел справочной системы, то в диалоговом окне будет отображена кнопка Справка.

Процедура GetName запрашивает у пользователя полное имя (имя и фамилию). Затем программа выделяет имя и отображает приветствие в окне сообщения (см. рис. 1; код функции можно найти в файле VBA inputbox.xlsm).

Sub GetName()     Dim UserName As String     Dim FirstSpace As Integer     Do Until UserName <> «»         UserName = InputBox(«Укажите имя и фамилию: «, _             «Назовите себя»)     Loop     FirstSpace = InStr(UserName, » «)     If FirstSpace <> 0 Then         UserName = Left(UserName, FirstSpace — 1)     End If     MsgBox «Привет « & UserName End Sub

Обратите внимание: функция InputBox вызывается в цикле Do Until. Это позволяет убедиться в том, что данные введены в окно. Если пользователь щелкнет на кнопке Отмена или не введет текст, то переменная UserName будет содержать пустую строку, а окно ввода данных появится повторно. Далее в процедуре будет предпринята попытка получить имя пользователя путем поиска первого символа пробела (для этого применяется функция InStr). Таким образом, можно воспользоваться функцией Left для получения всех символов, расположенных слева от символа пробела. Если символ пробела не найден, то используется все введенное имя.

Если строка, предоставленная в качестве результата выполнения функции InputBox, выглядит как число, ее можно преобразовать с помощью функции VBA Val.

В процедуре GetWord пользователю предлагается ввести пропущенное слово (рис. 2). Этот пример также иллюстрирует применение именованных аргументов (р и t). Текст запроса выбирается из ячейки А1 рабочего листа.

Sub GetWord()     Dim TheWord As String     Dim p As String     Dim t As String     p = Range(«A1»)     t = «Какое слово пропущено?»     TheWord = InputBox(prompt:=p, Title:=t)     If UCase(TheWord) = «ВОДОКАЧКУ» Then         MsgBox «Верно.»     Else         MsgBox «Не верно.»     End If End Sub

Рис. 2. Использование функции VBA inputBox, отображающей запрос

Метод Excel InputBox

Метод Excel InputBox по сравнению с функцией VBA InputBox предоставляет три преимущества:

• возможность задать тип возвращаемого значения;
• возможность указать диапазон листа путем выделения с помощью мыши;
• автоматическая проверка правильности введенных данных.

Метод InputBox имеет следующий синтаксис.

InputBox(запрос, [, заголовок], [, по_умолчанию], [, слева], [, сверху], [, справка, раздел], [, тип])

• Запрос. Указывает текст, отображаемый в окне ввода (обязательный параметр).
• Заголовок. Определяет заголовок окна ввода (необязательный параметр).
• По_умолчанию. Задает значение, которое отображается в окне ввода по умолчанию (необязательный параметр).
• Слева, сверху. Определяют координаты верхнего левого угла окна ввода на экране (необязательные параметры).
• Справка, раздел. Указывают файл и раздел в справочной системе (необязательные параметры).
• Тип. Указывает код типа данных, который будет возвращаться методом (необязательный параметр; значения см. рис. 3).

Рис. 3. Коды типов данных, возвращаемые методом Excel InputBox

Используя сумму приведенных выше значений, можно возвратить несколько типов данных. Например, для отображения окна ввода, которое принимает текстовый или числовой тип данных, установите код равным 3 (1 + 2 или число + текст). Если в качестве кода типа данных применить значение 8, то пользователь сможет ввести в поле адрес ячейки или диапазона ячеек. Пользователь также можент выбрать диапазон на текущем рабочем листе.

В процедуре EraseRange используется метод InputBox. Пользователь может указать удаляемый диапазон (рис. 4). Адрес диапазона вводится в окно вручную, или выделяется мышью на листе. Метод InputBox с кодом 8 возвращает объект Range (обратите внимание на ключевое слово Set). После этого выбранный диапазон очищается (с помощью метода Clear). По умолчанию в поле окна ввода отображается адрес текущей выделенной ячейки. Если в окне ввода щелкнуть на кнопке Отмена, то оператор On Error завершит процедуру.

Sub EraseRange()     Dim UserRange As Range     On Error GoTo Canceled     Set UserRange = Application.InputBox _         (Prompt:=«Удаляемый диапазон:», _         Title:=«Удаление диапазона», _         Default:=Selection.Address, _         Type:=8)     UserRange.Clear     UserRange.Select Canceled: End Sub

Рис. 4. Пример использования метода InputBox для выбора диапазона

Если в процедуре EraseRange ввести не диапазон адресов, то Excel отобразит сообщение (рис. 5) и позволит пользователю повторить ввод данных.

Рис. 5. Метод InputBox автоматически проверяет вводимые данные

Функция VBA MsgBox

Функция VBA MsgBox служит для отображения сообщения. Также она передает результат щелчка на кнопке ОК или Отмена). Синтаксис функции:

MsgBox(запрос[, кнопки][, заголовок][, справка, раздел])

• Запрос. Определяет текст, который будет отображаться в окне сообщения (обязательный параметр).
• Кнопки. Содержит числовое выражение (или константу), которое определяет кнопки, отображаемые в окне сообщения (необязательный параметр; рис. 6). Также можно задать кнопку по умолчанию.
• Заголовок. Содержит заголовок окна сообщения (необязательный параметр).
• Справка, раздел. Указывают файл и раздел справочной системы (необязательные параметры).

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

Первая группа значений (0–5) описывает номер и тип кнопок в диалоговом окне. Вторая группа (16, 32, 48, 64) описывает стиль значка. Третья группа (0, 256, 512) определяет, какая кнопка назначена по умолчанию. Четвертая группа (0, 4096) определяет модальность окна сообщения. Пятая указывает, показывать ли окно сообщений поверх других окон, устанавливает выравнивание и направление текста. В процессе сложения чисел для получения окончательного значения аргумента Buttons следует использовать только одно число из каждой группы.

Можно использовать функцию MsgBox в качестве процедуры (для отображения сообщения), а также присвоить возвращаемое этой функцией значение переменной. Функция MsgBox возвращает результат, представляющий кнопку, на которой щелкнул пользователь. В следующем примере отображается сообщение и не возвращается результат (код функций, приведенных в этом разделе см. также в файле VBA msgbox.xlsm).

Sub MsgBoxDemo()     MsgBox «При выполнении макроса ошибок не произошло.» End Sub

Чтобы получить результат из окна сообщения, присвойте возвращаемое функцией MsgBox значение переменной. В следующем коде используется ряд встроенных констант (рис. 7), которые упрощают управление возвращаемыми функцией MsgBox значениями.

Sub GetAnswer()     Dim Ans As Integer     Ans = MsgBox(«Продолжать?», vbYesNo)     Select Case Ans         Case vbYes             ‘ … [код при Ans равно Yes]         Case vbNo             ‘ ... [код при Ans равно No]     End Select End Sub

Рис. 7. Константы, возвращаемые MsgBox

Функция MsgBox возвращает переменную, имеющую тип Integer. Вам необязательно использовать переменную для хранения результата выполнения функции MsgBox. Следующая процедура представляет собой вариацию процедуры GetAnswer.

Sub GetAnswer2()     If MsgBox(«Продолжать?», vbYesNo) = vbYes Then ‘ … [код при Ans равно Yes]     Else ‘ ... [код при Ans равно No]     End If End Sub

В следующем примере функции используется комбинация констант для отображения окна сообщения с кнопками Да, Нет и знаком вопроса (рис. 8). Вторая кнопка (Нет) используется по умолчанию. Для простоты константы добавлены в переменную Config.

Private Function ContinueProcedure() As Boolean    Dim Config As Integer    Dim Ans As Integer    Config = vbYesNo + vbQuestion + vbDefaultButton2    Ans = MsgBox(«Произошла ошибка. Продолжить?», Config)    If Ans = vbYes Then ContinueProcedure = True _       Else ContinueProcedure = False End Function

Рис. 8. Параметр Кнопки функции MsgBox определяет кнопки, которые отображаются в окне сообщения

В файле VBA msgbox.xlsm функция ContinueProcedure в демонстрационных целях представлена в виде процедуры. Функция ContinueProcedure может вызываться из другой процедуры. Например, оператор

If Not ContinueProcedure() Then Exit Sub

вызывает функцию ContinueProcedure (которая отображает окно сообщения). Если функция возвращает значение ЛОЖЬ (т.е. пользователь щелкнул на кнопке Нет), то процедура будет завершена. В противном случае выполняется следующий оператор.

Если в сообщении необходимо указать разрыв строки (рис. 9), воспользуйтесь константой vbCrLf (или vbNewLine):

Sub MultiLine()     Dim Msg As String     Msg = «Это первая строка.» & vbCrLf & vbNewLine     Msg = Msg & «Вторая строка.» & vbCrLf     Msg = Msg & «Третья строка.»     MsgBox Msg End Sub

Рис. 9. Разбиение сообщения на несколько строк

Для включения в сообщение символа табуляции применяется константа vbTab. В процедуре ShowRange окно сообщения используется для отображения диапазона значений размером 10 строк на 3 столбца — ячейки А1:С10 (рис. 10). В этом случае столбцы разделены с помощью константы vbTab. Новые строки вставляются с помощью константы vbCrLf. Функция MsgBox принимает в качестве параметра строку, длина которой не превышает 1023 символов. Такая длина задает ограничение на количество ячеек, которое можно отобразить в сообщении.

Sub ShowRange()     Dim Msg As String     Dim r As Integer, c As Integer     Msg = «»     For r = 1 To 10         For c = 1 To 3             Msg = Msg & Cells(r, c).Text             If c <> 3 Then Msg = Msg & vbTab             Next c             Msg = Msg & vbCrLf         Next r     MsgBox Msg End Sub

Рис. 10. Текст в этом окне сообщения содержит символы табуляции и разрыва строк

Метод Excel GetOpenFilename

Если приложению необходимо получить от пользователя имя файла, то можно воспользоваться функцией InputBox, но этот подход часто приводит к возникновению ошибок. Более надежным считается использование метода GetOpenFilename объекта Application, который позволяет удостовериться, что приложение получило корректное имя файла (а также его полный путь). Данный метод позволяет отобразить стандартное диалоговое окно Открытие документа, но при этом указанный файл не открывается. Вместо этого метод возвращает строку, которая содержит путь и имя файла, выбранные пользователем. По окончании данного процесса с именем файла можно делать все что угодно. Синтаксис (все параметры необязательные):

Application.GetOpenFilename(фильтр_файла, индекс_фильтра, заголовок, множественный_выбор)

• Фильтр_файла. Содержит строку, определяющую критерий фильтрации файлов (необязательный параметр).
• Индекс_фильтра. Указывает индексный номер того критерия фильтрации файлов, который используется по умолчанию (необязательный параметр).
• Заголовок. Содержит заголовок диалогового окна (необязательный параметр). Если этот параметр не указать, то будет использован заголовок Открытие документа.
• Множественный_выбор. Необязательный параметр. Если он имеет значение ИСТИНА, можно выбрать несколько имен файлов. Имя каждого файла заносится в массив. По умолчанию данный параметр имеет значение ЛОЖЬ.

Аргумент Фильтр_файла определяет содержимое раскрывающегося списка Тип файлов, находящегося в окне Открытие документа. Аргумент состоит из строки, определяющей отображаемое значение, а также строки действительной спецификации типа файлов, в которой находятся групповые символы. Оба элемента аргумента разделены запятыми. Если этот аргумент не указывать, то будет использовано значение, заданное по умолчанию: "Все файлы (*.*),*.*". Первая часть строки Все файлы (*.*) – то текст, отображаемый в раскрывающемся списке тип файлов. Вторая часть строки *.* указывает тип отображаемых файлов.

В следующих инструкциях переменной Filt присваивается строковое значение. Эта строка впоследствии используется в качестве аргумента фильтр_файла метода GetOpenFilename. В данном случае диалоговое окно предоставит пользователю возможность выбрать один из четырех типов файлов (кроме варианта Все файлы). Если задать значение переменной Filt, то будет использоваться оператор конкатенации строки VBA. Этот способ упрощает управление громоздкими и сложными аргументами.

Filt = «Текстовые файлы (*.txt),*.txt,» & _    «Файлы Lotus (*.prn),*.prn,» & _    «Файлы, разделенные запятой (*.csv),*.csv,» & _    «Файлы ASCII (*.asc),*.asc,» & _    «Все файлы (*.*),*.*»

В следующем примере у пользователя запрашивается имя файла. При этом в поле типа файлов используются пять фильтров (код содержится в файле prompt for file.xlsm).

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub GetImportFileName()     Dim Filt As String     Dim FilterIndex As Integer     Dim FileName As Variant     Dim Title As String ‘   Настройка списка фильтров     Filt = «Text Files (*.txt),*.txt,» & _             «Lotus Files (*.prn),*.prn,» & _             «Comma Separated Files (*.csv),*.csv,» & _             «ASCII Files (*.asc),*.asc,» & _             «Все файлы (*.*),*.*» ‘   Отображает *.* по умолчанию     FilterIndex = 3 ‘   Настройка заголовка диалогового окна     Title = «Выберите файл для импорта» ‘   Получение имени файла     FileName = Application.GetOpenFilename _         (FileFilter:=Filt, _          FilterIndex:=FilterIndex, _          Title:=Title) ‘   При отмене выйти из окна     If FileName = False Then         MsgBox «Файл не выбран.»         Exit Sub     End If ‘   Отображение полного имени и пути     MsgBox «Вы выбрали « & FileName End Sub

На рис. 11 показано диалоговое окно, которое выводится на экран после выполнения этой процедуры (по умолчанию предлагается фильтр *.csv).

Рис. 11. Метод GetOpenFilename отображает диалоговое окно, в котором выбирается файл

В следующем примере пользователь может, удерживая нажатыми клавиши <Shift> и <Ctrl>, выбрать в окне несколько файлов. Обратите внимание, что событие использования кнопки Отмена определяется по наличию переменной массива FileName. Если пользователь не щелкнул на кнопке Отмена, то результирующий массив будет состоять как минимум из одного элемента. В этом примере список выбранных файлов отображается в окне сообщения.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub GetImportFileName2()     Dim Filt As String     Dim FilterIndex As Integer     Dim FileName As Variant     Dim Title As String     Dim i As Integer     Dim Msg As String ‘   Установка списка фильтров файлов     Filt = «Text Files (*.txt),*.txt,» & _             «Lotus Files (*.prn),*.prn,» & _             «Comma Separated Files (*.csv),*.csv,» & _             «ASCII Files (*.asc),*.asc,» & _             «All Files (*.*),*.*» ‘   Отображает *.* по умолчанию     FilterIndex = 5 ‘   Настройка заголовка диалогового окна     Title = «Выберите файл для импорта» ‘   Получение имени файла     FileName = Application.GetOpenFilename _         (FileFilter:=Filt, _          FilterIndex:=FilterIndex, _          Title:=Title, _          MultiSelect:=True) ‘   Выход в случае отмены работы с диалоговым окном     If Not IsArray(FileName) Then         MsgBox «Файл не выбран.»         Exit Sub     End If ‘   Отображение полного пути и имени файлов     For i = LBound(FileName) To UBound(FileName)         Msg = Msg & FileName(i) & vbCrLf     Next i     MsgBox «Было выбрано:» & vbCrLf & Msg End Sub

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

Метод Excel GetSaveAsFilename

Данный метод отображает диалоговое окно Сохранение документа и дает пользователю возможность выбрать (или указать) имя сохраняемого файла. В результате возвращается имя файла, но никакие действия не предпринимаются. Синтаксис (все параметры необязательные):

Application.GetSaveAsFilename(начальное_имя, фильтр_файла, индекс_фильтра, заголовок, текст_кнопки)

• Начальное_имя. Указывает предполагаемое имя файла.
• Фильтр_файла. Содержит критерий фильтрации отображаемых в окне файлов.
• Индекс_фильтра. Код критерия фильтрации файлов, который используется по умолчанию.
• Заголовок. Определяет текст заголовка диалогового окна.

Получение имени папки

Для того чтобы получить имя файла, проще всего воспользоваться описанным выше методом GetOpenFileName. Но если нужно получить лишь имя папки (без названия файла), лучше воспользоваться методом объекта Excel FileDialog. Следующая процедура отображает диалоговое окно, в котором можно выбрать папку (см. также файл get directory.xlsm). С помощью функции MsgBox отображается имя выбранной папки (или сообщение Отменено).

Sub GetAFolder()     With Application.FileDialog(msoFileDialogFolderPicker)         .InitialFileName = Application.DefaultFilePath & «»         .Title = «Выберите местоположение резервной копии.«         .Show         If .SelectedItems.Count = 0 Then             MsgBox «Отменено»         Else             MsgBox .SelectedItems(1)         End If     End With End Sub

Объект FileDialog позволяет определить начальную папку путем указания значения свойства InitialFileName. В примере в качестве начальной папки применяется путь к файлам Excel, заданный по умолчанию.

Отображение диалоговых окон Excel

Создаваемый вами код VBA может вызывать на выполнение многие команды Excel, находящиеся на ленте. И если в результате выполнения команды открывается диалоговое окно, ваш код может делать выбор в диалоговом окне (даже если само диалоговое окно не отображается). Например, следующая инструкция VBA эквивалентна выбору команды Главная –> Редактирование –> Найти и выделить –> Перейти и указанию диапазона ячеек А1:СЗ с последующим щелчком на кнопке ОК. Но само диалоговое окно Переход при этом не отображается (именно это и нужно).

Application.Goto Reference:=Range("А1:СЗ")

Иногда же приходится отображать встроенные окна Excel, чтобы пользователь мог сделать свой выбор. Для этого используется коллекция Dialogs объекта Application. Учтите, что в настоящее время компания Microsoft прекратила поддержу этого свойства. В предыдущих версиях Excel пользовательские меню и панели инструментов создавались с помощью объекта CommandBar. В версиях Excel 2007 и Excel 2010 этот объект по-прежнему доступен, хотя и работает не так, как раньше. Начиная с версии Excel 2007 возможности объекта CommandBar были существенно расширены. В частности, объект CommandBar можно использовать для вызова команд ленты с помощью VBA. Многие из команд, доступ к которым открывается с помощью ленты, отображают диалоговое окно. Например, следующая инструкция отображает диалоговое окно Вывод на экран скрытого листа (рис. 12; см. также файл ribbon control names.xlsm):

Application.CommandBars.ExecuteMso("SheetUnhide")

Рис. 12. Диалоговое окно, отображаемое в результате выполнения указанного выше оператора

Метод ExecuteMso принимает лишь один аргумент, idMso, который представляет элемент управления ленты. К сожалению, сведения о многих параметрах в справочной системе отсутствуют.

В файле ribbon control names.xlsm описаны все названия параметров команд ленты Excel. Поэкспериментируйте с параметрами, перечисленными в этой рабочей книге. Многие из них вызывают команды немедленно (без промежуточных диалоговых окон). Но большинство из них генерирует ошибку при использовании в неправильном контексте. Например, Excel отображает сообщение об ошибке, если команда Functionwizard вызывается в случае выбора диаграммы.

В результате выполнения следующего оператора отображается вкладка Шрифт диалогового окна Формат ячеек:

Application.CommandBars.ExecuteMso("FormatCellsFontDialog")

На самом деле пользоваться объектами CommandBar не стоит, поскольку вряд ли они будут поддерживаться в будущих версиях Excel.

Отображение формы ввода данных

Многие пользователи применяют Excel для управления списками, информация в которых ранжирована по строкам. В Excel поддерживается простой способ работы с подобными типами данных с помощью встроенных форм ввода данных, которые могут создаваться автоматически. Подобная форма предназначена для работы как с обычным диапазоном, так и с диапазоном, оформленным в виде таблицы (с помощью команды Вставка –> Таблицы –> Таблица). Пример формы ввода данных показан на рис. 13 (см. также файл data form example.xlsm).

Рис. 13. Некоторые пользователи предпочитают применять встроенные формы ввода данных Excel для ввода сведений; чтобы увеличить изображение кликните на нем правой кнопкой мыши и выберите Открыть картинку в новой вкладке

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

1. Щелкните правой кнопкой мыши на панели быстрого доступа и в контекстном меню выберите параметр Настройка панели быстрого доступа.
2. На экране появится вкладка Панель быстрого доступа диалогового окна Параметры Excel.
3. В раскрывающемся списке Выбрать команды из выберите параметр Команды не на ленте.
4. В появившемся списке выберите параметр Форма.
5. Щелкните на кнопке Добавить для добавления выбранной команды на панель быстрого доступа.
6. Щелкните на кнопке ОК для закрытия диалогового окна Параметры Excel.

После выполнения перечисленных выше действий на панели быстрого доступа появится новый значок.

Для работы с формой ввода данных следует структурировать данные таким образом, чтобы Excel распознавал их в виде таблицы. Начните с указания заголовков столбцов в первой строке диапазона вводимых данных. Выделите любую ячейку в таблице и щелкните на кнопке Форма панели быстрого доступа. Excel отображает диалоговое окно, в котором будут вводиться данные. Для перемещения между текстовыми полями в целях ввода информации используйте клавишу <Tab>. Если ячейка содержит формулу, результат вычислений отображается в виде текста (а не в формате поля ввода данных). Другими словами, невозможно изменить формулы с помощью формы ввода данных.

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

Используйте метод ShowDataForm для отображения формы ввода данных Excel. Единственное требование заключается в том, что активная ячейка должна находиться в диапазоне. Следующий код активизирует ячейку А1 (в таблице), а затем отображает форму ввода данных.

Sub DisplayDataForm()     Range(«A1»).Select     ActiveSheet.ShowDataForm End Sub

[1] По материалам книги Джон Уокенбах. Excel 2010. Профессиональное программирование на VBA. – М: Диалектика, 2013. – С. 387–403.