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

Номер недели по дате функцией НОМНЕДЕЛИ

Потребность знать номер рабочей недели для заданной даты (или группы дат) весьма востребованная вещь в управленческом учете. Понедельные отчеты, еженедельный контроль выполнения плана, недельная сетка вещания в рекламе – все это требует умения определять номер рабочей недели для заданной даты. Задача, на первый взгляд, простая, но (как всегда) есть несколько весьма существенных нюансов.

Во-первых, в разных странах отсчет начала и конца самой недели – различаются. У нас в России днем отсчета недели принят понедельник, а в других странах (например, США и Израиле) – воскресенье. 

Во-вторых, вопрос — какую неделю считать первой? На сегодняшний момент существуют как минимум два основных варианта с разной логикой. Рассмотрим их последовательно.

Способ 1. Стандарт ГОСТ ИСО 8601-2001 и функция НОМНЕДЕЛИ.ISO

Первой рабочей неделей года считается та, на которую выпадает первый четверг года (или 4 января, если хотите). Здесь логика проста. Первая неделя – это та, на которую пришлось больше трех дней (больше половины недели) из наступившего года. Некоторое неудобство в том, что в году получается когда 52, а когда 53 рабочих недели. Плюс ко всему 1 января может запросто оказаться 52 неделей предыдущего года.

Но именно этот вариант официально принят в России с 2002 года как государственный и остается им на данный момент (см. ГОСТ ИСО 8601-2001). Чтобы посчитать номер недели по дате по такой системе, можно использовать вот такую формулу:

=ОТБР(ОСТАТ(A1+3-ДЕНЬНЕД(A1;2);365,25)/7+1)

=TRUNC(MOD(A1+3-WEEKDAY(A1;2);365,25)/7+1)

В Excel 2013 функцию для расчета номера недели по ISO добавили в стандартный набор – она называется НОМНЕДЕЛИ.ISO (WEEKNUM.ISO)

Способ 2. Неделя с 1-м января и функция НОМНЕДЕЛИ (WEEKNUM)

В этом случае первой неделей года считается та, на которую попадает 1 января. Здесь также возникает сложность в том, что в году может оказаться 52 или 53 недели и, плюс ко всему, 1 января может выпасть на воскресенье, т.е. шесть последних дней года могут оказаться уже в неделе с номером 1, что затрудняет отчетность. Тем не менее, если такой способ нумерации вам нужен, то его можно реализовать функцией НОМНЕДЕЛИ (WEEKNUM), появившейся в Excel начиная с 2007 года. Синтаксис этой функции таков:

=НОМНЕДЕЛИ(Дата; Тип_отсчета)

где

• Дата — ячейка с датой, для которой нужно определить номер недели
• Тип_отсчета — число (1, 2 или 3), обозначающее тип нумерации дней в неделе. Вариант 1 — американский (неделя начинается с воскресенья), вариант 2 — наш.

Ссылки по теме

• Основные принципы работы с датами и временем в Microsoft Excel
• Номер квартала по дате
• Вычисление возраста или стажа в годах, месяцах, днях
• Выпадающий календарь для удобного ввода даты из надстройки PLEX

В этой статье описаны синтаксис формулы и использование функции НОМНЕДЕЛЬ
в Microsoft Excel.

Описание

Возвращает номер недели для определенной даты. Например, неделя, на которую приходится 1 января, считается первой неделей года, и для нее возвращается число 1.

Для этой функции могут использоваться две разные системы.

• Система 1    Неделя, на которую приходится 1 января, считается первой неделей года, и для нее возвращается число 1.

• Система 2    Неделя, на которую приходится первый четверг года, считается первой неделей, и для нее возвращается число 1. Эта методика определена в стандарте ISO 8601, который широко используется в Европе для нумерации недель.

Синтаксис

НОМНЕДЕЛИ(дата_в_числовом_формате;[тип])

Аргументы функции НОМНЕДЕЛИ описаны ниже.

• Дата_в_числовом_формате     Обязательный. Дата, по которой определяется неделя. Даты должны вводиться с использованием функции ДАТА или как результат вычисления других формул и функций. Например, для указания даты 23 мая 2008 г. воспользуйтесь выражением ДАТА(2008,5,23). Если даты вводятся как текст, это может привести к возникновению проблем.

• Тип     Необязательный. Число, которое определяет, с какого дня начинается неделя. Значение по умолчанию — 1.

Тип	Начало недели	Система
1 или опущен	Воскресенье	1
2	Понедельник	1
11	Понедельник	1
12	Вторник	1
13	Среда	1
14	Четверг	1
15	Пятница	1
16	Суббота	1
17	Воскресенье	1
21	Понедельник	2

Замечание

• В приложении Excel даты хранятся в виде последовательных чисел, что позволяет использовать их в вычислениях. По умолчанию дате 1 января 1900 г. соответствует число 1, а 1 января 2008 г. — число 39 448, поскольку интервал между датами составляет 39 448 дней.

• Если Serial_number находится вне диапазона для текущего базового значения даты, #NUM! возвращается ошибка.

• Если Return_type находится вне диапазона, указанного в таблице выше, #NUM! возвращается ошибка.

Пример

Скопируйте образец данных из следующей таблицы и вставьте их в ячейку A1 нового листа Excel. Чтобы отобразить результаты формул, выделите их и нажмите клавишу F2, а затем — клавишу ВВОД. При необходимости измените ширину столбцов, чтобы видеть все данные.

Данные
09.03.2012
Формула	Описание	Результат
=НОМНЕДЕЛИ(A2)	Номер недели в году, на которую припадает дата 09.03.2012, если неделя начинается в воскресенье (по умолчанию).	10
=НОМНЕДЕЛИ(A2;2)	Номер недели в году, на которую припадает дата 09.03.2012, если неделя начинается в понедельник (второй аргумент, т. е. 2).	11

