Шаблон ввода в ячейку excel

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

EXCEL

блокировать ввод данных не соответствующих этому шаблону.

Реализуем контроль ввода значений в MS EXCEL по шаблону с использованием инструмента

Проверка данных

с условием проверки

Другое

.

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

Для этого:

• выделите ячейки, в которые будет осуществляться ввод артикулов (
  
  А2:А20
  
  );
• вызовите инструмент
  
  Проверка данных (

  )
  
  ;

• установите условие проверки
  
  Другой
  
  ;
• в поле
  
  Формула
  
  введите:
  
  =И(ДЛСТР(A2)=6; КОДСИМВ(ПРОПИСН(ЛЕВСИМВ(A2;1)))>64; КОДСИМВ(ПРОПИСН(ЛЕВСИМВ(A2;1)))<91; ЕЧИСЛО(—ПСТР(A2;2;4)); КОДСИМВ(ПРОПИСН(ПРАВСИМВ(A2;1)))>191; КОДСИМВ(ПРОПИСН(ПРАВСИМВ(A2;1)))<224)
  

• нажмите ОК.

Формула должна вводиться в одну строку. Не обращайте внимание на сообщение «

При вычислении Формула возникает ошибка. Продолжить?

». Нажмите кнопку

Да

(см.

Файл примера

).

Для информирования пользователя в случае ввода неверных данных, во вкладке

Сообщение для ввода

в поле

Сообщение

можно ввести информацию о формате артикула.

СОВЕТ

: Чтобы найти все ячейки на листе, к которым применена

Проверка данных

необходимо:

• на вкладке
  
  Главная
  
  в группе
  
  Редактирование
  
  щелкните стрелку рядом с командой
  
  Найти и выделить
  
  ;
• выберите в списке пункт
  
  Проверка данных;
  
• будут выделены все ячейки, которым применена

  Проверка данных

  .

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

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

Маска влияет только на ввод значений в Access: она не меняет способ их хранения, который записи от типа данных поля и других свойств. Дополнительные сведения о хранении данных в Access см. в статье Введение в типы данных и свойства полей.

Важно: Эта статья относится только к классическим базам данных Access. Веб-приложения и веб-базы данных Access не поддерживают маски ввода.

В этой статье

Общие сведения о масках ввода

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

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

Три компонента маски ввода

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

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

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

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

Пример маски ввода для телефонных номеров в формате России: (999) 000-00-00;0;-:

В маске используются два заполнителя — 9 и 0. Заполнитель 9 обозначает необязательные цифры (код города можно не вводить), а 0 — обязательные.

Значение 0 во втором компоненте маски ввода указывает на то, что знаки маски следует хранить вместе с данными.

Третий компонент маски ввода указывает на то, что вместо знака подчеркивания (_) в качестве заполнителя будет использоваться дефис (—).

Знаки, определяющие маски ввода

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

Определение маски ввода

Если свойство Формат (Format) управляет тем, как данные отображаются в поле таблицы, то свойство Маска ввода (Input Mask) позволяет контролировать ввод данных в таблицу. И не только контролировать, но и упрощать процесс ввода. Маску используют в том случае, когда вводимые данные должны содержать определенные символы в некоторых позициях вводимой строки. Самым простым и ярким примером таких данных являются номера телефонов. Маска ввода должна обеспечить возможность вводить только цифры номера, а остальные символы (скобки вокруг кода города, дефис между цифрами номера) будут добавляться автоматически. Маска задается с помощью символов, приведенных в табл. 2.12.

Таблица 2.12. Символы для создания масок ввода

Для того чтобы сформировать маску ввода, можно использовать Мастера масок ввода (Input Mask Wizard). Откройте в режиме Конструктора таблицу «Заказы» (Orders). Выделите поле «Дата размещения». Чтобы ввести маску ввода для этого поля, щелкните мышью по ячейке свойства Маска ввода (Input Mask). Нажмите небольшую кнопку с тремя точками (рис. 2.21), которая появится справа (эта кнопка называется кнопкой Построителя и будет встречаться еще во многих местах), и дальше следуйте указаниям мастера:

В первом диалоговом окне вы можете выбрать нужную маску из списка (рис. 2.22). Если вы попытаетесь вводить данные в поле Проба (Try It), то сможете увидеть, как будут форматироваться вводимые вами символы. Нажмите кнопку Далее (Next).

