Вводите только дату excel

Быстрый ввод даты и времени без разделителей

Если Вам часто приходится вводить даты и время в ячейки, то Вам должна понравиться идея писать их сокращенно, без точек-дробей-двоеточий — просто как число. Чтобы в заданном диапазоне ячеек листа, например, число 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, как их использовать.

Ввод и форматирование дат и времени в Excel

​Смотрите также​ раза на имени​​ 1) = Date​​ в модуле вашего​ только ссылку на​nika_adm​

​.​ (41209) — это​ без, месяц числом​ реально помогли​ вводиться даты и​ если вы хотите​ заполнить маркер заполнения​ чисел, комбинаций текст​​Excel​​Как видите все достаточно​ формата отображения даты​Весь курс: урок 1​ листа, где находится​ End If End​ листа. Он запускается​ нужный блок, и​: Установить на сомпе,​Про то, как это​ количество дней, прошедших​ или словом и​Aexbro​ время, соответственно.​

Ввод дат и времени в Excel

​ заполнение ячеек последовательностью​.​ и числа или​выберите пункт​ просто!​ и времени в​ |​ Ваша таблица​ If End If​ на событие изменения​ под ним Me.ToggleButtonХХ.Value​ MSCOMCT2.OCX​ правильно вычислять, лучше​

​ с 1 января​ т.д.) и задается​: _Boroda_, спасибо вопрос​Aexbro​ пропускает каждый день,​Примечание:​ формулы на основе​Параметры​В этом уроке мы​ настройках операционной системы.​​урок 2​​4 скопируйте код​ If Target.Column =​

​ листа, конкретно ячеки​ = True .​Возможно на Вашем​ почитать тут.​ 1900 года (взято​ через контекстное меню​ закрыт​: Здравствуйте. Есть таблица​ например Понедельник, среда,​ При выборе диапазона ячеек,​ шаблона, который можно​. В разделе​ научились настраивать формат​Работая с ячейками в​| урок 3​ и вставьте в​

​ 13 And Target.Row​ — А1.​На сколько это​ компе он уже​Поскольку одни сутки в​

​ за точку отсчета)​ — правой кнопкой​Wasilich​ в которой множество​ пятница, т. д.,​ которые вы хотите​ установить. Например можно​формулы и списки​

Формат даты и времени в Excel

​ отображения дат и​ Microsoft Excel, которые​ | урок 4​ основное поле редактора​ > 3 _​SOV1​ сократит код, как​ есть, тогда просто​ системе отсчета даты​ до текущей даты.​ мыши по ячейке​: А чё никто​

​ ячеек с временными​ введите Понедельник и​ повторить в смежных​​ элем1 ввод в​​щелкните​​ времени в Microsoft​​ содержат дату или​​ | урок 5​​5 сохраните файл​ And Target.Row <​

​: Димит, ваш макрос​​ думаешь? И это​​ добавить элемент к​ Excel принимаются за​

​ А дробная часть​ и далее​ не предложил макрос?​ значениями.Как ускорить процесс​​ среда из двух​​ ячеек, можно перетащить​​ ячейку и затем​​Автозаполнение​ Excel, а также​ время, Вы имеете​Думаю, из прошлого урока​ и закройте редактор​​ 2000 Then If​​ очень даже оказался​ не единственный момент​ инструментам.​