Есть ли способ получить номер недели по заданной дате или извлечь диапазон дат из определенного номера недели и года в Excel? Для решения этой задачи вам могут помочь следующие формулы.

Преобразование номера недели в дату с помощью формул

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

---

Преобразование номера недели в дату с помощью формул

Предположим, у меня есть случайный номер года и недели, которые равны 2015 и 15 на листе, как показано на следующем снимке экрана, и теперь я хочу узнать конкретные даты с понедельника по воскресенье по этому заданному номеру недели.

Чтобы рассчитать диапазон дат по конкретному номеру недели, вы можете использовать следующие формулы:

1. Выберите пустую ячейку, вы вернете дату начала (в нашем случае мы выбираем ячейку B5), введите формулу: =MAX(DATE(B1,1,1),DATE(B1,1,1)-WEEKDAY(DATE(B1,1,1),2)+(B2-1)*7+1), и нажмите Enter ключ. Смотрите скриншот ниже:

2. Выберите другую пустую ячейку, вы вернете дату окончания (в нашем случае мы выбираем ячейку B6), введите =MIN(DATE(B1+1,1,0),DATE(B1,1,1)-WEEKDAY(DATE(B1,1,1),2)+B2*7), и нажмите Enter ключ. Смотрите скриншот ниже:

Примечание. В обеих формулах выше B1 содержит год и B2 — указанный номер недели, вы можете изменить аргументы по своему усмотрению).

3. Как видите, обе формулы возвращают числа вместо дат. Продолжайте выбирать оба результата расчета и нажмите Главная > Формат номера коробка> Короткое свидание чтобы заменить числа на даты. Смотрите скриншот ниже:

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

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

1. Выберите пустую ячейку, вы вернете номер недели, введите эту формулу: = WEEKNUM (B1,1)и нажмите клавишу Enter. Смотрите скриншот:

Ноты:

(1) В приведенной выше формуле B1 содержит дату, которую вы хотите использовать.

(2) Если вам нужно вернуть номер недели с даты, которая начинается в понедельник, примените следующую формулу: = WEEKNUM (B1,2).

---

Статьи по теме:

Как посчитать количество конкретных дней недели между двумя датами в Excel?

Как добавить / вычесть дни / месяцы / годы на сегодняшний день в Excel?

НОМНЕДЕЛИ (функция НОМНЕДЕЛИ)

​Смотрите также​Просто и без​ Сергей сразу же​​ европейскому стандарту.»​​stulmart​

Описание

​ нужно чтобы ниже​ — dtmTemp) ​ цикла нужно указать​ файлы 1.PNG (14.04​ год — year(date).​ или 53 недели​ вещь в управленческом​ номер​

​ у нас на​Но способ, который был​Скачать последнюю версию​

• ​1​​В этой статье описаны​ извратов:)​ правильно развенчал его​openid.mail.ru/mail/vlad3622340​: Nic70y, скажите пожалуйста,​

• ​ был прописан интервал​​ 7 + 1​ х = номер​ КБ)​kolyambus55rus​ и, плюс ко​ учете. Понедельные отчеты,​«1»​ листе отображается и​ представлен выше, предусматривает​ Excel​

Синтаксис

​16​

​ синтаксис формулы и​Diana​

• ​ примером 01.01.2010 -​​: Добрый день всем!​ если я на​ дат этой недели​ End If End​ первой строки с​KuklP​: По поводу месяца:​ всему, 1 января​ еженедельный контроль выполнения​. При установке значения​ дата, и день​ преобразование даты в​Существуют несколько способов отобразить​Суббота​ использование функции​

• ​: Интересно, что-то ZVI​​ нулевая неделя.​Пример во вложении.​ следующей неделе, например​ (1 неделя -​ If Next xЕсли​

​ данными которые обрабатываем)​	​: kolyambus55rus, кто Вам​	​Dim thisDate As​
​ может выпасть на​	​ плана, недельная сетка​	​«3»​
​ недели одновременно.​	​ день недели. Существует​	​ день недели по​
​1​	​НОМНЕДЕЛИ​	​ не отвечает.​
​openid.mail.ru/mail/vlad3622340​	​Serge​	​ 22 числа поставлю​
​ 1.01.13 — 06.01.13).​	​ кто то будет,​	​Cells( x, 10)​
​ сказал, что на​	​ Date Dim thisMonth​	​ воскресенье, т.е. шесть​
​ вещания в рекламе​	​нумерация так же​	​Более того, если в​
​ ли вариант, чтобы​	​ введенной дате, начиная​	​17​
​в Microsoft Excel.​	​Он обычно всегда​	​: Просто у меня​
​: Vlad, 01.012010, это​	​ «нет» в той​	​Pelena​

Замечание

• ​ как и я,​ = MonthName(Month(Cells( x,​ форуме по Эксель​ As Integer thisDate​ последних дней года​ – все это​ будет происходить с​ ячейке изменить значение​ оба эти значения​ от форматирования ячеек​Воскресенье​Возвращает номер недели для​ находит решения не​

• ​ перед глазами календарик​ какая неделя?​ ячейке, то будет​: Была похожая тема​ искать, думаю пригодиться.​

• ​ 8).Value))​ уместно выкладывать картинки?​ = Worksheets(«1».Cells(1 +​ могут оказаться уже​ требует умения определять​

Пример

​ понедельника, но в​ даты, то соответственно​ выводились на листе?​ и заканчивая применением​1​ определенной даты. Например,​ в стандартных ситуациях​ в Excel на​Inter_E​ вычисляться уже следующая​Hugo​Всем большое спасибо, редко​Vitallic​

​- офигенно удобно!​
​ i, thisMonth =​
​ в неделе с​	​ номер рабочей недели​	​ этом случае понедельнику​
​ автоматически изменится и​	​ То есть, если​ функций. Давайте взглянем​21​ неделя, на которую​ :)​	​ любой вводимый год​
​: ..ответ​	​ среда, т.е. 28.03​: У меня кстати​ найдешь такой форум​: Можно почитать Вокенбаха​ А так не​ Month(thisDate) Worksheets(«1».Cells(1 +​	​ номером 1, что​

support.office.com

Установка дня недели по дате в Microsoft Excel

​ для заданной даты.​ будет присвоен порядковый​ день недели. Таким​ в одной ячейке​ на все существующие​Понедельник​ приходится 1 января,​Z​ с номерами всех​конечно читал, но​ ?​ НОМНЕДЕЛИ() не работает…​ где тебе сразу​ (указаную выше книгу),​ проще, одной строкой:​

​ i, 10) =​ затрудняет отчетность. Тем​

Отображение дня недели в Экселе

​ Задача, на первый​ номер​ образом, меняя дату​ мы вводим дату,​ варианты выполнения указанной​2​ считается первой неделей​: 1 — «*Для​ недель.​ не полностью все​Che79​И кстати -​ помогут!​

Способ 1: применение форматирования

​ еще Б.Джелен -​MsgBox MonthName(Month([a1]))​ thisMonthНе получается.) Извините​ не менее, если​ взгляд, простая, но​«0»​ можно узнавать на​ то в другой​ операции в Экселе,​В приложении Excel даты​ года, и для​

1. ​ этой функции могут​Я нашёл закономерность​ детали.​: Другой день​ эти номера недель​

   

2. ​p.s. 29 декабря​ Застосування VBA і​еще:​ за тупость, я​​ такой способ нумерации​​ (как всегда) есть​

   
3. ​.​ какой день недели​​ должен выводиться день​​ чтобы пользователь мог​ хранятся в виде​ нее возвращается число​ использоваться две разные​​ для № первой​​На мобильном телефоне​=ОСТАТ(A1+1-СЕГОДНЯ();7)+СЕГОДНЯ()​​ тоже бывает по​​ 2014 года распознала​​ макросів у Excel.​​MsgBox format([a1], «MMMM»)​ только учусь…​

   ​ вам нужен, то​

   ​ несколько весьма существенных​Аргумент​​ она будет приходиться.​​ недели. Да, такой​

   

4. ​ выбрать самый лучший​ последовательных чисел, что​ 1.​ системы.​ недели, слепил по​ вроде правильно показывает.​В A1 -​ разному считаются.​ как 1-я неделя​

​Лично я рекомендовал​​?​​Vitallic​ его можно реализовать​​ нюансов.​​«Тип»​Урок:​

​ вариант существует. Его​

​ из них для​ позволяет использовать их​Для этой функции могут​Система 1 Неделя,​

​ ней формулу и​​ А он как​ выпадающий список с​

Способ 2: использование функции ТЕКСТ

​_Boroda_​ (что правильно) а​ бы в таком​в а1 -​: Попробуйте:​ функцией НОМНЕДЕЛИ (WEEKNUM),​Во-первых, в разных странах​не является обязательным.​Мастер функций в Экселе​ можно осуществить при​ конкретной ситуации.​ в вычислениях. По​ использоваться две разные​ на которую приходится​ для очистки совести​ узнает?​​ номерами дней недели​​: как-то так​ 30 и 31​ порядке:​ дата.​sub tt ()​

1. ​ появившейся в Excel​ отсчет начала и​ Но, если его​Имеется ещё один оператор,​ помощи формулы​​Прежде всего, посмотрим, как​​ умолчанию дате 1​ системы.​

   

2. ​ 1 января, считается​​ протестировал её всеми​​Просто я обрабатываю​​ (1-пн, 2-вт…)​​jakim​ как 53. :?:​​1. Вокенбах​​kolyambus55rus​

   

3. ​ Dim x% ,​​ начиная с 2007​​ конца самой недели​ опустить, то считается,​ который может выводить​ТЕКСТ​ при помощи форматирования​

   ​ января 1900 г. соответствует​

   ​Система 1​​ первой неделей года,​​ годами с 2009​ базу дат в​Nic70y​: Может так?​k61​2. Джелен​: конечно проще.) Спасибо!​ lr% lr =​ года. Синтаксис этой​ – различаются. У​ что значение аргумента​

   ​ день недели по​​. В этом случае​​ ячеек можно отобразить​ число 1, а​    Неделя, на которую приходится​ и для нее​ по 2040 -​ 500 000 строк​​: нет 21.03​​jakim​​: Сократим:​​Юрий М​

   ​Представляю ваше возмущение,​ ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row for​​ функции таков:​​ нас в России​

   

4. ​ равно​ заданной дате. Это​ нужное нам значение​ день недели по​ 1 января 2008​ 1 января, считается​ возвращается число 1.​ всё правильно считает.​Здесь наверно мое​stulmart​

​: Можно и так.​Sub www() Dim​: Загляните ещё​ я сам, когда​ x = 1​=НОМНЕДЕЛИ(Дата; Тип_отсчета)​ днем отсчета недели​«1»​ функция​

​ будет выводиться в​​ введенной дате. Данный​

Способ 3: применение функции ДЕНЬНЕД

​ г. — число 39 448,​ первой неделей года,​Система 2 Неделя,​Синтаксис попытался описать​ быстрое решение ето​​: Nic70y, а нужно​​Lans​ x&, lr& lr​KuklP​ кто то делает​ to lr step​где​ принят понедельник, а​, то есть, неделя​ДЕНЬНЕД​

