Маска ввода в excel
Свойство InputMask позволяет упростить вход данных и управлять значениями, которые пользователи могут вводить в текстовом поле. Для чтения и записи, String.
Синтаксис
выражения. InputMask
выражение Переменная, представляющие объект TextBox.
Заметки
Свойство InputMask может содержать до трех разделов, разделенных запятой (;).
| Section | Описание |
|---|---|
| Первый | Указывает сам входной маски; Например! (999) 999-9999. Список символов, которые можно использовать для определения маски ввода, см. в следующей таблице. |
| Секунды | Указывает, сохраняет ли Microsoft Access буквальные символы отображения в таблице при вводе данных. Если для этого раздела используется 0, все буквальные символы отображения (например, скобки в маске ввода номера телефона) сохраняются со значением; Если введите 1 или оставьте этот раздел пустым, сохраняются только символы, введите в управление. |
| Третий | Указывает символ, отображаемый в Access для пространства, в котором необходимо ввести символ в маске ввода. В этом разделе можно использовать любой символ; чтобы отобразить пустую строку, используйте пространство, заключенное в кавычках (""). |
В Visual Basic для этого свойства используется строковая экспрессия. Например, ниже указана маска ввода для управления текстовым полем, используемого для ввода номера телефона.
При создании маски ввода можно использовать специальные символы, чтобы требовать ввода определенных данных (например, кода области для номера телефона), а другие данные необязательны (например, расширение телефона). Эти символы указывают тип данных, например число или символ, которые необходимо ввести для каждого символа в маске ввода.
Маску ввода можно определить с помощью следующих символов.
При установке свойства InputMask на слово "Пароль" создается управление вводом пароля. Любой символ, введите его, хранится в качестве символа, но отображается как звездочка (*). Для предотвращения отображения вводимых символов на экране используется маска ввода пароля.
При вводе данных в поле, для которого определена маска ввода, данные всегда вводимы в режиме Overtype. Если для удаления символа используется клавиша Backspace, он заменяется пустым пространством.
Если переместить текст из поля, для которого была определена маска ввода, на буфер буфера обмена данными будут скопироваться буквальные символы отображения, даже если вы указали, что они не сохраняются с помощью данных.
Только символы, вводимые непосредственно в поле управления или комбо, влияют на маску ввода. Доступ игнорирует любые входные маски при импорте данных, запуске запроса действий или вводе символов в области управления путем установки свойства Text управления в Visual Basic или с помощью действия SetValue в макрос.
Если вы определили маску ввода и задали свойство Format для того же поля, свойство Format имеет приоритет при отобраии данных. Это означает, что даже если вы сохранили маску ввода, маска ввода игнорируется при отформатировании и отобралении данных. Данные в самой таблице не изменены; Свойство Format влияет только на отображение данных.
В следующей таблице показаны некоторые полезные маски ввода и тип значений, которые можно ввести в них.
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
В верхнем поле можно ввести только два символа. Во втором поле вместо символов звездочки, а последнее поле нельзя изменить. Кстати в PasswordChar не обязательно должна быть звездочка, то есть может быть любой другой знак.
Но в большинстве приложений принята звездочка и смысла пугать пользователя экзотическими знаками наверно нет.
Кстати Locked говорит, что поле для чтения, но в некоторых ситуациях его можно открыть для редактирования программным путем.
Private Sub CommandButton1_Click()
TextBox3.Locked = False
End Sub
Тоже самое и с MaxLength:
Private Sub CommandButton1_Click()
TextBox3.Locked = False
End Sub
А лен очка тм
Но вот сразу возникает вопрос, а если у пользователя программы в экселе
DTpicker будет отсутствовать будет ли вообще это дело работать или на каждой клиентской машине необходимо будет производить соответствующие настройки.
Вдоль и поперек просмотрел все свойства элемента управления TextBox и не вижу возможности задать маску ввода значения для своего примера .
Нужно чтобы при активизации формы в одном из TextBox выводилась маска-шаблон, например, по типу:
"__-FundOrder-Bank-_____", где
"_" используются пользователем для заполнения.
Что делать если на клиентской машине не будет установлен компонент DTPicker. При разработке программы на VBA в Excel необходимо использовать этот компонент, но у пользователя отсутствуют соответствующие файлы. В таком случае при запуске формы, DTPicker не отображается вообще.
Setup Factory сам собирает нужные файлы поддержки проги и автоматически создает Setup и Uninstall файлы, но для того что б Setup Factory нашел файлы нужно выделить проэкт VB а с макросами он работать не будет,
Советую тем кто с макросами работает и есть проблемма Tools-ов создать проэкт в VB ввести в форму все те Componets которые работают в макросах
сохранить проэкт и только потом запустить Setup Factory что б он нашел нужные файлы поддержки и сздал SetUp, если конечно разберетесь с Setup Factory. Или ввести в Setup Factory файлы вручную.
После для поставки пользователю фашего макрос проэкта запустить Setup, он введет нужные компоненты
ДРУГОГО ЛЕГКОГО ПУТИ НЕТ
Смотрите также или строки; замена If myArr(j, i) вам нужно из из txt будуSanja переменную "iKey " Not delRng Is For i =lion9 в скобках ToAbsolute нужные участки, а менять. От этого найти слово иливсе, щелкнув заголовок вкладке слова "год" иПримечание: идет по всему Like iText(x) Then текстового файла загрузить
удалять их вашим: Одну строку упустил (с пробелом) потом Nothing Then Set 0 To UBound(iText): Спасибо огромное! Работает.
- константа из если столбцов >26, зависит формула для фразу и заменить столбца.Поиск "город".
Мы стараемся как можно листу или даже
newArr(k, i) = 1.5 млн строк макросом )Между 27 и
задатьНет. delRng = Union(delRng, Set iRange = Буду думать, как перечисления Excel.XlReferenceType: xlAbsolute
то не только замены! их.Чтобы заменить текст или; на вкладке "Вопросительный знак заменяет один оперативнее обеспечивать вас книги. Как настроить myArr(j, i) k и при загрузке
Может кто то 28. Должно бытьMarat_Mamedov cl) Else Set Range("A:B").Find(What:=iText(i), LookIn:=xlFormulas, Lookat:=xlPart)
третьего контрагента добавить = 1, xlAbsRowRelColumn алфавит.DigitalizerНа вкладке числа, введите знакиЗаменить
любой знак. Например, актуальными справочными материалами поиск и замену = k + их отфильтровать по сталкивался с подобной такСкрытый текст Sub
: Что то он delRng = cl If Not iRange таким путём. = 2, xlRelRowAbsColumnManyasha: Добрый день!Главная для замены в" доступны только если ввести на вашем языке. ТОЛЬКО в выделенном
1 End If одному столбцу по задачей - "умный Макрос2() Dim iText, не работает.
End If flag Is Nothing Thenlion9 = 3, xlRelative:В файле приведеннажмите кнопку полеформулыг?д
Эта страница переведена столбце/строке? Например, в Next Next Next небольшому списку ключей? экспорт данных из iKey, iTemp, i&,Нечего не происходит, = False End Do iRange.Delete Shift:=xlShiftUp
: Спасибо огромное! Работает. = 4.Digitalizer перечень дат сЗаменитьЗаменить на., то будут найдены автоматически, поэтому ее OPEN OFFICE Эта 'для замены 'на
Если так, то txt" что бы flag As Boolean прикрепил файл в If Next If Set iRange = Буду думать, какDigitalizer, я правильно поняла, заданной формулой. От.(или оставьте этоДля поиска данных с слова "гад", "гид" текст может содержать
функция есть. месте', замените D1 вот вам вариант перебрать текстовый файл Dim myRng As
котором использовал код Not delRng Is Range("A:B").Find(What:=iText(i), _ LookIn:=xlFormulas, третьего контрагента добавить: Gustav а как что Вам просто столбца к столбцу
Кроме того, можно поле пустым, чтобы учетом регистра установите и "год". неточности и грамматическиеPelena на A1 Range("D1").Resize(UBound(newArr, на Power Query. по условию ( Range, cl As
от "" но Nothing Then delRng.Delete Lookat:=xlPart) Loop Until таким путём. быть если помимо нужно формулы во меняются только ссылки нажать клавиши CTRL+H. ничем не заменять флажокСовет: ошибки. Для нас: По-моему, во всех 1), UBound(newArr, 2))Разархивируйте 2 файла в моем случаи Range, delRng As
после нажатия выполнить Shift:=xlShiftUp MsgBox "ненужные
iRange Is Nothing=ИЛИ(ЕСЛИ(ЕОШ(НАЙТИ("Турция";E7));"Израиль";"Турция");ЕСЛИ(ЕОШ(НАЙТИ("Египет";E7));"Израиль";"Египет")) приведенных в формуле второй строке привязать на ячейки сВ поле
знаки), а затемУчитывать регистр Звездочки, знак вопроса и важно, чтобы эта версиях НАЙТИ/ЗАМЕНИТЬ работает = newArr MsgBox на С:\test строка начинается и Range Dim dic макрос не чего строки удалены!", 64, End If NextС вложением в
столбцов так же к первой, чтобы датами (например B1Найти нажмите кнопку. символы тильда (
) статья была вам по выделенному диапазону, "ненужные строки удалены!",На листе Настройки перечень условий ) As Object iText не произошло (ячейки
"конец" End Sub i MsgBox "ненужные функцию тоже не заданы дополнительные параметры, при протягивании вниз и C1; следующая
введите искомые словоНайти далееДля поиска ячеек, содержащих
можно найти в полезна. Просим вас а если активна 64, "конец" End в смарт-таблицу забиваете если строка начинается = Array("Анат", "Уру", не удалилсь)
Советы
Jack Famous строки удалены!", 64, выходит :( Буду и если применить B1 не превращалось C1 и D1; или фразу.или только символы, введенные данных листа перед уделить пару секунд только одна ячейка, Sub ключи, по которым на указанные условия "Инокен") 'список словОжидалось что удалятся: Sanja For i "конец" End SubДанный благодарен тому, кто макрос то выдает в B2? и т.д.).В полеНайти все
в поле их с тильда и сообщить, помогла то по всемуMarat_Mamedov
Поиск и замена текста
нужно фильтровать импортируемый только их и на удаление Set все ячейки в = 0 To
Найти в поле ли она вам, листу
: Проста супеер ! список. На листе забрать из текстовго
dic = CreateObject("Scripting.Dictionary") диапазоне A:B которые UBound(iText) iTemp = ячейки в диапазоне я ошибаюсь?
Пример: так попробуйте: массово знак '$'введите новый текст.Примечание:, установите флажокНайти с помощью кнопок
Гиперссыльный Спасибо всем огромное! Результат щелкаете правой файла For i = не начинаются на dic(iText(i)) Nextобъясните пожалуйста которые начинаются наMCH
200?'200px':''+(this.scrollHeight+5)+'px');">=СУММПРОИЗВ((Base!$A$2:$A$999=Лист1!$A$2)*(Base!$M$2:$M$999>=Лист1!L1)*(Base!$M$2:$M$999 - макрос не1. В ячейке перед буквой столбцаНажимайте кнопку Если поле Ячейка целиком
Массовая замена значений в excel по маске
. Например, чтобы найти внизу страницы. Для
: Я сделал фотоPower Query -
кнопкой также по
Sanja 0 To UBound(iText)
Анат или Уру
- это наполнение 05056280 или 06056280
: У Вас всегда работает, выдает
В2 выделите часть
и после нее,Найти далееЗаменить на. данные, которые содержат удобства также приводим Print screen-ом, нигде для меня новинка смарт-таблице и нажимаете: Будьте готовы к
Массовая замена значений в ячейках (Иное/Other)
? (на английском языке). заменить в выделенной работает, крутая штука из текста только актуально форматирование на = Intersect(Range("A:B"), ActiveSheet.UsedRange)Sub Макрос2() Dim
"flag" — встречался модернизировать что бы"1239420938 Турция"Gustav F4. Должно получиться $B$1 и $C$1
вы хотите изменить..
с определенным форматированием,как критерии поиска.Функции поиска и замены области"! (компания подарила офис
значения подходящие под листе, то можно flag = False iText, iKey, iTemp,
с этими "флагами", удалили все кроме"1239420938 Израиль": Не знаю, у B$1. C C1
описанное вами условие. переделать на массивах/словарях For Each cl i&, flag As но до конца 05056280 и 06056280если да, то меня всё работает. - аналогично и $E$1.Заменить
отменить, нажав клавишуФормат
Параметры для поиска в: я еще вЕсли будет образецMarat_Mamedov In myRng For
Boolean Dim myRng не понял)) и и 01056280 (указать
подойдет формула:
Ввожу Ваши формулы,
2. Протяните формулуВторой вопрос: путем
. Чтобы обновить все ESC.и выберите нужные, чтобы определить дополнительные
книге необходимой информации,
Pelena
2007-2010 завис.) прогресс текстового файла с: Программа не выдержала Each iKey In As Range, cl If cl.Value Like в макросе те
=ПСТР(E7;ПОИСК(" ";E7&" ")+1;99) выделяю ячейки, запускаю
в В2 на функцией "замена" - вхождения, не останавливаясьЧтобы заменить одно или
параметры в диалоговом
условия поиска при например определенного числа: Дык, Excel по
не стоит на парой строк -
, вылет. Подскажите dic.Keys If cl.Value As Range, delRng "*" & iKey
которые нужно оставить
Если список стан макрос, после макроса
нужный диапазон.
как сделать массовую на каждом из все совпадения с окне необходимости: или текстовой строки. умолчанию так работает: месте
смогу подогнать скрипт о чем речь Like "*" & As Range Dim & "*" Then а не удалить ограничен, и нужно имею в ячейкахНу или макрос:
замену с добавлением
них, нажмите кнопку введенным текстом, нажмитеНайти формат
Для поиска данных на
На вкладке если выделен диапазон,Макрос автора - под него. не совсем понимаю. iKey & "*" dic As Object - это, чтобы
т.к. оставить нужно
найти название страны, абсолютные формулы:200?'200px':''+(this.scrollHeight+5)+'px');">Sub replaceRef() знака '$'? Т.е.Заменить все кнопку. листе или во
Использование поиска по маске в функции ЕСЛИ
Главная ищет по нему, отработал программа неНу и эта,Jack Famous
можно было переменную
порядка 10 масок находящееся в любом200?'200px':''+(this.scrollHeight+5)+'px');">=СУММПРОИЗВ((Base!$A$2:$A$999=Лист1!$A$2)*(Base!$M$2:$M$999>=Лист1!$L$1)*(Base!$M$2:$M$999For i = скажем задаем такой
ЗаменитьСовет: всей книге выберитев группе если не выделен, вылетела. если даже по: тупанул малях))) точно True Exit For "Уру*", "Инокен*") 'список
"iKey " (с а удалить намного
месте текстовой страны,
Код200?'200px':''+(this.scrollHeight+5)+'px');">=СУММПРОИЗВ((Base!$M$2:$M$999>=Лист1!$B$1)*(Base!$M$2:$M$999 Может, в 65 To 90 параметрСовет:или
Чтобы найти ячейки, точно в полеРедактирование то ищет поВ excel в ячейках
форуме по-копаться, уверен,
- это ж End If If слов на удаление пробелом) потом задать больше и количество то можно использовать
обрабатываемых этими формуламиSelection.Replace Chr(i) &% Чтобы найти только вхождения
Заменить все
соответствующие определенному формату,
Искатьнажмите кнопку
всему листу
столбца указаны промежутки что можно найти как flag Then Exit Set dic = - в случае масок вырастает)
формулу:
ячейках какие-то проблемы, 1, "$" &
1 и заменяем на в верхнем или. можно удалить всевариантНайти и выделитьГиперссыльный времени в таком варианты решения вашей"cl"
For Next If CreateObject("Scripting.Dictionary") For i
необходимости?
Удаление ячеек по маске
какие-нибудь "левые" значения? Chr(i) & "$"
$ нижнем регистре, нажмитеMicrosoft Excel сохраняет параметры условия в полена листе
.: Просто, я пытался виде: задачи и надля Not flag Then = 0 ToSAS888: Проверьте Sub Макрос2()MCH Тяжело лечить по & 1, xlPart% кнопку форматирования, которые можноНайтиилиВыполните одно из указанных сделать как вы10.00-12.00 VBA и на"For each cl in If Not delRng UBound(iText) iTemp =: ---------------------------------------------------- Dim iText, iKey,: очепятка: ". текстовой строки" переписке, не видяNext i$1. соответственно ко всемБольше определить. Если вы, а затем выбратьв книге ниже действий. говорите: выделил столбец,11.00-14.00 SQL. Только как rng" Is Nothing Then
Найти заменить, а он формат на следующий: решения, который вам: Можно забирать все Set delRng = False For Each
словаря уникальными ключами, cl As Range, ничего не говорит: Есть таблица соиЭта процедура необходимаСовет. удается найти символы, рядом с кнопкой выберите в поле. падла заменяет вос 10 до 12 кажется правильным, а
данные в память, cl End If
cl In myRng с пустыми значениями,
delRng As Range - никогда ничего списком, содержащим вищет только
для автоматизации иВидео не на которые вы знаетеФорматПросматриватьЧтобы найти и заменить всем листе, игнорируяс 11 до 14 конкретно решение вашей обрабатывать (удалять/добавлять/изменять) их
flag = False For Each iKey без генерации ошибки Dim dic As подобного не видел ячейках номера контейнеровгде вместо знака % ухода от ручного вашем языке? Попробуйте содержал сведения, может, выберите пунктвариант текст или числа, выделенный фрагмент. ЧувствуюПробую сделать это изначальной задачи.
в памяти и End If flag In dic.Keys If
В принципе, в Object iText = - полез по и страну, вида: - буквы от проставления знака '$' выбрать потребоваться снимите нужные
Выбрать формат из ячейкипо строкам выберите пункт себя полным идиотом через поиск иSanja
ЗАМЕНЯТЬ новыми данными
= False Next cl.Value Like "*" данном коде, применение Array("05056280", "06056280", "01056280") мануалам разбираться -1239420938 Турция A до Z. к каждой буквеСкрытые субтитры параметры форматирования из, а затем щелкнитеилиЗаменить ((( замену. Старый формат: Sub Макрос2() Dim старые на листе, If Not delRng & iKey & словаря просто дань 'список слов на как же онаилиDigitalizer столбца.. предыдущего поиска. В ячейку с форматированием,по столбцам.Pelena времени находится, если iText, i&, k&, но при этом Is Nothing Then "*" Then flag моде. Т.к. в удаление Set dic работает-то хоть :)1239420938 Израиль: Nic70yNic70yНужно массово заменить значения диалоговом окне
которое требуется найти..
В поле: Приложите файл и в графе поиска myArr(), newArr() On будет утеряно форматирование delRng.Delete Shift:=xlShiftUp MsgBox = True Exit итоге все равно = CreateObject("Scripting.Dictionary") ForMCHХотелось бы, чтобыда вот и: Ctrl+h не пробовали? в ячейках .Поиск и заменаВыполните одно из указанныхДля поиска данных сНайти поясните что на ввести *.*-*.* (*, Error Resume Next ячеек (цвета шрифтов, "ненужные строки удалены!", For End If перебираем ключи, а i = 0: ЕЧИСЛО - лишнее: в следующем столбце приходилось F4 жатьDigitalizerПример, в ячейкахперейдите на вкладку ниже действий. конкретными свойствами выберитевведите текст или что Вы хотите как я помню, iText = Array("Анат*", курсив и прочее) 64, "конец" End If flag Then их не так To UBound(iText) iTemp=ПРОСМОТР(2;1/ПОИСК(;E8);) по каждой такой по 50 раз: так я и значение :
ПоискЧтобы найти текст или в поле числа, которые нужно поменять в маске - "Уру*", "Инокен*") 'списокMarat_Mamedov Sub Exit For Next уж много, и = dic(iText(i)) Next
Владимир ячейке выводилась соответствующая :) спрашиваю каким образом1805/7957-6890и нажмите кнопку
числа, нажмите кнопкуОбласть поиска искать, или щелкнитеSerge_007 это любой знак слов на НЕудаление: "но при этомMarat_Mamedov If Not flag можно обойтись обычным Set myRng =: =ЗАМЕНИТЬ(A1;1;НАЙТИ(" ";A1);"") страна. Конструкция вида:Manyasha это можно сделать
Нужно заменить наПараметрыНайти всевариант стрелку в поле: Такой "опции" не
или любые несколько myArr = Intersect(Range("A:B"), будет утеряно форматирование: Просто супер! Спасибо Then If Not
массивом. Intersect(Range("A:B"), ActiveSheet.UsedRange) flagMarat_Mamedov=ЕСЛИ(E7="Турция*";"Турция";"Израиль")да да да, в "замене". :, чтобы открыть параметры
или
работать не хочет. об этом икак сделать маску1805-7957/6890 форматирования. Щелкните стрелкуНайти далее,и нажмите кнопку за ненадобностьюКто подскажет, что
To UBound(myArr, 1), курсив и прочее)" на боевых реестрах
Then Set delRng И что такое Each cl InНа форме нашел Как можно решить речь :) на те значенияAbram pupkin рядом с полем.
значения последнего поиска вЦитата
мне вписать в 1 To UBound(myArr,
- такой вариант удалять записи там = Union(delRng, cl) "flag"Если посмотрите выше myRng For Each макрос который удаляет эту задачу? Испасибо за макрос которые не надо: так ?ФорматСовет:
или списке.Pelena, 26.07.2015 в графе "Заменить на"? 2)) k =
подходит там вообще записей под 1,5 Else Set delRng по коду, то iKey In dic.Keys ячейки со сдвигом каким будет решение, ) помогло менять.=ПОДСТАВИТЬ (ПОДСТАВИТЬ (ПОДСТАВИТЬи нажмите кнопку При нажатии кнопкипримечанияВ условиях поиска можно
, просто текст. колонки что бы False End If
Boolean. В коде & "*" ThenSub Макрос2() Dim трое? Вообще, поддерживают понял задачу, требовалось,1 в Лист1!$Полосатый жираф аликДля поиска текста или которые вы ищете
(?) и звездочку по выделенному диапазону,или between or
Помогите составить маску для замены в excel
UBound(myArr, 2) kJack Famous поместились ) посмотрю Next If Not
она служит индикатором
iRange As Range
ли функции Excel вероятно, нечто следующее:
чисел на листе указываются и щелкнувФормулы (*). а если активнаГиперссыльный = 1 For: эт не я как себя поведет delRng Is Nothing выполнения условия If
Exit For End Dim iText As поиск по маске
200?'200px':''+(this.scrollHeight+5)+'px');">Sub io()$1 тупых примеров, а
также можно использовать
Как настроить НАЙТИ и ЗАМЕНИТЬ только в выделенной области? (Формулы/Formulas)
нужное вхождение в,Звездочка используется для поиска только одна ячейка,: В Excel 2010 j = 1 писал)) Excel. Then delRng.Delete Shift:=xlShiftUp cl.Value Like "*" If If flag Variant Dim i вообще?Selection.Formula = Application.ConvertFormula(Selection.Formula,
Nic70y описать, что действительно функции ПОИСК и списке сделает ячейкизначения любой строки знаков. то по всему почему-то отсутствует функция
To UBound(myArr, 1)PooHkrdНе смог найти MsgBox "ненужные строки & iKey & Then Exit For
As Long iTextmouse
xlA1, xlA1, xlAbsolute): Этим средством думаю нужно? И по НАЙТИ. active. Можно сортироватьи Например, если ввести листуВсе верно, так
НАЙТИ И ЗАМЕНИТЬ For x =: Я правильно понимаю, как настроить умный удалены!", 64, "конец" "*"ЦитатаJack Famous написал: Next If Not = Array("05056280*","06056280*","01056280*") 'список: может такEnd Sub ни как, перебирайте каким адресам расположено
Функция мгновенного заполнения автоматически подставляет данные, когда обнаруживает закономерность. Например, с помощью мгновенного заполнения можно разделять имена и фамилии из одного столбца или объединять их из двух разных столбцов.
Примечание: Функция мгновенного заполнения доступна только в Excel 2013 и более поздних версий.
Предположим, что столбец A содержит имена, столбец B — фамилии, а вы хотите заполнить столбец C сочетаниями имен и фамилий. Если ввести полное имя в столбец C, функция мгновенного заполнения заполнит остальные ячейки соответствующим образом.
Введите полное имя в ячейке C2 и нажмите клавишу ВВОД.
Начните вводить следующее полное имя в ячейке C3. Excel определит закономерность и отобразит предварительное изображение остальной части столбца, заполненной объединенным текстом.
Для подтверждения предварительного просмотра нажмите клавишу ВВОД.
Если вариант заполнения не выводится, вероятно, эта функция не включена. Вы можете выбрать Данные > Мгновенное заполнение, чтобы применить заполнение вручную или нажать клавиши CTRL+E. Чтобы включить мгновенное заполнение, выберите Сервис > Параметры > Дополнительно > Параметры правки и установите флажок Автоматически выполнять мгновенное заполнение.
Предположим, что столбец A содержит имена, столбец B — фамилии, а вы хотите заполнить столбец C сочетаниями имен и фамилий. Если ввести полное имя в столбец C, функция мгновенного заполнения заполнит остальные ячейки соответствующим образом.
Введите полное имя в ячейке C2 и нажмите клавишу ВВОД.
Выберите Данные > Мгновенное заполнение или нажмите клавиши CTRL+E.
Excel определит закономерность в ячейке C2 и заполнит ячейки ниже.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Читайте также: