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

Определим понедельник или воскресенье текущей недели. Неделю будем задавать через дату.

Пусть дана дата

15.08.2012.

Определим, на какой день приходится понедельник этой недели. Ответ:

13.08.2012

.

Пусть в ячейке

А2

содержится дата

15.08.2012

, а в ячейке

B2

– число, соответствующее дню недели (1 – понедельник, 2 – вторник, …). Если в

B

2

содержится число 1, то нижеследующая формула вернет дату понедельника недели, которой принадлежит дата из ячейки

А2

(см.

Файл примера

):

=A2-(ДЕНЬНЕД(A2;2)-B2)

Если в

B

2

содержится число 7, то формула вернет дату воскресенья недели, которой принадлежит дата из ячейки

А2

.

Формула

=СЕГОДНЯ()-(ДЕНЬНЕД(СЕГОДНЯ();2)-7)

вернет воскресенье текущей недели, а

=СЕГОДНЯ()-(ДЕНЬНЕД(СЕГОДНЯ();2)-1)

— понедельник.

Альтернативный вариант — день недели задаем текстовым значением

Как видно из рисунка выше, день недели в ячейке

В2

задается с помощью

Элемента управления формы Поле со списком

, который с ней связан. Тем самым, в ячейкe

B2

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

B2

число 2, т.е. второй день недели). Использовать

Элемент управления формы Поле со списком

не всегда удобно (например, при изменении ширины столбца элемент может сместиться), поэтому в

файле примера

также использована

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

для формирования в ячейке

В11

Выпадающего списка

с днями недели.

Теперь день недели в ячейке

B11

задается не числом, а текстовым значением

Понедельник

,

Вторник

и т.д. Формулу в ячейке

С11

(аналогичную

С2

) нужно изменить на

=A11-(ДЕНЬНЕД(A11;2)-ВПР(B11;E2:F8;2;ЛОЖЬ))

В диапазоне

E2:F8

содержится вспомогательная таблица

День недели в текстовой форме — День недели в числовой форме

.

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

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

Изменение формата ячейки

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

1. Щелкните по ячейке с датой правой кнопкой мыши и из появившегося контекстного меню выберите пункт «Формат ячеек».

2. В новом окне на панели слева выделите левой кнопкой мыши пункт «Все форматы», после чего самостоятельно укажите тип как ДДДД.

3. Обратите внимание на поле «Образец», чтобы пример показывался как текстовое описание дня недели, после чего примените изменения.

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

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

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

1. Выберите любую свободную ячейку для подставления имеющегося значения и объявите в ней функцию =ТЕКСТ().

2. В скобках в первую очередь выберите ячейку с датой, кликнув по ней левой кнопкой мыши. Затем поставьте знак «;» для перехода к следующему аргументу.

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

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

Использование функции ДЕНЬНЕД

Следующая функция под названием ДЕНЬНЕД является автоматической, то есть вам не придется никакой формат вписывать вручную или заниматься расчетами. Отличие этого варианта от предыдущих – день недели будет выведен в виде цифры в выбранной ячейке. Иногда это будет полезно при использовании дополнительных формул, связанных с днями недели.

1. Объявите функцию =ДЕНЬНЕД().

2. В скобках выберите ячейку с датой, день недели которой вы хотите вывести.

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

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

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

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

​Смотрите также​Просто и без​ Сергей сразу же​​ европейскому стандарту.»​​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Если​

Замечание

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

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

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

Пример

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

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

​ года и всё.​