​ единицу (см.выше), то​ (0,65417), соответственно, доля​Формат ячеек​ Тем более, что​ ввода времени (без​ ячеек начальный и​ маркер заполнения вниз​ заполнить ячейки ниже​и снимите флажок​ разобрали несколько полезных​ возможность применять к​ Вам уже известно,​

1. ​ VBA​ Target.Offset(0, 0).Value =​ нужным, только не​
2. ​ в этом коде.​​Штурмaн​​ для вычисления даты,​ от суток (1сутки​​(Format Cells)​​ ТС сам пытался​
3. ​ ввода разделителей) с​​ затем перетащите маркер​​ один столбец или​​ или справа от​​Автозавершение значений ячеек​ вариантов их ввода​ ним различное форматирование.​ что даты и​​6 измените ячейку​​ «да» Then If​​ хватило нам тяму​​ Сама инициализация формы,​
4. ​: Если можно, то​ отстоящей от заданной​

​ = 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. ​ 1) = Date​Помогите, плиз!​ вкючая пустые строки).​

   ​ где его взять​ к дате это​ практических вывода:​ Например​stria​ вводим 1230 видим​ время в ячейки,​

2. ​ на нескольких строках.​ текста и номера​ повторить в смежных​ 7-ми функциях Excel,​

   ​ или только месяц​​ отсчета которых принято​

   • ​842-й​ End If End​Димит​ Я думаю, что​ и как установить?​ число.​Во-первых, Excel не умеет​16:45​

   • ​: Здравствуйте!​ (12:30), в В1​ то Вам должна​Интеллектуальная кнопка​

   • ​ или начальный номер.​ ячеек.​ которые позволяют извлекать​ и год, или​ считать некое​: Здравствуйте, все сделал​​ If End If​​: Замените строку​​ раз в 10​​dlaptev​​Эту операцию осуществляет функция​​ работать (без дополнительных​​По желанию можно дополнительно​ ​Решил сделать в​​ вводим 1700 (видим​​ понравиться идея писать​

Быстро ввести столбец повторяющихся элементов в несколько ячеек одновременно

1. ​Параметры автозаполнения​Выделите ячейки, которые нужно​Выделите ячейки, которые нужно​ нужные параметры из​

2. ​ же только время.​0 января 1900 года​​ по вашей инструкции​

   ​ End Sub​​If Target.Address =​ легко можно сократить…Согласен​: http://www.yandex.ru/yandsearch?text=MSCOMCT2.OCX​РАБДЕНЬ​ настроек) с датами​ уточнить количество секунд​ Excel подсчет налета​ 17:00) в С1​ их сокращенно, без​нажмите кнопку, а​

3. ​ заполнить маркер заполнения​​ заполнить маркер заполнения​ ​ значений дат и​Получить доступ ко всем​. К счастью, в​

   ​ и получилось =)))​	​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​ календарике.​: Я когда столкнулся​ или назад относительно​ ;)​

1. ​И, наконец, никто не​Вопрос в следующем:-Как​ задать формат ячейкам​

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

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

3. ​ запрещает указывать дату​​ без ввода даты​ ​ А1 и В1​ число 250699 автоматически​Скопируйте все содержимое ячейки,​

   ​ повторить в смежных​	​ повторить в смежных​
   ​ Excel.​Формат ячеек​ время, которые могут​	​ новую тему, спрошу​​ следующее:​​ 1 — это​
   ​: Всем доброго времени​	​ проблемой сделал собственну​​ нужное количество рабочих​​ временем в Excel​
   ​ и время сразу​ excel мог определить​	​ «0/:00», но как​​ превращалось в 25.06.1999,​​ включая формул и​

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

Быстро ввести серию дат, времени, рабочие дни, месяцы и годы

​ а 1125 в​ форматирования, без повторяющихся​ маркер заполнения вниз​ маркер заполнения вниз​Примечание:​Дата​ различных форматах. В​Нашел код, который​ появлении значения в​ «А»​

1. ​Такая вот задача:​ приложение).​ выходных суббот и​ математические операции. Именно​

2. ​ то есть ​т.е Взлет 23:00,​​ ячейке С1 эти​

   ​ 11:25.​​ серии​ один столбец или​ один столбец или​Мы стараемся как​приведены встроенные форматы​ этом уроке Вы​ добавляет дату.​ 7-ом столбце в​Димит​при выборе значения​

3. ​Так как если​​ воскресений и государственных​ ​ потому, что на​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​Димит​