Сформированная символьная строка маски отображается в поле Маска ввода (Input Mask) для поля «ДатаРазмещения» (OrderDate) (рис. 2.22). Маска ввода состоит из трех частей:

• символьной строки маски;
• символа 0. Это означает, что введенные в поле данные будут сохраняться вместе со специальными символами. Можно заменить 0 на 1 — тогда специальные символы маски не будут запоминаться в поле;
• символа заполнителя.

Как использовать маску ввода в excel vba?

-2 Cher [2018-04-08 07:54:00]

ПРОЧИТАЙТЕ ВНИМАТЕЛЬНО ВОПРОС, ПОЖАЛУЙСТА, ЭТО РЕКОМЕНДАЦИИ EXCEL VBA. NOT EXCEL

Мне была поручена фиксация ввода даты в форме VBA. Текстовое поле должно содержать имя пользователя в виде MM/DD/YYYY .

Мне нужно использовать маску ввода, не разрешено делать что-то как подтверждение даты после или с использованием календаря. До сих пор я мог использовать упомянутые 2 метода (форматирование формата после использования ISDATE ).

Тем не менее, теперь стало ясно, что это должна быть маска, поэтому ключи отфильтровываются при вводе, причем маска отображается при вводе даты: __/__/____

Там, где вы видите символ подчеркивания, он должен иметь возможность вводить числа и всегда находиться на этих позициях

Есть ли способ сделать это? Я могу найти учебник для маски в Access VBA.

input vba excel-vba excel masking

Этот пост может помочь вам.

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

. Вы можете задаться вопросом, есть ли способ настроить маску ввода, которая автоматически добавит двоеточие. Хорошая новость — да, есть. Плохих новостей нет, нет. Звук запутанный? Позволь мне объяснить.

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

1. Выберите ячейки, которые вы хотите использовать для ввода времени.
2. Выберите » Формат» в меню «Ячейки». Excel отображает диалоговое окно » Формат ячеек «.
3. Убедитесь, что отображается вкладка » Число «.
   
4. В списке «Категория» выберите » Пользовательский».
5. Замените все, что находится в поле » Тип», с #»:»00 .
6. Нажмите OK .

Теперь вы можете ввести свое время, используя только цифры. Проблема (и это плохая новость) заключается в том, что ячейка действительно не содержит времени. Если вы введете 230 (за 2:30), она не будет содержать 2:30 как раз — она содержит двести тридцать. Таким образом, вы не можете напрямую использовать содержимое ячейки непосредственно во времени.

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

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

(Полная статья и многое другое в источнике.)

Сводные таблицы Excel

Если вам часто приходится вводить даты и время в ячейки, то вам должна понравиться идея писать их сокращенно, без точек-дробей – просто как число. Чтобы в заданном диапазоне ячеек листа, например, число 250616 после ввода и нажатия клавиши Enter автоматически превращалось в 25.06.2016.

Как в Excel настроить быстрый ввод даты без разделителей

Для реализации такого возможны два варианта.

Первый – использовать функцию преобразования текста в дату ДАТАЗНАЧ (DATEVALUE) и функции извлечения фрагментов из текста ЛЕВСИМВ (LEFT), ПРАВСИМВ (RIGHT) и ПСТР (MID), чтобы разделить шесть введенных чисел по два, добавить к ним точки и составить из них полноценную дату в соседней ячейке.

Для реализации быстрого ввода даты возможны два варианта

В англоязычном варианте: =DATEVALUE(LEFT(D1;2)&”.”&MID(D1;3;2)&”.”&RIGHT(D1;2)) .

Если же хочется выполнять это преобразование прямо в той же ячейке, куда вводятся числа, то без макроса не обойтись. Для этого щелкните по ярлычку листа, куда будут вводиться даты и время, и выберите команду Исходный текст (View Code). В открывшееся окно редактора Visual Basic вставьте следующий код.

Private Sub Worksheet_Change(ByVal Target As Range) Dim vVal Dim StrVal As String Dim dDate As Date If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range(«A2:A10»)) Is Nothing Then With Target StrVal = Format(.Text, «000000») If IsNumeric(StrVal) And Len(StrVal) = 6 Then Application.EnableEvents = False dDate = DateValue(Left(StrVal, 2) & «/» & Mid(StrVal, 3, 2) & «/» & Right(StrVal, 2)) .NumberFormat = «dd/mm/yyyy» .Value = CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate))) End If End With End If Application.EnableEvents = True End Sub

Диапазон A2:A10 в коде замените на свою область листа, куда подобным образом собираетесь вводить даты.

Как использовать маску ввода в Excel VBA?

ВНИМАТЕЛЬНО ПРОЧИТАЙТЕ ВОПРОС, ПОЖАЛУЙСТА, ЭТО НАМЕРЕНИЯ ОТЛИЧАЮТ VBA. НЕ ЭКСКАЛЬНО

Мне было дано задание зафиксировать ввод даты в форме VBA. В текстовом поле пользователь должен ввести дату в MM/DD/YYYY .

Я должен использовать маску ввода, не разрешено делать что-либо в качестве даты подтверждения после или с использованием календаря. До сих пор я мог использовать 2 упомянутых метода (форсирование формата после использования ISDATE ).

Однако теперь стало ясно, что это должна быть маска, поэтому ключи фильтруются при вводе, причем маска отображается при вводе даты: __/__/____

Где вы видите подчеркивание, он должен иметь возможность только вводить цифры, и / всегда находятся на этих позициях

Есть ли способ сделать это? Я могу только найти учебник для маски в Access VBA.

_{Я гуглил «маску ввода Excel», и 2-й результат был следующим: Использование маски ввода Microsoft Excel, написанной Алленом Уайеттом .}

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

. Вы можете задаться вопросом, есть ли способ установить маску ввода, которая автоматически добавит двоеточие. Хорошие новости — да, есть. Плохих новостей нет, нет. Звук сбивает с толку? Позволь мне объяснить.

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

1. Выберите ячейки, которые вы хотите использовать для ввода времени.
2. Выберите « Формат» в меню «Ячейки». В Excel отобразится диалоговое окно « Формат ячеек ».
3. Убедитесь, что отображается вкладка Number .
   
4. В списке Категория выберите Пользовательский .
5. Замените все, что находится в поле « Тип #»:»00 .
6. Нажмите на ОК .

Теперь вы можете ввести свое время, используя только цифры. Проблема (и это плохие новости) состоит в том, что ячейка не содержит времени. Если вы введете 230 (для 2:30), оно не будет содержать 2:30 как время — оно содержит двести тридцать. Таким образом, вы не можете использовать содержимое ячейки непосредственно в расчетах времени.

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

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

(Полная статья и многое другое на источнике .)

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

​Смотрите также​ Then​ Cancel As MSForms.ReturnBoolean)​If KeyCode =​ нехватает пока еще​ R, 1))) U​ может не быть​ формы есть:​

​ (поля) влечет за​: Добрый день!​ цифр, все в​( ) 555-0199​ ввода.​ изменить, и выберите​ ввода, если верно​).​ разделенных точками с​Вы можете помочь пользователям​iL = Asc(«1»)​Me.Tag = vbNullString​ 8 And (Right(t,​

​ заниний в VBA.​​ = False If​ на компьютереНапример, я​-Data​ собой пересчет параметров​Поискал — не​ верхнем регистре. Данный​

В этой статье

​В этом случае в​Чтобы запустить мастер масок​

​ в контекстном меню​

​ одно из следующих​В приведенной ниже таблице​ запятой. Назначение каждого​

​ правильно вводить данные​iR = Asc(«9»)​End Sub​ 1) = «-«​

​EducatedFool​

​ Mid(ST, R, 1)​

​ в формах использу​-ControlSource​

Общие сведения о масках ввода

​ и как одно​ нашел….​ тип маски ввода​ области междугородного кода​ ввода, нажмите кнопку​ команду​ утверждений.​ перечислены заполнители и​ из компонентов описано​ в классические базы​Else​Private Sub TextBox1_KeyDown(ByVal​

​ Or Right(t, 1)​: По этой ссылке​ = «.» Or​ ю разные элементы​-Text​ из исходных данных​Итак, есть ячека​ помогает, например, правильно​ используется местозаполнитель 9,​Построить​Конструктор​Иногда может потребоваться ввести​ литералы, используемые в​

Три компонента маски ввода

​ ниже.​ данных Access, подключив​iL = Asc(«0″)​ KeyCode As MSForms.ReturnInteger,​ = » «)​ можно найти пример​ Mid(ST, R, 1)​

• ​ управления, которые хранятся​причем, в ‘Text’​ эта самая ячейка​ А1.​ вводить инвентарные номера​ поэтому междугородные коды​.​.​

• ​ данные в формате,​ масках ввода, и​Первый компонент является обязательным.​ маски ввода к​iR = Asc(«2»)​ ByVal Shift As​ Then t =​​ программы, в которой​​ = » «​ в Ocx Файлах,​ — это та​​ (поле), но уже​​В нее вводится​ или заполнять другие​ необязательны. Кроме того,​​Нажмите кнопку​​В бланке запроса установите​ не соответствующему маске.​ описано их влияние​

• ​ Он представляет собой​ полям, имеющим строго​End If​ Integer)​ Left$(t, Len(t) -​ реализована требуемая вам​ Then U =​ типа msmask32.ocx и​ чушь, которая будет​ не число, а​ время. Формат ячейки​

​ формы складского учета.​ восклицательный знак (!)​Изменить список​​ курсор в столбец​​ Маска ввода не​​ на ввод данных.​

• ​ знак или строку​ определенный формат значений,​If KeyCode <​Dim iPos As​ 2): KeyCode =​ маска ввода:​ True Next Target​

