Ввод данных с помощью формы в excel vba

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.

При упоминании баз данных (БД) первым делом, конечно, в голову приходят всякие умные слова типа 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) для поиска и подстановки значений
• Как заменить ВПР функциями ИНДЕКС и ПОИСКПОЗ
• Автоматическое заполнение форм и бланков данными из таблицы
• Создание отчетов с помощью сводных таблиц

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

​Смотрите также​Сколько может стоить​ на одном)​ и те же​ с датой (А:А)​ день захотите подправить​ макроса закрепить в​ в том, что​У меня идея​Валера​ «нет — добавить»​ чтобы появляющееся окно​: Павел, что-то не​Форма​ строку, которую требуется​

​Нажмите кнопку​.​Форма данных представляет собой​ подобная работа?​2. Не могу​ или меняются по​ просто реализовывалась функция​ (забыли заполнить) предыдущий?​

​ верхней закреплённой части​ через какое-то время​

​ наподобие. В таблице​: В развитие задачи​ еще одну «отмена»​ формы не блокировало​

​ срабатывает форма -​​нет на ленте,​ удалить, с помощью​Создать​

​Нажмите кнопку​ удобный способ ввода​

​Тринадцать​ реализовать поиск в​

1. ​ прихоти пользователя? Если​ ТДАТА?​Bachata​ листа.​

2. ​ позиций в файле​​ я ее в​​ Kegrus-а. Надо чтобы​​спасибо Вам за​​ просмотр остальных книг​

3. ​ выдает ошибку​​ но в Excel​​ кнопок​

4. ​.​Создать​

   ​ или просмотра одной​: Зато поддерживают ZIP-формат.​ комбобоксе в принципе​

5. ​ одинаковые , то​wild_pig​: Ну, например, предыдущий​wild_pig​ становится очень много,​

6. ​ целом воплотил. Только​ в ComboBox отображались​​ помощь!​​ и листов excel?​Pavel55​ 2010 кнопку​Назад​В форме данных найдите​.​

   ​ строки данных в​​yutrans​

   • ​3. Не могу​ можно сделать форму​: Вот​ день закончился так:​: Вариант с формой​

   • ​ и каждый раз​ вот созданием форм​ 2 столбца: №пп​Pavel55​и что нужно​

​: какую?​

1. ​Форма​и​ строку, которую требуется​Введите данные для новой​

2. ​ диапазон или таблице.​​: Сделала кнопку вызова​​ сделать вывод данных​​ ввода, а базу​​foxmeyson​

3. ​31.01.2014 такос 200​​Bachata​​ листать в конец​

4. ​ никогда в Excel​ ответа и сам​: Посмотрите пример​ дописать в код,​​Petr​​можно добавить на​​Найти далее​​ изменить, с помощью​

5. ​ строки.​

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

6. ​ не занимался. Посему​ ответ. Например:​Petr​

   ​ чтобы данные копировались​: Уважаемый Pavel55!​

   ​ панель быстрого доступа.​​или полосы прокрутки.​ кнопок​Нажимайте клавишу TAB для​​ отображаются все столбцы,​​ )​

​ — все время​

1. ​ подключение через стандартный​ вы это делаете?​На следующий день,​ что нужно!​

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

3. ​немного изменил Ваш​​Щелкните стрелку рядом с​​Нажмите кнопку​

4. ​Назад​ перехода к следующему​ и поэтому одновременно​Поиск в комбобоксе​​ вылазят разные ошибки​​ импорт данных MS​​Просто мне необходимо​​ 1 февраля, я​

5. ​Скажите, а можно​​ очень неудобно!!​​Расскажите (или скажите​

   ​2 договор​​ спасибо!​ лист, а не​ пример под себя.​панелью быстрого доступа​Удалить​

   ​и​ полю в форме.​

См. также

​ можно просмотреть все​ посмотрите по этой​

​4. Не получается​ Query. Ну или​

support.office.com

Что произошло с формой данных?

​ самому написать нечто​​ нажимаю на кнопочку​ добавить в форму​Не могли бы​ где взять) инфо​3 реализация​Kegrus​ в тот в​подскажите как сделать​и выберите пункт​.​Найти далее​Закончив ввод данных в​ данные в строке.​ ссылке:​ отрегулировать ширину нужного​ что-то посложнее, но​ подобное, только чтобы​ «добавить», и все​ поле для даты?​ вы подсказать решение​ по поводу -​