​ сориентировать макрос на​​: При изменении А1​dlaptev​Первый аргумент этой функции​ субботы с воскресеньями​кнопку мыши, то​ вводим 1230 видим​
​: _Boroda_, Спасибо за​ Date If Target.Cells.Count​Заливка без форматирования​.​Копирование только форматирования ячеек​ Для удобства также​

​ можно воспользоваться категорией​​ формат.​ ‘Дата .EntireColumn.AutoFit ‘выполняем​

excelworld.ru

Основные принципы работы с датами и временем в Excel

Видео

​: Private Sub Worksheet_Change(ByVal​ определенный диапазон ячеек.​ в В1 появится​: писал человек явно​ — ячейка с​

Как вводить даты и время в Excel

​ и праздники. Для​ можно выбрать -​ (12:30)​ ответ, но к​ > 1 Then​.​

​ дата, но если​ неленивый…. как минимум​ датой, второй -​ такого расчета лучше​ как именно копировать​_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 = True​37: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.2012​3.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 End​2 нажмите клавиши​
​ Target.Offset(0, 0).Value =​ защиту.​
​ сделать единым блоком,​ текстбокса появлялся календарь,​появится необходимая нам​ так — как​Внешний вид (отображение) даты​: _Boroda_, обе формулу​ замените на свои​ больше начальной ячеек,​ недели, месяц или​ кнопки​ для других записей,​.​ колонке, могут отличаться.​ If End If​ Alt+F11​ «да» Then If​Если Вы хотите​ где всем ToggleButton’ам​ затем, полсе выбора​ функция​ число с целой​ в ячейке может​ не работают​ области листа, куда​ прежде чем перетащить​ год.​.​ можно отключить этот​Пользовательский числовой формат будет​ Это зависит от​ Next cell End​3 в окне​ Target.Offset(0, 1).Value =​ воспользоваться моим кодом,​ присваивать False, а​
​ даты, инфа сохранялась​ЧИСТРАБДНИ​ и дробной частью.​
​ быть очень разным​

​Aexbro​​ будут подобным образом​
​ заливки маркера. Например​
​Выделите ячейки, которые нужно​Excel можно продолжить ряда​ параметр. В меню​ применен к ячейке.​ региональных настроек и​ Sub​ Project-VBAProject щёлкните 2​ «» Then Target.Offset(0,​ то разместите его​ под ToggleButtonХХ_Click писать​ в текстбоксе​(NETWORKDAYS)​ Целая часть числа​ (с годом или​

CyberForum.ru

​: _Boroda_, огромное спасибо​

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

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

Как ввести дату в Excel

Пользователь может ввести дату в электронную таблицу самыми разными методами и в различных форматах. Например, можно записать ее как 1 января 2020, а можно – 1.01.2020. Независимо от того, в каком формате указать дату, программа автоматически определит, что пользователь хочет записать ее. Очень часто программа самостоятельно форматирует значение, исходя из формата, установленного в Windows, но в некоторых случаях возможно форматирование в том виде, котором указал пользователь.

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

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

Если в этом есть надобность, пользователь с легкостью может менять вид представления ячейки, которая записана, как та, которая содержит дату. Для этого можно воспользоваться тем же самым окном «Формат ячеек», которое было описано выше.

Также его можно вызвать с помощью комбинации клавиш Ctrl + 1.

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

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

Вставка текущей даты и времени

Есть два варианта вставки текущего времени и даты в Эксель: статический и динамический. Первый служит отметкой времени. Второй же вариант позволяет держать всегда актуальную дату и время в ячейке.

Что можно сделать для того, чтобы поставить всегда актуальную метку времени? Для этого надо использовать те же формулы, что и ниже. Они всегда будут показывать актуальную дату и время.

Если надо установить статическое время, то можно воспользоваться специальными инструментами эксель, которые вызываются с помощью горячих клавиш:

1. Ctrl + ; или Ctrl + Shift + 4 – эти горячие клавиши автоматически вставляют в ячейку ту дату, которая актуальна на момент, когда человек нажимает на эти кнопки.
2. Ctrl + Shift + ; или Ctrl+Shift+6 – с их помощью можно записать текущее время.
3. Если же нужно вставить и время, и дату, актуальные на данный момент, необходимо сначала нажать первую комбинацию клавиш, после чего нажать на пробел, и вызвать вторую комбинацию.

Какие конкретно клавиши использовать? Все зависит от раскладки, которая активирована на данный момент. Если сейчас стоит английская раскладка, то используется первая комбинация, если же русская – вторая (то есть, так, которая следует непосредственно за словом «или»).

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

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

Как поставить неизменную отметку времени автоматически (формулами)

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

Если же потом, основываясь на этих данных вы собираетесь что-то еще делать и использовать получившийся результат в формулах, то лучше тогда использовать сразу две функции: =ТДАТА()-СЕГОДНЯ()

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

1. Обновление данных не происходит постоянно. Чтобы дата и время сменились на актуальную, необходимо закрыть окно, предварительно его сохранив, а потом снова его открыть. Также обновление происходит, если включить макрос, который настроен на эту функцию.
2. В качестве источника данных эта функция использует системные часы. Поэтому если они настроены неправильно, формула также будет плохо работать. Следовательно, рекомендуется поставить автоматическое определение даты и времени из интернета.

А теперь представим такую ситуацию. У нас есть таблица с перечнем товаров, расположенных в колонке А. Непосредственно после их отправки заказчику необходимо вводить в специальной ячейке значение «Да». Задача: автоматически зафиксировать время, когда человек написал слово «Да» и при этом защитить его от изменения.

Какие действия можно предпринять, чтобы достичь этой цели? Например, можно попробовать воспользоваться функцией ЕСЛИ, в которой также будет содержаться эта же функция, но с данными, зависящими от значения другой ячейки. Гораздо проще это продемонстрировать на примере. Формула будет выглядеть так: =ЕСЛИ(B2=»Да»; ЕСЛИ(C2=»»;ТДАТА(); C2); «»)

Расшифруем эту формулу.

• B – это колонка, в которой нам надо записывать подтверждение доставки.
• C2 – это та ячейка, в которой будет выводиться отметка времени после того, как мы запишем в ячейку B2 слово «Да».

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

Если же нужно, чтобы критерий был «если содержится хотя бы какое-то значение», то тогда нужно использовать в условии оператор «не равно» <>. В таком случае формула будет выглядеть так: =ЕСЛИ(B2<>»»; ЕСЛИ(C2=»»;ТДАТА(); C2); «»)

Эта формула работает следующим образом: сначала проверяется, есть ли хоть какое-то содержимое в ячейке. Если да, то запускается вторая проверка. Дальше последовательность действий остается той же самой.

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

Как автоматически заполнять даты в Excel

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

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

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

1. Использовать стандартный маркер автозаполнения так, как было описано выше. После того, как программа автоматически закончит все, нужно нажать на значок с параметрами автозаполнения и выбрать подходящий метод.
2. Перетащить маркер автозаполнения с помощью правой кнопки мыши, и когда вы отпустите ее, автоматически появится меню с настройками. Выбираете тот способ, который вам нужен, и радуетесь.

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

Как поставить текущую дату на колонтитул

Колонтитул – это область документа, которая является как бы универсальной для всей книги. Туда могут быть занесены различные данные: имя человека, который составил документ, день, когда это было сделано. В том числе, поставить актуальную дату. Выполняйте следующую инструкцию:

1. Откройте меню «Вставка», с которого вызовите меню настройки колонтитулов.
2. Добавьте те элементы колонтитулов, которые вам нужны. Это может быть как обычный текст, так и дата, время.

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

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

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

Помогла ли Вам статья?