• ​ прочих…​ оражаться при наведении​ пробел, у меня​ — ВРЕМЯ (т.е.​Поскольку адреса электронной почты​ обусловливает заполнение маски​

• ​.​ поля, которое требуется​ допускает исключений.​Знак​​ (последовательность знаков) маски​​ например номера телефонов.​ iL Or KeyCode​ Integer​​ 0​​Private Sub txt1_ГПС_Change()​

Знаки, определяющие маски ввода

​ = S End​Допустим у меня​ курсора мыши на​ выдаётся ошибка и…,​ 13:20:00).​ могут быть самой​

Когда следует избегать использования масок ввода в Access

​Mid$(s, iPos +​ Integer​ Len(t) >= 14​ 56​ нужного региона​ не знаю, стоят​ я не знаю,​ В проге написать​

• ​ никак :((​ при вводе. Вместо​ четыре последних цифры​ в этом окне​Нажмите клавишу F4, чтобы​

• ​ несовместимы с таким​ 9).​Второй компонент не является​ хранения, который записи​ 1, 1) =​Dim s As​

Добавление маски ввода в поле таблицы с помощью мастера масок ввода

​ Then KeyCode =​’ SaveInfo ГПС,​И не надо!​ у них эти​ все мои попытки​ логические блоки на​

​Как в ячейку​​ масок ввода рекомендуется​ телефонного номера в​ и введите новое​ открыть окно свойств​ элементом управления.​9​​ обязательным и определяет​​ от типа данных​

1. ​ Chr$(KeyCode)​ String​ 0 ‘ ограничение​ Me.txt1_ГПС​ В массив их​​ библиотеки.​​ заканчиваются сообщением ПК​

2. ​ возможные ошибки пользователя​ вводить тупо «132000»,​ использовать свойства​

3. ​ формате США. Обратите​​ описание в поле​​ поля.​​Маски ввода можно использовать​​Пользователь может ввести цифру​​ способ хранения встроенных​​ поля и других​

4. ​iPos = 6​With Me.TextBox1​​ на количество введённых​ ​End Sub​

5. ​ все! и одну​Допустим я пропишу,​

   

6. ​ : ‘Не удается​​ неохота по двум​​ а в итоге​Правило проверки​ внимание на местозаполнитель​

7. ​Описание​В разделе​ для полей с​​ (от 0 до​​ знаков маски в​

8. ​ свойств. Дополнительные сведения​

9. ​End If​s = .Text​​ символов​​Private Sub txt1_ГПС_KeyPress(ByVal​

Добавление маски ввода в запрос

1. ​ процедуру проверки на​ что при первом​ задать свойство ‘ControlSource’.​ причинам: во-первых: придется​ получить «13:20:00»??​и​​ 0 в области​​.​

2. ​Свойства поля​ типом данных «Текстовый»,​ 9).​ поле. Если для​

   ​ о хранении данных​Case 6, 7​iPos = Int(.Tag)​

3. ​Me.txt1_ГПС = t​ KeyAscii As MSForms.ReturnInteger)​ всеВстречалось уже. Но​

4. ​ запуске regsvr32 зарегит​​ Недопустимое значение свойства’.​​ сувать эту логику​​( В идеале​​Сообщение об ошибке​​ кода города, который​​В поле​

5. ​на вкладке​ «Числовой» (кроме кода​​#​ ​ этого компонента задано​ в Access см.​

Добавление маски ввода в элемент управления формы или отчета

1. ​If KeyCode <​ ‘Позиция курсора​ ‘ записываем обработанный​’On Local Error​ вот в первом​ эти библиотеки, если​​Comanche, а как​​ почти вовсе блоки​

2. ​ конечно было бы​.​ делает междугородный код​Маска ввода​Общие​​ репликации), «Денежный» и​​Пользователь может ввести цифру,​

3. ​ значение​​ в статье Введение​​ Asc(«0») Or KeyCode​​Select Case iPos​​ текст обратно в​

4. ​ Resume Next​ приближении…​​ их нет.​ ​ использовать контрол MaskEdit​ проги, во-вторых все​

Создание настраиваемых масок ввода

​ иметь ячеку такого​Условие на значение, приведенное​ обязательным.​введите символы и​щелкните поле свойства​ «Дата/время».​ пробел, знак «плюс»​0​ в типы данных​ > Asc(«9») Then​Case -1​ textbox​If Not IsNumeric(Chr$(KeyAscii))​Как будет выглядеть маска​

Настройка масок ввода в мастере

1. ​Нужно ли еще​ в свойствах ячейки​ ошибки пользователей угадать​ вида __:__:__ ).​ в таблице ниже,​

2. ​#999​ заполнители с помощью​​Маска ввода​ ​Примечание:​

3. ​ или «минус». Если​​, знаки сохраняются вместе​​ и свойства полей.​

   ​GoTo NavigateKey​​iPos = 0​​End Sub​

4. ​ Then​ формата ячеек в​ как-то настраивать ссылки​ формы?​​ не возможно… Вот​​Ну суть понятна….​

5. ​ гарантирует, что адрес​​-20​​ разрешенных знаков из​.​ Если применить маску ввода​ ничего не ввести,​

6. ​ с данными, а​​Важно:​​Else​GoTo SetPos​

7. ​Вам над только​​KeyAscii = 0​​ Excel, если требуется​ на эти библиотеки​

Настройка масок ввода в свойстве поля

1. ​Что есть ‘ячейка​ я и хочу​ Как в эксесс​ электронной почты будет​2000​​ списка таблицы.​​Чтобы запустить мастер масок​

2. ​ к полю с​ будет вставлен пробел.​ если​

3. ​  Эта статья относится​Mid$(s, iPos +​​Case 0​​ заменить txt1_ГПС на​ ‘ если в​

4. ​ отображать вещественные числа,​ или формы, сами​

​ формы’? О чём​ сразу в конструкторе​2003​ состоять из одного​

Примеры масок ввода

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

Использование масок ввода для адресов электронной почты

​t = Me.txt1_ГПС​1,230 отображается 1,23​ на одном компьютере​ ‘UserForm’ — объект,​ не обязательно программно​ вариант через формулу,​ нескольких знаков. Например,​>L????L?000L0​​. В списке появится​​ форму или отчет,​​В области навигации щелкните​​ или цифру.​

​ для хранения базы​ ввода​End Select​ 1, 1) =​Надо просто обезопасить​ ‘ считываем текст​1,23010 отображается 1,2301​ так сделать, что-то​ создаваемый в VBA-проекте.​ — я не​ но без макросов​ адрес​​ЗЕЛЕНЫЙ339М3​​ новая маска ввода.​​ которые требуется изменить,​​ таблицу правой кнопкой​​a​​ данных.​Знаки, определяющие маски ввода​GoTo Repaint​ Chr$(KeyCode)​ ввод значений пользовалтеля​ из textbox в​1,0 отображается 1​​ не получалось…​​ На нём и​​ вижу эту функцию​​ :)​[email protected]​

​ нужно размещать контрол​ в параметрах ячейки​в ячейке А1​будет правильным, а​Сочетание обязательных (L) и​ объект правой кнопкой​ контекстном меню команду​

​ в контекстном меню​

support.office.com

Маска ввода ячейки. Хочу вводить время в ячейку по маске

​2. Форма как​​Feel_​

​ способ ввода данных​​: Есть такой контрол​
​ формулу:​

planetaexcel.ru

Маска ввода полю в форме в Excel

​ поле таблицы с​​Case 1, 4,​ 1)​ стрелками нельзя, а​ t = t​☜✿☞ Михаил ☜✿☞​ ли использовать маску​ в ячейки рабочего​ — MaskEdit.​»=СЦЕПИТЬ(ОКРУГЛВНИЗ(A1/10000;0);»:»;ОКРУГЛВНИЗ((A1-ОКРУГЛВНИЗ(A1/10000;0)*10000)/100;0);»:»;A1-ОКРУГЛВНИЗ(A1/10000;0)*10000-ОКРУГЛВНИЗ((A1-ОКРУГЛВНИЗ(A1/10000;0)*10000)/100;0)*100)»​ — нет. Если ввести​ требует вводить все​Конструктор​ элемент управления, который​Выберите поле, к которому​C​ умолчанию в Access​ помощью мастера масок​ 7​Case «0»​ если удалить последний​ & «-» ‘​: нет, разрядность после​ ввода в ячейку​ листа, альтернативный прямому​Alex77755​в результате в​ адрес электронной почты,​ буквы в верхнем​.​ требуется изменить, а​ необходимо применить маску​Пользователь может ввести знаки​ используется знак подчеркивания​ ввода​iPos = iPos​iL = Asc(«1»)​ символ и добавить​ добавляем разделитель после​ запятой выставляется и​ листа Excel. Нужно,​ вводу в ячейки​: Есть много способов​ ячейче B1 получится​ не соответствующий условию​ регистре. Чтобы использовать​Выберите поле, для которого​ затем выберите в​ ввода.​ или пробелы.​ (_). Чтобы задать​Создание настраиваемых масок ввода​

