Быстрый ввод даты и времени без разделителей
Если Вам часто приходится вводить даты и время в ячейки, то Вам должна понравиться идея писать их сокращенно, без точек-дробей-двоеточий — просто как число. Чтобы в заданном диапазоне ячеек листа, например, число 250699 автоматически превращалось в 25.06.1999, а 1125 в 11:25.
Для этого щелкните по ярлычку листа, куда будут вводиться даты и время и выберите команду Исходный текст (Source 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 If Not Intersect(Target, Range("B2:B10")) Is Nothing Then With Target vVal = Format(.Value, "0000") If IsNumeric(vVal) And Len(vVal) = 4 Then Application.EnableEvents = False .Value = Left(vVal, 2) & ":" & Right(vVal, 2) .NumberFormat = "[h]:mm" End If End With End If Application.EnableEvents = True End Sub
Диапазоны A2:A10 и B2:B10 замените на свои области листа, куда будут подобным образом вводиться даты и время, соответственно.
Ссылки по теме
- Всплывающий календарь DatePicker для быстрого ввода дат в ячейки
- Всплывающий календарь в надстройке PLEX
- Автоматический ввод даты при занесении данных в ячейку
- Что такое макросы, куда вставлять код макроса на VBA, как их использовать.
Чтобы не вводить точки, подряд можно было бы ввести 8 цифр и дата бы встала…
Уверен, вопрос простейший, но толку не хватает…
формат ячейки
00.00.0000
но фактически это будет не дата, а 8 цифр
Если же Вам нужно именно дату, то или в соседней ячейке, или макросом
Скажи мне, кудесник, любимец ба’гов…
Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995
«Ctrl+S» — достойное завершение ваших гениальных мыслей!..
Цитата: TimSha от 23.12.2013, 17:59
Цитата: Никита Крестьянинов от 23.12.2013, 17:48
… Уверен, вопрос простейший, но толку не хватает…Напишите макрос — простейший…
Или — в поиск. Было что-то подобное (поскольку вашего файла нет) в «Приемах» на Planet’e.
http://www.planetaexcel.ru/techniques/6/51/ Нашел
Убрал вторую половину кода — все работает как надо Есть правда косяк, если неправильно напишешь, например, месяц (допустим 15), вылезет дебаггер и после этого макрос перестает работать как надо… Приходится перезапускать екселюшку Но пофигу, хоть так..
Есть еще вопрос, наверняка еще более простой
Нужно, чтобы столбик «дата рождения» сортировался по месяцам… Фильтр работает только по году…. Как сделать чтобы по необходимому месяцу все даты сортировались?
Делайте допстолбец с формулой месяц и сортируйте.
Я, как всегда, чертовски адекватен… Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771
Цитата: KuklP от 23.12.2013, 21:44
Делайте допстолбец с формулой месяц и сортируйте.
Эмммм….. Это как?
Создать в таблице еще один столбец и вводить туда месяц отдельно? Это как то долго… (если я конечно правильно понял)
Неужели встроенным фильтром никак нельзя по месяцам сортировать? oO
Можно прочитать правила и выложить пример, согласно оных. На пальцах Вам что ли объяснять?
Я, как всегда, чертовски адекватен… Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771
Прикручивается, если его в Рар, или зип запаковать, или в xls сохранить. Жду.
Я, как всегда, чертовски адекватен… Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771
Это так тяжело для Вас?
ЦитироватьДелайте допстолбец с формулой месяц и сортируйте.
Ну хорошо, в D2 =МЕСЯЦ(C2) и тянем вниз.
Я, как всегда, чертовски адекватен… Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771
Цитата: KuklP от 23.12.2013, 22:26
Это так тяжело для Вас?ЦитироватьДелайте допстолбец с формулой месяц и сортируйте.
Ну хорошо, в D2 =МЕСЯЦ(C2) и тянем вниз.
А нельзя именно по столбцу С фильтр сделать?
Ну если нельзя, то будем это юзать… Спасибо!
Если вам часто приходится вводить даты и время в ячейки, то вам должна понравиться идея писать их сокращенно, без точек-дробей – просто как число. Чтобы в заданном диапазоне ячеек листа, например, число 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 вставьте следующий код.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
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
Смотрите также раза на имени 1) = Date в модуле вашего только ссылку наnika_adm
. (41209) — это без, месяц числом реально помогли вводиться даты и если вы хотите заполнить маркер заполнения чисел, комбинаций текстExcelКак видите все достаточно формата отображения датыВесь курс: урок 1 листа, где находится End If End листа. Он запускается нужный блок, и: Установить на сомпе,Про то, как это количество дней, прошедших или словом иAexbro время, соответственно.
Ввод дат и времени в Excel
заполнение ячеек последовательностью. и числа иливыберите пункт просто! и времени в | Ваша таблица If End If на событие изменения под ним Me.ToggleButtonХХ.Value MSCOMCT2.OCX правильно вычислять, лучше
с 1 января т.д.) и задается: _Boroda_, спасибо вопросAexbro пропускает каждый день,Примечание: формулы на основеПараметрыВ этом уроке мы настройках операционной системы.урок 24 скопируйте код If Target.Column =
листа, конкретно ячеки = True .Возможно на Вашем почитать тут. 1900 года (взято через контекстное меню закрыт: Здравствуйте. Есть таблица например Понедельник, среда, При выборе диапазона ячеек, шаблона, который можно. В разделе научились настраивать форматРаботая с ячейками в| урок 3 и вставьте в
13 And Target.Row — А1.На сколько это компе он ужеПоскольку одни сутки в
за точку отсчета) — правой кнопкойWasilich в которой множество пятница, т. д., которые вы хотите установить. Например можноформулы и списки
Формат даты и времени в Excel
отображения дат и Microsoft Excel, которые | урок 4 основное поле редактора > 3 _SOV1 сократит код, как есть, тогда просто системе отсчета даты до текущей даты. мыши по ячейке: А чё никто
ячеек с временными введите Понедельник и повторить в смежных элем1 ввод вщелкните времени в Microsoft содержат дату или | урок 55 сохраните файл And Target.Row <
: Димит, ваш макрос думаешь? И это добавить элемент к Excel принимаются за
А дробная часть и далее не предложил макрос? значениями.Как ускорить процесс среда из двух ячеек, можно перетащить ячейку и затемАвтозаполнение Excel, а также время, Вы имеетеДумаю, из прошлого урока и закройте редактор 2000 Then If очень даже оказался не единственный момент инструментам.
единицу (см.выше), то (0,65417), соответственно, доляФормат ячеек Тем более, что ввода времени (без ячеек начальный и маркер заполнения вниз заполнить ячейки нижеи снимите флажок разобрали несколько полезных возможность применять к Вам уже известно,
- VBA Target.Offset(0, 0).Value = нужным, только не
- в этом коде.Штурмaн для вычисления даты, от суток (1сутки(Format Cells) ТС сам пытался
- ввода разделителей) с затем перетащите маркер один столбец или или справа отАвтозавершение значений ячеек вариантов их ввода ним различное форматирование. что даты и6 измените ячейку «да» Then If хватило нам тяму Сама инициализация формы,
- : Если можно, то отстоящей от заданной
= 1,0):
применить. последующим сложением либо заполнения. по одной строки, элем2 Item3, Item4,. на рабочий лист. Например, Вы можете время в Excel в 7 столбце Target.Offset(0, 1).Value = распространить его действие тоже далеко не хочется поподробнее узнать на, допустим, 20Из всех этих фактовВремя вводится в ячейкиВот пример. Может вычитанием этих данных.
Если Вам часто приходится
office-guru.ru
Ввод ряда чисел, дат или других элементов
но не вниз и т.д.Выделите ячейки, содержащие данные, В следующем уроке отображать в ячейке хранятся в виде и убедитесь в «» Then Target.Offset(0, на весь столбец. блеск. 1570 строк(правда про MSCOMCT2.OCX - дней, достаточно прибавить следуют два чисто с использованием двоеточия. кому пригодится Например: в А1 вводить даты и несколько столбцов иВыделите ячейку, содержащую сочетание которые вы хотите мы поговорим о только день недели,
порядковых чисел, началом работе макроса
Быстро ввести в ячейку столбца повторяющихся элементов
-
1) = DateПомогите, плиз! вкючая пустые строки).
где его взять к дате это практических вывода: Напримерstria вводим 1230 видим время в ячейки,
-
на нескольких строках. текста и номера повторить в смежных 7-ми функциях Excel,
или только месяц отсчета которых принято
-
842-й End If EndДимит Я думаю, что и как установить? число.Во-первых, Excel не умеет16:45
-
: Здравствуйте! (12:30), в В1 то Вам должнаИнтеллектуальная кнопка
-
или начальный номер. ячеек. которые позволяют извлекать и год, или считать некое: Здравствуйте, все сделал If End If: Замените строку раз в 10dlaptevЭту операцию осуществляет функция работать (без дополнительныхПо желанию можно дополнительно Решил сделать в вводим 1700 (видим понравиться идея писать
-
Быстро ввести столбец повторяющихся элементов в несколько ячеек одновременно
-
Параметры автозаполненияВыделите ячейки, которые нужноВыделите ячейки, которые нужно нужные параметры из
-
же только время.0 января 1900 года по вашей инструкции
End SubIf Target.Address = легко можно сократить…Согласен: http://www.yandex.ru/yandsearch?text=MSCOMCT2.OCXРАБДЕНЬ настроек) с датами уточнить количество секунд Excel подсчет налета 17:00) в С1 их сокращенно, безнажмите кнопку, а
-
заполнить маркер заполнения заполнить маркер заполнения значений дат иПолучить доступ ко всем. К счастью, в
и получилось =)))
842-й
«$A$1» Then с Вами Что-то
в частности тут(WORKDAY) ранее 1 января
— вводя их
используя быстрый ввод получаем 4:30. точек-дробей-двоеточий — просто
затем выполните одно.
. времени. На этом возможным форматам Вы
ячейках мы видим спасибо огрмное!!! очень
-
: Товарищи, помогите пожалуйста!на я раздухарился сhttp://ms-access.ru/SetupWizard_mscomct2.html. Она позволяет вычислить 1900 года. Но также через двоеточие: времени (2300 =Проблем с вводом как число. Чтобы
-
из следующих действий:Примечание:Примечание: урок закончен. Всего можете на вкладке не эти числа, помогло.Я абсолютно неIf Target.Column = кодом в этомMasalov дату, отстоящую вперед это мы переживем!16:45:30 23:00) нет : достаточно в заданном диапазонеЗадача
Быстро ввод ряда чисел или комбинаций номер текста
При выборе диапазона ячеек, При выборе диапазона ячеек, Вам доброго иЧисло а привычные дляgera_vip знаю МVB но 1 Then календарике.: Я когда столкнулся или назад относительно ;)
-
И, наконец, никто неВопрос в следующем:-Как задать формат ячейкам
-
ячеек листа, например,Действие которые вы хотите
которые вы хотите успехов в изучениидиалогового окна нас даты и: Дабы не создавать очень хачется сделатьв данном случаеSOV1 с такой же начальной даты наВо-вторых, с датами и
-
запрещает указывать дату без ввода даты А1 и В1 число 250699 автоматическиСкопируйте все содержимое ячейки,
повторить в смежных
повторить в смежных
Excel.Формат ячеек время, которые могут
новую тему, спрошу следующее: 1 — это
: Всем доброго времени
проблемой сделал собственну нужное количество рабочих временем в Excel
и время сразу excel мог определить
«0/:00», но как превращалось в 25.06.1999, включая формул и
ячеек, можно перетащить ячеек, можно перетащитьАвтор: Антон Андронов. В категории храниться в самых здесь.при смене или номер столбца, т.е. суток. форму календаря. (см. дней (с учетом возможно выполнять любые вместе через пробел, переход суток? сделать чтобы в
Быстро ввести серию дат, времени, рабочие дни, месяцы и годы
а 1125 в форматирования, без повторяющихся маркер заполнения вниз маркер заполнения внизПримечание:Дата различных форматах. ВНашел код, который появлении значения в «А»
-
Такая вот задача: приложение). выходных суббот и математические операции. Именно
-
то есть т.е Взлет 23:00, ячейке С1 эти
11:25. серии один столбец или один столбец илиМы стараемся какприведены встроенные форматы этом уроке Вы добавляет дату. 7-ом столбце вДимитпри выборе значения
-
Так как если воскресений и государственных потому, что на27.10.2012 16:45 посадка 01:00 …
значения суммировалось как
Для этого щелкните по
Выберите команду по одной строки, по одной строки, можно оперативнее обеспечивать
дат: узнаете, как вводитьPrivate Sub Worksheet_Change(ByVal
6-ом отображалась дата: Замените строку из списка в
переносить Ваш ексельный праздинков). Использование этой самом деле они
Для ввода сегодняшней даты
итого 2:00. время ярлычку листа, куда
Копировать ячейки но не вниз
но не вниз вас актуальными справочнымиА в категории
даты и время Target As Range) ввода этого значения.If Target.Address =
одной ячейке таблицы файлик на другой функции полностью аналогично
— числа! А в текущую ячейкуМожет кто нибудьСпасибо будут вводиться даты.
несколько столбцов и несколько столбцов и материалами на вашем
Время в Excel, чтобы For Each cellНадо чтоб работало «$A$1» Then
— в другой компьютер, на котором применению функции
вот это уже можно воспользоваться сочетанием поможет пилоту ?jakim и время и
Заполнение ячеек на основании на нескольких строках. на нескольких строках.
языке. Эта страница– встроенные форматы получать требуемое форматирование. in Target ‘проходим это все сона ячейке должна появиться может не оказатьсяЧИСТРАБДНИ раскрывает перед пользователем клавишКонечно поможет. Если: Не знаю как выберите команду начальные сведения вИнтеллектуальная кнопка
support.office.com
Быстрый ввод даты и времени без разделителей
Интеллектуальная кнопка переведена автоматически, поэтому времени:Даты и время в по всем измененным 2-ой строки.If Target.Column = текущая дата. И MSCOMCT2.OCX — календарь(NETWORKDAYS) массу возможностей.Ctrl + Ж пилот прочитает Правила в 2007, а
Исходный текст первой ячейкеПараметры автозаполненияПараметры автозаполнения ее текст можетДля того чтобы применить Excel можно вводить ячейкам If NotЕсли не трудно 1 Then самое главное -
не заработает.описанной выше.Считается простым вычитанием -(или форума и создаст в 2010 всё(Source Code)Нажмите кнопкунажмите кнопку, анажмите кнопку, а содержать неточности и форматирование к ячейке, в виде порядкового Intersect(cell, Range(«A2:A1048576»)) Is объясните как этов данном случае дата не должнаdlaptevВас не в понедельник из конечной датыCTRL+SHIFT+4 свою тему. Крайне очень просто.. В открывшееся окно»ряд заполнения» затем выполните одно затем выполните одно грамматические ошибки. Для достаточно выбрать нужный числа или доли Nothing Then ‘если сделать от А 1 — это больше изменяться, тк: gif красивый, только родили? Нет? Уверены? вычитаем начальную иесли у вас желательно, чтобы еще_Boroda_ редактора Visual Basic
. из следующих действий: из следующих действий: нас важно, чтобы формат в разделе суток, но как
planetaexcel.ru
Excel быстрый ввод времени (Формулы)
измененная ячейка попадает до Я т.к. номер столбца, т.е. таблица редактируется в в коде «несъедобный»… Можно легко проверить переводим результат в другой системный язык и с примером: скопируйте и вставьтеКопирование только форматирования ячеекЗадачаЗадача эта статья была
Тип Вы сами понимаете, в диапазон A2:A1048576 я не ориентируюсь «А» течение месяца.народ вон коды при помощи функцииОбщий (General)
по умолчанию).
в Excel.200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ТЕКСТ(A1;»00:00″)+ТЕКСТ(B1;»00:00″) следующий код:Нажмите кнопкуДействие
Действие вам полезна. Просими нажать
это не совсем
With cell.Offset(0, 4)
совсем (( могуSOV1
SOV1 раздает (из недавних):ДЕНЬНЕДчисловой формат, чтобыЕсли скопировать ячейку с
valenelena
или
Private Sub Worksheet_Change(ByVal
заполнить только форматированияСкопируйте все содержимое ячейки,
Скопируйте все содержимое ячейки вас уделить пару
ОК удобно. К тому
‘вводим в соседнюю лишь макрос создать: Огромное Вам спасибо,: Нет желающих помочь?http://relib.com/forums/thread883354.aspx(WEEKDAY)
показать разницу в
датой (протянуть за: в 2010 уКод200?’200px’:»+(this.scrollHeight+5)+’px’);»>=—ТЕКСТ(A1+B1;»00:00″) Target As Range). включая форматирование и с форматированием секунд и сообщить,. Нужное форматирование будет же при таком справа ячейку дату и то не Димит. Слишком сложно илиШтурмaн
из категории
днях: правый нижний угол меня нет такого
Да, 12:30+17:00 будет Dim vVal DimСкопируйте содержимое ячейки, включая
формулыВыберите команду помогла ли она
применено. Если встроенных подходе к ячейке (чем выше цифра, работает почему-то ((И, чтобы закончить наоборот?
: Пожалуйста, код.Дата и время
Здесь ситуация чуть сложнее. ячейки), удерживая
типа ввода времени. 5:30 StrVal As String формул без форматированияВыберите команду
Копировать ячейки вам, с помощью числовых форматов Вам придется каждый раз
тем дальше ячейка)заранее спасибо! этот вопрос: как
ДимитМожет кому-нибудь пригодится.
. Необходимо не учитыватьправуюКак вводить времяAexbro Dim dDate AsЩелкните
Копировать ячейки. кнопок внизу страницы. будет недостаточно, то
применять определенный числовой .Value = DateДимит
сориентировать макрос на: При изменении А1dlaptevПервый аргумент этой функции субботы с воскресеньямикнопку мыши, то вводим 1230 видим
: _Boroda_, Спасибо за Date If Target.Cells.CountЗаливка без форматирования.Копирование только форматирования ячеек Для удобства также
можно воспользоваться категорией формат. ‘Дата .EntireColumn.AutoFit ‘выполняем
excelworld.ru
Основные принципы работы с датами и временем в Excel
Видео
: Private Sub Worksheet_Change(ByVal определенный диапазон ячеек. в В1 появится: писал человек явно — ячейка с
Как вводить даты и время в Excel
и праздники. Для можно выбрать - (12:30) ответ, но к > 1 Then.
Копирование только форматирования ячеек |
Нажмите кнопку |
приводим ссылку на |
Все форматы |
Excel предлагает несколько форматов |
автоподбор ширины для |
Target As Range) |
Напимер с А5 |
дата, но если неленивый…. как минимум датой, второй - такого расчета лучше как именно копировать_Boroda_ сожалению ваша формула Exit Sub IfИспользование начальную дату вНажмите кнопкузаполнить только форматирования оригинал (на английском . Здесь Вы также для ввода временных
столбца B, чтобы If Target.Cells.Count = до А100? (просто
ячейка В1 пуста
половину кода легко тип отсчета дней воспользоваться функцией выделенную дату:
: Если именно «видим»
дает следующий результат: Not Intersect(Target, Range(«A2:A10»)) первой ячейке, чтобызаполнить только форматирования.
языке) .
Быстрый ввод дат и времени
сможете найти много данных. Если Вы дата умещалась в 1 And Target.Column в первых строках (т.е. первый раз). можно выкинуть, а недели (самый удобныйЧИСТРАБДНИЕсли Вам часто приходится
(а по факту8:00 10:30 02:30 Is Nothing Then заполнить ячейки с.Копирование содержимого ячейки безВыполните одно из указанных всего интересного. примените такой формат,
ячейке End With = 7 And идет шапка таблицы…)Не знаю это то и больше…. — 2).
(NETWORKDAYS) вводить различные даты в ячейке все11:30 15:00 03:70 With Target StrVal последующей датами Скопируйте содержимое ячейки, включая форматирования
Как Excel на самом деле хранит и обрабатывает даты и время
ниже действий.Если ни один из Excel автоматически преобразует End If Next Target.Row > 1Димит ли нужно. [image]http://kvvmku.ru/forum/images/smiles/d_smily_tooth.gif[/image]Поскольку время в Excel,из категории в ячейки листа, равно находится число17:30 23:00 05:70
= Format(.Text, «000000»)Нажмите кнопку формул без форматирования
ЩелкнитеВ столбце введите первые вариантов Вас так введенную дату (или cell End SubМожет Then Target.Offset(0, -1): ну можно добавитьPrivate Sub Worksheet_Change(ByValШтурмaн как было сказаноДата и время то гораздо удобнее 1230), то поставьтегде b1-a1 дает If IsNumeric(StrVal) AndЗаполнить по днямЩелкните
Заливка без форматирования несколько букв для и не устроил,
- время) в порядковое ли кто-то подсказать, = Date End на ограничение по Target As Range): Ну ну, интересно выше, такое же
- . В качестве аргументов это делать с формат ячейки 00:00 2:30 Len(StrVal) = 6.Заливка без форматирования. записи. то можно создать
Количество дней между двумя датами
число (долю суток) как его модернизировать, If End SubНу строкам, типа: If Target.Address = что-же там можно число, как дата, этой функции необходимо
Количество рабочих дней между двумя датами
помощью всплывающего календаря:А вот еслигде b2-a2 дает Then Application.EnableEvents =Используйте имя начального дня.Примечания: Если при вводе знаков пользовательский числовой формат. и применит к чтобы при удалении обьяснять тут особоIf Target.Column = «$A$1» Then If выкинуть ? но только дробная указать начальную иЕсли нужно, чтобы в
Вам действительно нужно 3:70 вместо 3:30 False dDate = недели в первойПримечание: совпадает с существующей Его создать достаточно ячейке формат значения из колонки не чего 1 And Target.Row Target.Offset(0, 1).Value =dlaptev его часть, то конечную даты и ячейке всегда была преобразовать во время,где b3-a3 дает DateValue(Left(StrVal, 2) & ячейке для заполнения Узор заливки можно изменить,Чтобы быстро ввести те записи в этом легко, если вДаты
Количество полных лет, месяцев и дней между датами. Возраст в годах. Стаж.
А, удалялась иМакрос срабатывает на > 4 Then
Сдвиг даты на заданное количество дней
«» Then Target.Offset(0,: to Штурмaн с временем также ячейки с датами актуальная сегодняшняя дата то нужен Ваш 5:70 вместо 5:30 «/» & Mid(StrVal, ячейки с последующей выбрав два или
Сдвиг даты на заданное количество рабочих дней
же данные в столбце, Excel отображает качестве образца использовать(или Времени), установленные дата. А то изменение одной ячейкиSOV1 1) = DateТочно не ленивый возможны любые математические выходных (государственных праздников, — лучше воспользоваться файл. Конечно, вя бьюсь над 3, 2) & рабочие дни (исключая больше начальной ячеек,
Вычисление дня недели
несколько ячеек одновременно, меню список записей, встроенные числовые форматы. по умолчанию. получается если в в 7 столбце: Димит, еще раз End If End :-)
операции, как и больничных дней, отпусков, функцией новой теме. этим уже неделю, «/» & Right(StrVal,
Вычисление временных интервалов
суббота и воскресенье) прежде чем перетащить выделите все ячейки, уже используется в Чтобы создать пользовательскийНа рисунке ниже представлена колонке А (даже и строке 2 большое спасибо! Изначальная If End SubПроще установить MSCOMCT2.OCX с датой -
отгулов и т.д.):СЕГОДНЯvalenelena испробывал десятки вариантов 2)) .NumberFormat =Щелкните заливки маркера. Например введите нужные сведения столбце. числовой формат, выполните таблица вариантов ввода пустой) нажать клавишу и дальше. цель достигнута. Получилось
planetaexcel.ru
Быстрый ввод даты на форме в Excel
SOV1 на компе, и сложение, вычитание иПримечание(TODAY): все разобралась . и постоянно прихожу «dd/mm/yyyy» .Value =Заливка дней недели
если вы хотите и нажмите клавишиНажмите клавишу Стрелка вниз,
следующие действия: даты и времени, Del, то тожеМакрос должен находится следующее (может еще
: Спасибо, Димит, что не заморачиваться… т.д.: Эта функция появилась: Спасибо
к этим же CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate)))
.
заполнение ячеек последовательностью
CONTROL + RETURN. чтобы выбрать совпадающиеВыделите ячейку, к которой которые поддерживает Excel. происходит запись даты в модуле листа.
кому-нибудь пригодится): при откликнулись!Максимум чем можетНюанс здесь только один. в стандартном набореЕсли выделить ячейку сКак обычно, кому надо
результатам End If EndЗаливка ячеек и последующие
чисел, например 2, Этот метод работает
записи и нажмите
необходимо применить требуемый В левой колонке
в соответствующий столбец.
842-й появлении значения вПроблемму решили другим отличаться созданный собственноручно Если при сложении функций Excel начиная датой и установить
быстро — смотримспасибо With End If месяцы года с
4, 6, 8…, через все выделенные
клавишу RETURN. числовой формат.
показаны значения, которыеА нужно время: Спасибо!!! ))
столбце №7 в способом: «знакомые» помогли контрол, это внешним нескольких временных интервалов с 2007 версии. для нее
видео. Подробности иAexbro
If Not Intersect(Target,
помощью начального название
введите 2 и
ячейки.
Примечания:
Откройте диалоговое окно нужно вводить в от времени очищатьА это как? ячейках с 4 написать макрос вставки видом, а функционально, сумма получилась больше В более древнихОбщий формат нюансы — в: jakim, не все Range(«B2:B10»)) Is Nothing месяца в первой
4 из двухЕсли вы не хотите Формат ячеек ячейку, а в таблицу полностью. я просто совсем по 2000 и даты при нажатии все придет к 24 часов, то версиях сначала необходимо(правой кнопкой по тексте ниже: так просто как Then With Target
CyberForum.ru
Автоматический ввод текущей даты в Excel
ячейке ячеек начальную и интеллектуальная кнопка
Excel автоматически завершается только
и перейдите на правой — результатЗаранее спасибо! не в курсе в столбце №13 кнопки «Дата». Но одному… MSCOMCT2.OCX. :-)ИМХО Excel обнулит ее подключить надстройку ячейкеЕсли иметь ввиду российские
может показаться, посмотрите vVal = Format(.Value,Нажмите кнопку затем перетащите маркер
Параметры автозаполнения для тех записей, вкладку преобразования. Стоит отметить,gera_vip ((
в ячейках с этот вариант тоже
Например,дикое количество вот и начнет суммироватьПакета анализаФормат ячеек региональные настройки, то мой ответ Borode «0000») If IsNumeric(vVal)Заполнить по месяцам заполнения.
для отображения при которые содержат текстЧисло
что датам, вводимым: Помогли решить проблему!вот что мне 4 по 2000 интересный. таких строк: опять с нуля.
. Для этого идем- вкладка Excel позволяет вводить я видно не And Len(vVal) =
.Можно быстро заполнение ячеек перетаскивании маркера заполнения,
или сочетание текста. без указания года,Если кому-то пригодится:
надо сделать чтобы — справа отТолько объясните «чайнику»Me.ToggleButton1.Value = True Чтобы этого не в менюЧисло дату очень разными
совсем ясно поставил 4 Then Application.EnableEventsЧтобы заполнить ячейки с последовательностью даты, времени, его можно отключить. и чисел. Операции,В категории
присваивается текущий год,
Private Sub Worksheet_Change(ByVal у меня в
этих ячеек появляется — у нас
Me.ToggleButton2.Value = False
происходило, нужно применитьСервис — Надстройки
- способами — и свой вопрос. Мне = False .Value
последующей ежегодный шагом рабочие дни, месяцы
В меню которые содержат только
Все форматы
а именно выставленный Target As Range)
документе работало то, дата и больше макрос запускается кнопкой,Me.ToggleButton3.Value = False
к итоговой ячейке(Tools — Add-Ins)Общий
понимает их все: необходимо водить время = Left(vVal, 2) с помощью начальную
и годы. Например,Excel числа, даты илив поле
в настройках Вашей For Each cell что вы написали не изменяется.
а как подключить—————————— формат
и ставим галочку), то можно увидеть»Классическая» форма без разделителей и & «:» & дату в первой можно ввести понедельниквыберите пункт времени не завершена.Тип операционной системы. In Target If выше ?Private Sub Worksheet_Change(ByVal данный макрос?Me.ToggleButton43.Value = True37:30:55
напротив интересную картинку:3.10.2006 потом производить вычисления Right(vVal, 2) .NumberFormat ячейке в ячейке иПараметрыЭлементы, которые находятся ввведите необходимый кодЭто не все возможные cell <> «»Извините за откровенную Target As Range)И еще макросЯ уж не:Пакет анализаТо есть, с точкиСокращенная форма с этими данными. = «[h]:mm» EndНажмите кнопку затем заполнить ячейки. В разделе строке не включаются числового формата. В
варианты, которые поддерживает Then If Not
безграмотность в этом If Target.Column = «найти» перестает работать говорю, что такие
nika_adm(Analisys Toolpak) зрения Excel, 27.10.20123.10.06 А в вашем
If End WithЗаполнить по годам ниже или справа
средства разработки в список соответствующих нашем случае мы Excel. Но даже Intersect(cell, Range(«W9:W3000»)) Is вопросе. 7 And Target.Row при защите листа…. вещи в цикле
: Есть форма, требуется
. После этого в 15:42 = 41209,65417С использованием дефисов примере мне по End If Application.EnableEvents. Вторник, среда, четвергнажмите кнопку записей. введем: этих вариантов Вам Nothing Then With
Димит > 3 _Димит можно делать, но вводить даты -
Мастере функций вНа самом деле любую
3-10-6 прежнему необходимо вводить»:»
= True EndПримечание: и т.Изменить
Если вы не хотитеДДДД ДД.ММ.СС чч:мм:cc будет предостаточно. cell.Offset(0, -1) .Value: 1 откройте файл And Target.Row <
: Могу только посоветовать вот то, что надо найти компонент,
категории дату Excel хранитС использованием дроби
спасибо Sub
Узор заливки можно изменить,Выделите ячейку, содержащую начальнуюи снимите флажок к записям, которыеи нажмем
Некоторые варианты отображения дат, = Date .EntireColumn.AutoFit Excel
2000 Then If изменить макрос или можно было это
чтобы при активацииДата и время и обрабатывает именно3/10/6
AexbroДиапазоны A2:A10 и B2:B10 выбрав два или дату, время, деньПоказать параметры вставки интеллектуальные введите сравниваемое автоматически
ОК представленные в правой End With End2 нажмите клавиши
Target.Offset(0, 0).Value = защиту.
сделать единым блоком, текстбокса появлялся календарь,появится необходимая нам так — какВнешний вид (отображение) даты: _Boroda_, обе формулу замените на свои больше начальной ячеек, недели, месяц или кнопки для других записей,. колонке, могут отличаться. If End If Alt+F11 «да» Then IfЕсли Вы хотите где всем ToggleButton’ам затем, полсе выбора функция число с целой в ячейке может не работают области листа, куда прежде чем перетащить год.. можно отключить этотПользовательский числовой формат будет Это зависит от Next cell End3 в окне Target.Offset(0, 1).Value = воспользоваться моим кодом, присваивать False, а
даты, инфа сохраняласьЧИСТРАБДНИ и дробной частью.
быть очень разным
Aexbro будут подобным образом
заливки маркера. Например
Выделите ячейки, которые нужноExcel можно продолжить ряда параметр. В меню применен к ячейке. региональных настроек и Sub Project-VBAProject щёлкните 2 «» Then Target.Offset(0, то разместите его под ToggleButtonХХ_Click писать в текстбоксе(NETWORKDAYS) Целая часть числа (с годом или
CyberForum.ru
: _Boroda_, огромное спасибо
Иногда пользователю необходимо ограничить возможность ввода определенным шаблоном. Например, при вводе артикулов известно, что правильный артикул имеет длину 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)
- нажмите ОК.
Формула должна вводиться в одну строку. Не обращайте внимание на сообщение «
При вычислении Формула возникает ошибка. Продолжить?
». Нажмите кнопку
Да
(см.
Файл примера
).
Для информирования пользователя в случае ввода неверных данных, во вкладке
Сообщение для ввода
в поле
Сообщение
можно ввести информацию о формате артикула.
СОВЕТ
: Чтобы найти все ячейки на листе, к которым применена
Проверка данных
необходимо:
-
на вкладке
Главная
в группе
Редактирование
щелкните стрелку рядом с командой
Найти и выделить
; -
выберите в списке пункт
Проверка данных;
-
будут выделены все ячейки, которым применена
Проверка данных
.