​4 снижение​​: Как сделать в​​ котором форма активна​ чтоб если данные​Другие команды​​Внимание:​ ​или полосы прокрутки.​ строку, нажмите клавишу​

Добавление кнопки «Форма» на панель быстрого доступа

1. ​ Это особенно полезно,​​http://www.planetaexcel.ru/forum/ind…obox-s-poiskom​​ столбца и скрыть​​ уже на Аccess​​ форма ввода была​

2. ​ поля формы, кроме​​ Т.е. чтобы ее​​ моей проблемы? Как​​ как рисовать саму​​5 увеличение​

3. ​ форме ввода данных​​ в данный момент.​ ​ из поля 1​​.​​ В Excel будет выведен​

​Измените данные в строке.​​ RETURN , чтобы​ если в диапазоне​lesha1111​ остальные в комбобоксе​ или так как​

support.office.com

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

​ доступна по сети​​ поля «дата» (в​
​ можно было вводить​ я понимаю, самым​ форму и как​6 расторжение​ раскрывающийся список:​
​Pavel55​ уже есть в​В поле​ запрос на подтверждение​Совет:​
​ добавить строку в​ или таблице больше​

​: Здравствуйте! Подскажите пожалуйста​​ (почему-то разделитель «;»​

​ Матраскин предложил.​​ и заносила данные​ нем уже стоит​ вручную?​

​ удобным вариантом было​​ прикручивать на элементы​

​А в соответствующие​​Примеру: 20 объектов​
​: Посмотрите пример.​ списке то выводилось​
​Выбрать команды из:​ операции. После подтверждения​ Чтобы перейти к следующему​ конец списка.​ столбцов данных, чем​ как сделать что​ не принимает программа…)​Тринадцать​ без открытия документа+​

​ — 31.01.2014), пустые.​​ ли это ,​

​Спасибо! (Файлик прикладываю)​​ и ячейку-получатель.​

​ только №пп…​​ и номерами(чтобы постоянно​
​ такое чувство, что​ предложением заменить старые​
​Все команды​ отменить.​ клавишу TAB ,​ нажмите кнопку​Перед созданием формы данных​ занесенных через форму​
​ поиск у mc-black​По работе столкнулась​ в разных книгах.​ Я вручную изменяю​ но было бы​wild_pig​Буду рад комментариям.​Юрий М​

​ удаленной, перемещаются вверх.​​ — сочетание клавиш​, чтобы добавить последнюю​ вверху каждого столбца​ в новую строку.​ отфильтрованный по введенным​
​ большие таблицы, в​ копать? Опыта нет)))​ даты с 31.01.2014​
​ в поле даты​ меньше файлик :)​: Список доступной для​Валера​ а выбирать из​
​ странным способом. Например,​ZVI​

​Форма​​Ввод ряда чисел, дат​

​ SHIFT + TAB​​ новую строку и​ в диапазоне или​

​ закрыть форму данных.​​ таблице. В Excel​: А как вы​но не смогла​ нужную строку. Решила​

​: Может мы вражины,​​ делаю запись. И​ стояло значение (т.е.​ то?​ можно найти в​ столбцами на листе.​ добавить новый объект​
​ так, то таким​
​ встроенная форма для​
​.​
​ Excel​
​ клавишу RETURN ,​
​ не требуется нажимать​
​ для создания полей​ таблицу и пр.?​ таблицу​

​ т.к. мои знания​​ но маскируемся?​

​ во всех последующих​​ дата) предыдущей ячейки.​Bachata​ «Копилке». Загляните в​ Никакими ComboBox-ами там​ в список формы​ образом удалять информацию​

​ редактирования данных, из​​Совет:​Примечание:​ чтобы обновить строку.​ клавишу RETURN .​ в форме.​От вас -​

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

​: Ну, как. Хочу​​ Правила — там​ и не пахнет​ данных​ нельзя! Информация из​ VBA вызывается так:​ Дополнительные сведения об использовании​

​Мы стараемся как​​В Excel будет автоматически​
​Примечания:​Подписи столбцов становятся​ файл-пример со своими​ эту задачу.​ несколько недель почти​200?’200px’:»+(this.scrollHeight+5)+’px’);»>В какую сторону копать​ вручную прописывать дату​ нужно ввести 10-20​
​ сделать форму ввода​ всё есть.​ :)​Петр​ ячеек надо удалять​Sub ФормаВводаДанных()​ формы данных: Добавление,​ можно оперативнее обеспечивать​
​ выбрана следующая строка.​

​ ​​ именами полей.​ попытками и пояснениями.​Файл прикрепляю. Данные​ безрезультатно…​ Копайте в сторону​ не придется​ наименований блюд. Ты​

planetaexcel.ru

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

​ — т.е. чтобы​​Bachata​Юрий М​
​: Подскажите, а где​ так:​On Error Resume​ изменение, поиск и​ вас актуальными справочными​Совет:​В Excel строка автоматически​
​Данные, вводимые в​lesha1111​ в таблице могут​Что надо:​​ создания своих тем,​​(дело в том,​​ вместе с первым​​ можно данные было​​: Всем доброго времени​​: Я не знал,​
​ указывается в настройках​1) Выделяете мышкой​ Next​ удаление строк с​ материалами на вашем​ Перед нажатием клавиши RETURN​ добавляется при переходе​ каждое поле формы,​: звпись данных записываются​ дополняться и меняться,​
​1. Найти нужную​ и пользования поиском​ что я не​ продуктом вводишь сегодняшнюю​ вводить вверху страницы,​ суток!​
​ что Вы не​

​ полей, в какую​​ область ячеек на​ActiveSheet.ShowDataForm​

​ помощью формы данных.​​ языке. Эта страница​ можно отменить все​

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

​If Err <>​​Petr​ переведена автоматически, поэтому​ изменения, нажав кнопку​

​ или закрытии формы​​ пустую строку.​​ ячейку, нужно что​
​ таблицы не меняется.​ по принципу "содержит"​
​Матраскин​

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

​ из VBE. Вот​​Ан13​

​2) Нажимаете кнопку​​ 0 Then MsgBox​: здравствуйте!​​ ее текст может​Восстановить​ данных.​Важно:​ бы каждая запись​kalbasiatka​
​ через комбобокс​:​ сказать, насколько это​ кнопку «добавить» эта​ вниз и добавлять​ цель — начать​ Вам с кнопочкой​: Kegrus​ Delete на клавиатуре​ «Нет данных», vbInformation,​а возможно ли​ содержать неточности и​.​В ячейках, которые содержат​ С помощью формы данных​ записывалась на новую​: Всё сразу это​2. Заполнить соответствующие​foxmeyson​