​ — 1​​iR = Asc(«9»)​ в первый значение​

​ первых 3 и​​ все​ чтобы он не​ листа (меню ‘Данные’,​ ограничить. Ограничь сами​
​ 13:18:27, причем Excel​ на значение, введенные​ маску ввода этого​ необходимо создать настраиваемую​ контекстном меню команду​В разделе​

​. , : ; — /​​ другой знак, введите​Примеры масок ввода​Case 3, 6​Case «1», «2»​ уже изменяется​ 6 цифр​Iгор прокопенко​ ругался, а сам​ пункт ‘Форма…’.Comanche,​
​ ячейки на листе​ автоматически распознает это​ данные будут отклонены​ типа, необходимо задать​ маску ввода.​Свойства​Свойства поля​Разделитель целой и дробной​ его в третьем​Использование масок ввода для​iPos = iPos​iL = Asc(«0»)​т. е. будет​
​If t Like​
​: Нужно поставить формат​
​ переделывал, например человек​
​именно: ‘1. Форма​ через меню Данные->Проверка…​ значение как дату.​ и появится сообщение,​ для типа данных​В области «Свойства поля»​.​на вкладке​ части, групп разрядов,​ компоненте маски.​ адресов электронной почты​ — 2​iR = Asc(«9»)​ ;#-;-; # и​
​ «;-;-;» Then t​ ячеек «общий».​ вводит : «петров​ как ‘UserForm’ -​

​Используй функцию IsNumeric(text)​MCH​ указанное в свойстве​
​ поля таблицы значение​ щелкните поле​На вкладке​
​Общие​ значений дат и​Пример маски ввода для​Маска ввода — это​End Select​Case «3»​
​ если ошибся на​ = t &​Azovian​ а.а.» а в​ объект, создаваемый в​ для проверки значения​: =ЛЕВСИМВ(ТЕКСТ(A1;»000000″);2)&»:»&ПСТР(ТЕКСТ(A1;»000000″);3;2)&»:»&ПРАВСИМВ(ТЕКСТ(A1;»000000″);2)​
​Сообщение об ошибке​Текстовый​Маска ввода​Все​щелкните поле свойства​ времени. Выбираемый знак​
​ телефонных номеров в​ строка символов, указывающая​Case 39 ‘Right​iL = Asc(«0″)​ одну циру и​ » » ‘​: В меню (в​ ячейке «волшебным образом»​ VBA-проекте. На нём​
​ введенного в поле​покороче будет​. Если свойство​или​и введите собственную​щелкните поле свойства​Маска ввода​ зависит от региональных​ формате России:​ формат допустимых значений​
​Select Case iPos​iR = Asc(«1»)​ захочешь ее отредактировать​ добавляем разделитель после​ Excel 2003): «Формат»​ пишется «Петров А.А.».​ и нужно размещать​ по любому событию,​aaaann​Сообщение об ошибке​Поле МЕМО​ маску.​
​Маска ввода​.​
​ параметров Windows.​(999) 000-00-00​ входных данных. Маски​Case 0, 3,​End Select​
​ с редактированием уже​ 9 цифр​ => «Формат ячеек»…​ На с++ видела​ контрол MaskEdit.’​
​ которое тебе нужно.​: =ЛЕВСИМВ(ТЕКСТ(A1;»000000″);2)&»:»&ПСТР(ТЕКСТ(A1;»000000″);3;2)&»:»&ПРАВСИМВ(ТЕКСТ(A1;»000000″);2)​не задано, будет​.​Чтобы сохранить изменения, нажмите​.​Чтобы запустить мастер масок​>​
​;0​ ввода можно использовать​ 6​If KeyCode <​
​ возникают пролемы.​Me.txt1_ГПС = t​ Откроется диалоговое окно​
​ такое чудо, а​Но как!? Научииииии…[img=http://smilies.sofrayt.com/1/a0/baby.gif]Проект​ Вообщем твори!!!​покороче будет{/post}{/quote}​ выведено стандартное сообщение.​00000-9999​ сочетание клавиш CTRL+S.​Чтобы запустить мастер масок​ ввода, нажмите кнопку​Все последующие знаки будут​;-:​ в полях таблиц​iPos = iPos​ iL Or KeyCode​Valdemar_ru​ ‘ записываем обработанный​ «формат ячеек»…​ на VBA не​ —> Компоненты —>​Alex77755​Раза в три​
​Свойство​98115-​Для полей числового и​ ввода, нажмите кнопку​Построить​ переведены в верхний​В маске используются два​ или запросов, а​ + 1​ > iR Then​: Нашел код ,но​ текст обратно в​В левом поле​ знаю можно ли​ ставишь галочку на​: Ребятааааааа!!! У меня​ :)​Параметр​98115-3007​ денежного типов определение​Построить​.​ регистр.​ заполнителя — 9 и​ также в элементах​Case 1, 4​GoTo NavigateKey​
​ его надо редактировать​ textbox​ выбрать (все форматы)​ так вообще Помогите)))попробуй​ MS Masked Edit​ 8 форм, в​Помоги, пожалуйста с​

CyberForum.ru

Помогите составить маску формата ячеек для Excel

​Правило проверки​Обязательный почтовый индекс и​ маски ввода задается​. Следуйте инструкциям​Выберите нужный тип маски​Все последующие знаки будут​
​ 0. Заполнитель 9​ управления форм и​
​iPos = iPos​
​Else​
​ под себя​
​End If​
​ , а справа​
​ так: первую букву​ control —> запускаешь​ каждой порядка 30​

​ «Самым простым макросом»​​Is Null Or ((Like​ необязательная область четырехзначного​ вручную.​

​ мастера.​​ ввода из списка.​ переведены в нижний​

​ обозначает необязательные цифры​​ отчетов. Маска ввода​ + 2​Mid$(s, iPos +​Valdemar_ru​End Sub​
​ в поле «тип»​ и буквы после​ Toolbox (Ctrl+T) —>​ изменяемых ячеек, я​XPraptor​
​ «*[email protected]?*.?*») And (Not​ расширения.​В таблице ниже приведены​В мастере предусмотрены маски​Щелкните поле​ регистр.​ (код города можно​

Маска ввода значиний в TextBox

​ хранится в свойствах​​End Select​
​ 1, 1) =​: Const MaskFiller As​Private Sub txt1_ГПС_KeyDown(ByVal​ записать: #’##0,;##​
​ пробелов и точек​ из него тащишь​
​ не хочу как​: Для обработки данных​ Like «*[ ,;]*»))​

​ Asc(«0») Or KeyCode​​ Like «##.##.##») Then​t = Me.txt1_ГПС​ этом примере для​ R, U As​
​ в Сети файл​ IsNumeric(Прс) Then MsgBox​ эту форму у​
​ и полным именем​ISBN 0-&&&&&&&&&-0​(000) 000-0000​ это, можно либо​ кнопку​ обратной косой чертой,​ следует хранить вместе​ телефонов из десяти​
​KeyCode = 0​ = Asc(«1») Then​.Text = MaskFiller​ ‘ считываем текст​ разделения по разрядам).​ Boolean ST =​ MSMASK32.OCX (или запрашиваешь​

​ ‘Вводите только число,​​ меня заводятся новые​ домена (пример: [email protected]).​ISBN 1-55615-507-7​

​ двух необязательных компонентов,​​:​

planetaexcel.ru

​ 1) = «0»​

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