1. ​ указанную ячейку в​ вариант подразумевает преобразование​ поскольку интервал между​​ и для нее​​ на которую приходится​

   

2. ​ в сообщении в​​ просто отнимать цифру​​ чтобы была следующая​: Выкладываю свое решение.​​ = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row​​: Я просто показал,​​ глупости, так же​​ 1 Cells(1+x,10)=month(cells(1+x,8).value) Next​Дата​​ в других странах​​ начинается с воскресенья.​

   

3. ​. Правда, она выводит​ текстовом формате.​​ даты в указанное​​ датами составляет 39 448​ возвращается число 1.​

   ​ первый четверг (!!!-Z)​

   ​ 10:43.​​ «1»? Или как​​ среда, т.е. 28.03.2018​ Решил, что лучше​ For x =​ как можно извлечь​

   ​ реагирую.​​ x End sub​​- ячейка с​​ (например, США и​​ Так принято в​​ не название дня​​Записываем дату на любом​ значение, а не​ дней.​Система 2​​ года, считается первой​​Наверняка можно короче,​ то подругому можно​sboy​ сделать определение начала​ 2 To lr​​ название месяца из​​Vitallic​​китин​​ датой, для которой​ Израиле) – воскресенье.​ англоязычных странах, но​ недели, а его​ элементе листа. Затем​​ сохранение отображения обоих​​Если значение «дата_в_числовом_формате» находится​​    Неделя, на которую приходится​​ неделей, и для​ но это -​ настроить неделю?​: 22 на этой​ недели в одной​ Step 1 Cells(x,​​ даты без цикла.​​: , я так​

   ​: номер недели​​ нужно определить номер​​Во-вторых, вопрос — какую​ нам данный вариант​ номер. При этом​ выделяем любую пустую​ этих видов данных​​ вне диапазона для​​ первый четверг года,​ нее возвращается число​ к формулистам.​Serge​ неделе… а формула​ ячейке.​ 10) = MonthName(Month(Cells(x,​​ msgbox только для​​ понимаю ТС нужно​​=НОМНЕДЕЛИ(A2;2)номер месяца​​ недели​

   ​ неделю считать первой?​ не подходит. Поэтому​​ пользователь может устанавливать​​ ячейку. Щелкаем по​

   

4. ​ на листе.​ текущего базового значения​ считается первой неделей,​ 1.»​kim​: Если идти таким​​ от​​stulmart​

​ 8).Value)) ‘ Определяем​ примера. Переписывать код​ циклом пройтись по​=МЕСЯЦ(A2)​Тип_отсчета​ На сегодняшний момент​

​ в поле​​ с какого дня​ пиктограмме​

​Вводим любую дату, содержащую​ даты, возвращается ошибка​ и для нее​2 — Кто​: =СУММПРОИЗВ(—(ДЕНЬНЕД(СТРОКА(ИНДЕКС(A:A;ДАТА(ГОД(A1);1;1)):ИНДЕКС(A:A;A1));2)=7))+(ДЕНЬНЕД(A1;2)<>7)​ путём, то =НОМНЕДЕЛИ(дата;2)-1​Nic70y​: Помогите пожалуйста! Перерыл​ месяц Cells(x, 9)​ автора с картинки,​ таблице в которой​что мешает просто​- число (1,​ существуют как минимум​«Тип»​ (с воскресенья или​«Вставить функцию»​ данные о числе,​ #ЧИСЛО!.​ возвращается число 1.​ в какой стране-государстве,​Diana​ попроще будет?​, с 22.03 по​

​ все что можно,​

lumpics.ru

Номер недели по дате функцией НОМНЕДЕЛИ

​ = DateDiff(«ww», DateSerial(Year(Cells(x,​ знаете ли, ни​ 100 000 строк​ протянуть 2 колонки?​ 2 или 3),​ два основных варианта​ставим значение​ с понедельника) нумерация​, которая расположена возле​ месяце и годе,​Если значение «тип» не​ Эта методика определена​ какая локаль и​: Это я тоже​Serge​ 28.03 будет показывать​ никак не пойму​ 8).Value) — 1,​

​ времени, ни желания​с помощью msgbox​kolyambus55rus​ обозначающее тип нумерации​ с разной логикой.​«2»​ будет отсчитываться.​ строки формул.​ в ячейку на​ входит в диапазон,​

​ в стандарте ISO​ т.п. Недели ведь​ не пропущу :)​: Думаю правильней будет​ 28.03​ как вычислить дату​ 12, 31), _​

Способ 1. Стандарт ГОСТ ИСО 8601-2001 и функция НОМНЕДЕЛИ.ISO

​ не было.​ это будет утомительно​:​ дней в неделе.​ Рассмотрим их последовательно.​.​Выделяем ячейку для вывода​Происходит запуск окошка​ листе.​ указанный в таблице​ 8601, который широко​ тоже разные:-)​=ОКРУГЛ((A1-ДАТА(ГОД(A1-ДЕНЬНЕД(A1-1)+4);1;3)+ДЕНЬНЕД(ДАТА(ГОД(A1-ДЕНЬНЕД(A1-1)+4);1;3))+5)/7;0)​ определять день недели​stulmart​ по реальному дню​ Cells(x, 8).Value, vbFirstFourDays)​kolyambus55rus​ (долго) да и​китин​ Вариант 1 -​

​Первой рабочей неделей года​После выполнения указанных действий​ номера дня недели.​Мастера функций​Кликаем по ячейке правой​ выше, возвращается ошибка​ используется в Европе​Z.​openid.mail.ru/mail/vlad3622340​ и считать их​: sboy, ок спасибо.​ недели. Задача рассчитать​

​ + 1 ‘и​

​: В итоге, в​

​ как потом анализировать​я бы с​ американский (неделя начинается​ считается та, на​ щелкаем по кнопке​ Щелкаем по значку​​. Переходим в категорию​

Способ 2. Неделя с 1-м января и функция НОМНЕДЕЛИ (WEEKNUM)

​ кнопкой мыши. Запускается​ #ЧИСЛО!.​ для нумерации недель.​89623​: Добрый день!​ количество с начала​ Просто он написал​ дату звонка клиенту​ номер недели Next​ общий код макроса,​ (фильтровать?)​ удовольствием все на​ с воскресенья), вариант​ которую выпадает первый​«OK»​«Вставить функцию»​«Текстовые»​ контекстное меню. Выбираем​Скопируйте образец данных из​НОМНЕДЕЛИ(дата_в_числовом_формате;[тип])​Z​Извиняюсь, но по​ года. Правда никогда​ что 21.03​ если он не​ x End Sub​ для определения месяца​

​, не учел​

​ формула привязал, но​

• ​ 2 — наш.​​ четверг года (или​.​.​и из списка​
• ​ в нем позицию​​ следующей таблицы и​Аргументы функции НОМНЕДЕЛИ описаны​: Вариант для Inter_E​ вышеприведённым формулам уважаемых​ этим не заморачивался…​Inter_E​ пришел на консультацию.​ re:P.S. ГОСТ ИСО​

planetaexcel.ru

Узнать номер недели, месяца и года по дате в ячейке (VBA)

​ и недели, я​​ в предыдущем макросе​ строк с данными​
​kolyambus55rus​ 4 января, если​Как видим, в указанную​Снова открывается окошко​ операторов выбираем наименование​«Формат ячеек…»​​ вставьте их в​​ ниже.​ (Astana_KZ)- «=НОМНЕДЕЛИ(A2;21)».​ kim и Diana​Serge​
​: Добрый день!​ Звонить надо каждую​ 8601-2001, п.2.17 «…Первой​ вставил следующий код:​ что так много​ свыше 100 000​: Всем доброго времени​ хотите). Здесь логика​ ячейку выводится порядковый​Мастера функций​«ТЕКСТ»​
​.​ ячейку A1 нового​Дата_в_числовом_формате​

​Z.​​ Tailor получается, что​: Это я Владу​(прикр.файл)​ среду. В ячейке​ календарной неделей года​’ Определяем месяц​ строк, а потому​ и любая формула​ суток!!!​ проста. Первая неделя​ номер дня недели,​. На этот раз​.​Запускается окно форматирования. Перемещаемся​

​ листа Excel. Чтобы​​     Обязательный. Дата, по​
​97277​ сегодня 38-я неделя.​

​ писал, в ответ​​Хотел использовать формулу​
​ где должна ставиться​ считают первую неделю,​ Dim x&, lr&​тип переменных надо​ порядком увеличивает размер​Перерыл интернет (может​ – это та,​ который соответствует введенной​ переходим в категорию​Открывается окно аргументов функции​

​ во вкладку​​ отобразить результаты формул,​
​ которой определяется неделя.​lapink2000​Но по европейскому​ на​ =номнедели() для сегодняшнего​ отметка «пришел /​ содержащую первый четверг​ lr = ActiveSheet.Cells(Rows.Count,​

​ обьявить как long​​ файла.​
​ плохо рыл раз​
​ на которую пришлось​
​ дате. В нашем​«Дата и время»​

​ТЕКСТ​​«Число»​​ выделите их и​​ Даты должны вводиться​: На всякий случай,​ стандарту сегодня 37-я​=ЕСЛИ(ДЕНЬНЕД(ДАТА(ГОД(A2);1;1);2) :)​ числа, но что​ да» или «не​ текущего года». 29​ 8).End(xlUp).Row For x​

​ (или &)​​seregeyss​ не нашел), литературку​ больше трех дней​ случае это число​. Выбираем наименование​. Данный оператор призван​, если оно было​ нажмите клавишу F2,​ с использованием функции​ велосипед уже изобретен​
​ неделя, т.к. 1​Serge​ то неправильно показывает.​

​ пришел / нет»​​ декабря 2014 года​ = 2 To​Vitallic​: Sub Макрос1() ‘​ полистал, но так​ (больше половины недели)​«3»​«ДЕНЬНЕД»​ выводить указанное число​ открыто в какой-нибудь​ а затем —​ ДАТА или как​
​ — важно выбрать​

​ янв. 2010г. было​​: Не, это я​ В панели управлений​ — проставлено значение​ это 53-я неделя.​

​ lr Step 1​​: месяц меняйте на​ ‘ Макрос1 Макрос​

​ и не нашел​​ из наступившего года.​, которое обозначает среду.​и жмем на​ в выбранном варианте​ другой вкладке. Далее​ клавишу ВВОД. При​

​ результат вычисления других​​ нужную модель :)​ пятницей и это​ фигнню каку-то написал,​ все на Русском​
​ «нет». В другой​kolyambus55rus​ Cells(x, 10) =​
​ свой (не очень​
​ ‘ ‘ ActiveCell.FormulaR1C1​
​ метод определения по​
​ Некоторое неудобство в​
​Как и с предыдущей​ кнопку​

​ текстового формата. Он​​ в блоке параметров​
​ необходимости измените ширину​ формул и функций.​Diana​ была не первая,​ это совсем не​

​ стоит, не Америка,​​ ячейке нужно написать​:​ MonthName(Month(Cells(x, 8).Value)) ‘и​ ориентируюсь в русских​ = «=WEEKNUM(RC[-1])» Range(«C2».Select​
​дате в ячейке​ том, что в​ функцией, при изменении​«OK»​ имеет следующий синтаксис:​
​«Числовые форматы»​ столбцов, чтобы видеть​ Например, для указания​: Ну вот, скачала​
​ а 52-я неделя.​ продуктивно…​ метрическая система стоит.​

​ что-то вроде (если​​k61​ неделю dtmTemp =​ названиях ) и​ ActiveCell.FormulaR1C1 = «=MONTH(RC[-2])»​номеров недели, месяца​
​ году получается когда​ даты автоматически изменяется​.​=ТЕКСТ(Значение;Формат)​устанавливаем переключатель в​ все данные.​ даты 23 мая​ и приложила :)​Честно говоря, не​openid.mail.ru/mail/vlad3622340​ Вроде все норма.​

​ в той ячейке​​,Супер! Спасибо!​ DateSerial(Year(Cells(x, 8)), 1,​ добавте недостающие​ Range(«D2».Select ActiveCell.FormulaR1C1 =​ и года. Попадались​ 52, а когда​
​ номер дня недели​Производится переход в окно​В поле​ позицию​Данные​ 2008 г. следует​ (вдруг кому лень)​ могу найти отличия​: Вот такой монстр​Не могу разобраться​ «нет», то в​kolyambus55rus​

​ 1) Do While​​sub tt ()​ «=TEXT(RC[-3],»»ММММ»»» Range(«E2».Select ActiveCell.FormulaR1C1​ похожие но не​ 53 рабочих недели.​ в ячейке, в​ аргументов оператора​«Значение»​
​«Все форматы»​09.03.2012​ воспользоваться выражением ДАТА(2008;5;23).​

​ (92 КБ).​​ результатов этих формул​ получился. Зато универсально​ в чем проблема?​ этой ячейке -​:​
​ Weekday(dtmTemp, vbMonday) <>​ Dim x& ,​ = «=YEAR(RC[-4])» Range(«B2:E2».Select​
​ то.​
​ Плюс ко всему​

​ которой установлен оператор.​​ДЕНЬНЕД​

​нам нужно указать​​. В поле​Формула​ Если даты вводятся​Все говорим спасибо​ от НОМНЕДЕЛИ().​ для любой даты​Нужна, помощь. Спасибо​ дата каждой среды​k61​ 1 dtmTemp =​

​ lr& Dim a​​ Selection.AutoFill Destination:=Range(«B2:E100», Type:=xlFillDefault​Суть в том​ 1 января может​Урок:​. Он имеет следующий​
​ адрес той ячейки,​«Тип»​Описание​ как текст, это​ KL и сайту​Diana​ любого года:​ заранее!​ этого года). Что-то​,сейчас только заметил, вот​ dtmTemp + 1​ a = array(«січень»,»лютий»,»березень»)’​ Range(«B2:E100».Select End Sub​ что есть столбец​ запросто оказаться 52​Функции даты и времени​ синтаксис:​ в которой содержится​вручную вводим следующее​Результат​ может привести к​Тему, думаю, можно​: Прошу прощения, «техзадания»​=ЕСЛИ(ДЕНЬНЕД(ДАТА(ГОД(A2);1;1);2) См. пример​Serge​ вроде =ЕСЛИ(F5=»нет»; а​ такая картина наблюдается​ Loop If dtmTemp​ здесь поменяйте на​Записано макрорекодером по​ с датами (21.01.2014)​ неделей предыдущего года.​ в Экселе​=ДЕНЬНЕД(дата_в_числовом_формате;[тип])​ дата. Для этого​ значение:​=НОМНЕДЕЛИ(A2)​ возникновению проблем.​ закрывать.​ не читала :)​openid.mail.ru/mail/vlad3622340​: Здравствуйте.​ дальше не знаю.​ да 30 000​ >= DateSerial(Year(Cells(x, 8)),​ нужное lr =​ формулам Китина и​ , рядом мне​Но именно этот вариант​Как видим, в Экселе​В поле​
​ устанавливаем курсор в​ДДДД​Номер недели в году,​Тип​
​alexandr437​В таком случае​: Извиняюсь, пропустил одно​А Вы справку​ ((​ строк вниз:​

​ 1, 5) Then​​ ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row for​
​ все работает​ необходимо вывести номер​ официально принят в​ существуют три основных​«Дата в числовом формате»​ указанное поле и​После этого щелкаем по​ на которую припадает​     Необязательный. Число, которое​: предлагаю продолжить тему:​ формула Влада действительно​ условие. Вот теперь​ по этой функции​Nic70y​Я про строку​ dtmTemp = dtmTemp​ x = 1​kolyambus55rus​ недели и месяц,​ России с 2002​ варианта представления даты​вводим конкретную дату​ левой кнопкой мыши​ кнопке​

​ дата 09.03.2012, если​​ определяет, с какого​​ как сделать так​​ универсально работает. Написала​

​ в виде дня​​ или адрес ячейки​ щелкаем по этой​«OK»​

​ неделя начинается в​​ дня начинается неделя.​​ чтобы и год​​ другой вариант (но​ подрос :-)​

​»Функция НОМНЕДЕЛИ​​мож так сойдет​Юрий М​ Cells(x, >=​

​ 1 Cells(1+x,10)=a(month(cells(1+x,8).value)-1) Next​​ литературку грамотную подскажите,​

​ можно сделать в​​ и остается им​ недели. Все они​

planetaexcel.ru

Возможно ли сопоставить номер недели с интервалом дат? (Формулы)

​ на листе, в​​ ячейке на листе.​внизу окна.​ воскресенье (по умолчанию).​ Значение по умолчанию​
​ для недели определялся?​ он в два​=ЕСЛИ(ДЕНЬНЕД(ДАТА(ГОД(A2);1;1);2)​Описание​=ЕСЛИ(B1=»нет»;ОСТАТ(4-СЕГОДНЯ();7)+СЕГОДНЯ();»»)​: Проверьте, где в​ DateSerial(Year(Cells(x, 8)), 12,​

​ x End sub​​ чтоб я не​

​ VBA? (ч/з формулы​​ на данный момент​ относительно просты и​
​ которой она содержится.​ Адрес тут же​Как видим, в ячейке​10​

​ — 1.​​ например 1015, т.е.​

​ с половиной раза​​Смысл:​

​Возвращает число, которое​​stulmart​

​ восьмом столбце заканчиваются​​ 29) Then Temp​kolyambus55rus​ «мусорил» в форумах?)​ слишком тяжело, т.к.​ (см. ГОСТ ИСО​

excelworld.ru

вычисление даты по дню недели (Формулы/Formulas)

​ не требуют от​​В поле​ отобразится.​ вместо даты отобразилось​=НОМНЕДЕЛИ(A2;2)​Тип​ 2010 год, 15​ длиннее, выкладывать не​- если 1.1.тек.года​ указывает, на какую​: Nic70y, не не​ данные.​ = DateSerial(Year(Cells(x, 8)),​: Я вот так​ Я скачал «Уокенбах​ очень много данных)​ 8601-2001). Чтобы посчитать​ пользователя наличия каких-то​«Тип»​В поле​ полное наименование дня​Номер недели в году,​Начало недели​ неделя.​ буду).​ < пятницы, то​ неделю года приходится​ все среды, а​

​kolyambus55rus​​ 12, 31) Do​​ забил, всё работает​​ Дж. - Excel​

​Спасибо заранее!!! Прикрепленные​​ номер недели по​ специфических умений. Один​задается число от​«Формат»​ недели ей соответствующего.​ на которую припадает​

​Система​​vikttur​openid.mail.ru/mail/vlad3622340​

​ № недели считает​​ указанная дата.​​ каждая ближайшая среда,​​:​ While Weekday(Temp, vbMonday)​

​ (только в конце​​ 2010. Профессиональное программирование​ файлы Безымянный.PNG (50.46​ дате по такой​ из них заключается​1​в зависимости от​ При этом, выделив​

​ дата 09.03.2012, если​​1 или опущен​: ГОД()-2000&НОМНЕДЕЛИ()​: Интересно, а как​ Excel, в противном​Важно. В функции​ только чтобы была​Юрий М​ <> 1 Temp​ пробивает 4 лишних​

​ на VBA -​​ КБ)​​ системе, можно использовать​​ в применении специальных​до​ того, какое мы​ данную ячейку, в​

​ неделя начинается в​​Воскресенье​

​Guest​​ даже в простеньких​ случае:​ НОМНЕДЕЛИ предполагается, что​

​ указана дата этой​​, Там же где​ = Temp -​ декабря, но это​​ 2012″. Я так​​wowick​ вот такую формулу:​ форматов, а два​

​3​​ хотим иметь представление​ строке формул вы​ понедельник (второй аргумент,​

excelworld.ru

Номер недели. (формула, проблемка)

​1​​: думаю что не​
​ моб. телефонах номера​
​- если неделя​ неделя, на которую​ ближайшей среды)​ и на скриншоте.​ 1 Loop If​ не критично)​ понял главное выучить​: 2014-ый год начался​=ОТБР(ОСТАТ(A1+3-ДЕНЬНЕД(A1;2);365,25)/7+1)​
​ других для достижения​, которое определяет, как​
​ дня недели полное​ все равно увидите​

​ дни недели. При​​ выражение​
​В поле​

​При работе в программе​​1​ некорректно работает​

​Должен же быть​​- если 1.1.тек.года​
​ года. Однако по​ выдает 43180​ кое в чём.​
​ 9) = 1​ 8).End(xlUp).Row For x​Остались недельки.)​ 5-го в воскресенье​
​ для расчета номера​ что механизм и​ установке числа​
​«дддд»​«Тип»​ Excel иногда ставится​11​Guest​ там какой-то алгоритм​

​ = пятница или​​ европейскому стандарту первой​AlexM​ Извените.​

​ Else Cells(x, 9)​​ = 1 To​KuklP​ или 7-го во​ недели по ISO​ способ отображения данных​«1»​

​или​​окна форматирования вместо​ задача, чтобы после​Понедельник​
​: ГОД()-2000&НОМНЕДЕЛИ(){/post}{/quote} Если было​

​ и не думаю,​​ 1.1.тек.года = суббота,​ неделей года считается​:​Юрий М​

​ = (Cells(x, 8)​​ lr Step 1​: seregeyss, ну а​ вторник? Номер месяца​ добавили в стандартный​
​ в каждом описанном​

​ в новом году​​, поставьте формат ячейки​kolyambus55rus​ 7 + 1​ 10) = MonthName(Month(Cells(1​ значения? На 100000​ — это просто​ называется​

​ пользователь должен сам​​ причем этому дню​После ввода этих данных​можно также ввести​ день недели, который​Вторник​ бы не так​
​: ну их же​ недели 53, иначе​ приходится не менее​ Дата​: Да у меня​ End If Else​ + x, 8).Value))​ строк будет грузить.​ по формуле Месяц().​
​НОМНЕДЕЛИ.ISO (WEEKNUM.ISO)​ выбрать, какой из​ недели будет присвоен​
​ жмем на кнопку​ выражение:​ ей соответствует. Естественно,​

​1​​ грстно :)​

​ форматированная таблица была.)​​ If Cells(x, 8)​
​ Next xПо месяцу​seregeyss​ А недели -​В этом случае первой​ указанных вариантов в​
​ порядковый номер​«OK»​ДДД​ решить данную задачу​13​openid.mail.ru/mail/vlad3622340​ под свой лад​
​- № недели​ если первая неделя​: AlexM, спасибо большое!​Nestyyy​

​ < dtmTemp Then​​ все понятно, осталось​: Виноват про это​
​ разницу в датах​ неделей года считается​ конкретной ситуации ему​«1»​.​В этом случае на​ посредством такого мощного​Среда​

​: Это же просто.​​ подстроили :)​ по Excel минус​ января в новом​ И еще кто-нибудь​: Добрый день! Подскажите,​
​ Cells(x, 9) =​ неделя. Буду разбираться​ забыл​ делишь на 7​

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

​ табличного процессора, как​​1​ Типа СЦЕПИТЬ 2​openid.mail.ru/mail/vlad3622340​ 1.​ году содержит меньше​
​ расшифруйте пожалуйста эту​ пожалуйста, Возможно ли​

​ Cells(1 + x,​​ с предложенными вариантами.​kolyambus55rus​
​ и берешь целую​ попадает 1 января.​Автор: Максим Тютюшев​«2»​

​ которую мы выбрали​​ сокращенное наименование дня​ Эксель, возможно, причем​14​ правых символа года​
​: Да, наверно тупо​openid.mail.ru/mail/vlad3622340​ четырех дней, функция​ формулу, чтобы я​ сопоставить номер недели​ 9)(DateSerial(Year(Cells(x, 8)) -​
​Vitallic​: Для дальнейшего удобства​ часть от результата…​ Здесь также возникает​Потребность знать номер рабочей​нумерация будет выполняться,​ в самом начале,​
​ недели.​ несколькими способами. Давайте​Четверг​ и функцию по​ забиты в программу​
​: Дмитрий, у меня​
​ НОМНЕДЕЛИ возвращает для​

​ понимал как например​​ с интервалом дат?​ 1, 12, 31))​
​: поменяйте нужную строку​
​ (анализ в сводной​

​Урок:​​ посмотрим, какие варианты​1​ определению номера недели.​ телефона готовые номера​
​ таким же был​ этого года номера​
​ мне рассчитать другой​Пример во вложении.​

​ Else Cells(x, 9)​​ на эту (учтите​ таблице) я вот​: Номер недели:​ что в году​ даты (или группы​ Этому дню недели​ недели в выбранном​

​Как изменить формат ячейки​​ существуют для выполнения​

​15​​И будет сегодня​ недель до 2050​
​ первый взгляд, но​ недель, не соответствующие​

​ день. Спасибо​​ Есть номер недели,​ = (Cells(x, 8)​ что в начале​ так сделал: Прикрепленные​месяц — month(date),​

​ может оказаться 52​​ дат) весьма востребованная​ будет дан порядковый​ текстовом формате. Теперь​ в Экселе​ данной операции.​
​Пятница​ 1039.​

planetaexcel.ru

​ года и всё.​

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

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

1. Первый подход используется России. Согласно стандарту ГОСТ ИСО 8601-2001 первой рабочей неделей года считается та, на которую выпадает первый четверг года.
2. Второй подход заключается в том, что неделя, на которую приходится 1 января и считается первой неделей года.

Еще раз напомним вам, что в России используется первый из описанных выше походов.

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

=ЦЕЛОЕ((A1-ДАТА(ГОД(A1-ДЕНЬНЕД(A1-1)+4);1;3)+ДЕНЬНЕД(ДАТА(ГОД(A1-ДЕНЬНЕД(A1-1)+4);1;3))+5)/7)

При использовании английской версии Excel формула выглядит как:

=INT((A1-DATE(YEAR(A1-WEEKDAY(A1-1)+4),1,3)+WEEKDAY(DATE(YEAR(A1-WEEKDAY(A1-1)+4),1,3))+5)/7)

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

=1+ЦЕЛОЕ((A1-ДАТА(ГОД(A1+4-ДЕНЬНЕД(A1+6));1;5)+ДЕНЬНЕД(ДАТА(ГОД(A1+4-ДЕНЬНЕД(A1+6));1;3)))/7)

формула для англоязычной версии:

=1+INT((A1-DATE(YEAR(A1+4-WEEKDAY(A1+6)),1,5)+WEEKDAY(DATE(YEAR(A1+4-WEEKDAY(A1+6)),1,3)))/7)

Во всех вышеуказанных формулах A1 меняем на дату или ссылку на дату.

Все намного проще, если вы используете Excel 2007 или 2010. Начиная с этих версий появилась специальная функция, позволяющия определять номер недели по дате. (примечание: эту функцию можно включить и в Excel 2003, для этого необходимо подключить надстройку Пакет анализа через меню Сервис-Надстройки, но в данном случае, если документ будет открывать человек у которого эта настройка не включена, то он вместо номера недели увидит ошибку #ЗНАЧ!, поэтому применять ее в Excel 2003 мы не будем)

Функция называется НОМНЕДЕЛИ (в английской версии WEEKNUM). Синтаксис очень простой.

=НОМНЕДЕЛИ(Дата; Тип)

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

Для России необходимо использовать формулу в следующем формате.

=НОМНЕДЕЛИ(А1; 21)

А1 – это дата или ссылка на дату.

В данном случае тип 21 означает, что номер первой недели будет считаться та, на которую приходится первый четверг года и первым днем недели является понедельник (примечание: во многих странах первым днем недели считается воскресенье)

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

SirExcel.ru – Безграничные возможности Excel