​ реализуемо​​ дата уже как​​ по новой строке​​ вести учет потребляемой​ :-)​(Как сделать в​ (либо меню Правка​ «Форма ввода данных»​ в excel сделать​
​ грамматические ошибки. Для​Удаление строки​ формулу, отображается ее​ невозможно добавлять, изменять​ строку.​ работа. За денежку​

​ текстбоксы на форме​​, я бы использовал​А что насчет​
​ бы автозаполнена.​ (а если позиций​
​ пищи для того,​Валера​ форме ввода данных​ — Очистить)​End Sub​ форму для ввода​ нас важно, чтобы​Щелкните любую ячейку в​ результат. Изменить формулу​ и удалять формулы.​lesha1111​ тут очередь помогающих​ данными из этой​ access. Его можно​ корректировки… пока переписывать​wild_pig​ накопится 1000? Это​ чтобы контролировать свой​: Сглупил. Просто кнопка​​ раскрывающийся список:​Petr​—​ данных как в​ эта статья была​ диапазоне или таблице,​
​ в форме данных​Выполните одно из перечисленных​: Извиняюсь, отправил не​ будет стоять.​

​ строки​​ настроить через разного​ записанное меню, вроде​:​
​ будет очень неудобно)​

​ вес​​ запуска макроса не​Примеру: 20 объектов​: возможно это произошло​ZVI​ access?​ вам полезна. Просим​ из которых нужно​

​ невозможно.​​ ниже действий.​

​ тот файл,​​В файле нет​3. После редактирования​
​ рода DNS. И​ бы, не приходилось​Цитата​wild_pig​Для этого был​ вынесена на Лист.​ с собственными названиями​ случайно. обычно я​Pavel55​
​ну чтобы появлялось​ вас уделить пару​
​ удалить строку.​

​Изменение данных в строке​​Добавление данных с помощью​Вот​
​ ни формы ни​​ отдельных полей вывести​ пользовать одну базу​Wasilich​Bachata, 31.01.2014 в​: И все 1000​

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

​: Вот зачем усложнять​​ 06:50, в сообщении​ будут разные. Что​ в котором продукты​Валера​ не писать навание​ ячеек как Вы​Petr​ полями для заполнения​ помогла ли она​Данные​ диапазоне или таблице​Щелкните любую ячейку в​: Искать нужно где​ сохранять надо в​ таблицу.​А можно установить​

excelworld.ru

Поиск и ввод данных в таблицу Excel через форму VBA

​ и так сложную​​ № 8200?’200px’:»+(this.scrollHeight+5)+’px’);»>Скажите, а​
​ с датой делать.​ записываются в формате:​: Огромное спасибо! Я​ объектов в полях,​ и написали.​: Спасибо за помощь!!!​ и затем данные​ вам, с помощью​выберите команду​ с данными, которые​
​ диапазоне или таблице,​
​ потерял, а не​ формате поддерживающем макросы.​В чем проблема:​ бд помощнее, например​
​ прогу?​ можно добавить в​Hugo​Дата​
​ уж учебники перечитал,​ а выбирать из​и еще один,​Petr​
​ помещались в лист.​
​ кнопок внизу страницы.​Форма​ требуется изменить.​ к которым нужно​ где светло.​Тринадцать​1. Не могу​
​ SQL server и​Можно же проще.​ форму поле для​
​:​|​ поисковики изнасиловал. А​ списка).​ надеюсь последний в​
​: Уважаемый Павел!​если можно покажите​ Для удобства также​.​В меню​ добавить строку.​
​Ищем на одном​: Форма в файле​ реализовать поиск по​ написать приложение работающие​Bachata​
​ даты?​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub GoEnd()​Наименование​
​ здесь, оказывается, какие​P/S И как​
​ этом топике, вопрос:)​возникло еще пара​ пример пожалуйста​ приводим ссылку на​Нажмите кнопку​

​Данные​​В меню​ листе, пишем на​ на вкладке «разработчик»​ двум листам (надо​
​ с этой базой.​: А можно сделать​А как узнать,​Cells(Range(«a» & Rows.Count).End(xlUp).Row​|​

​ отзывчивые люди обитают!​​ добавить новый объект​помогите добавить третью​ вопросов.​Pavel55​ оригинал (на английском​
​Создать​выберите команду​

​Данные​​ другой, и удивляемся.​

​ можно найти. К​​ чтоб искало в​Stormy​ так, чтобы в​

​ что уже следующий​ + 1, 1).Select​Калорийность​
​ Респект​

CyberForum.ru

Ввод данных через форму (Формулы/Formulas)

​ в список формы​​ кнопочку к «да​как в последнем​: Смотрите пример​ языке) .​.​Форма​

​выберите команду​​lesha1111​ сожалению вложения не​ обоих, а у​
​: Книги разные -​ форме которую приложил​ день? А, если​

​End Sub​​.​Serge_ASB​ данных)​ — заменить» и​ вашем примере сделать,​Guest​

​Кнопки​​В форме данных найдите​.​
​Форма​

​: Точно, Спасибо большое.​​ поддерживают *xlsm формат.​ меня получается только​ но всегда одни​
​ wild_pig к колонкам​ вы в «следующий»​Кнопку запуска этого​

​Моя проблема заключаться​​: Понравилась форма.​

excelworld.ru

​См. файл​