Как определить месяц в vba excel - Word и Excel - помощь в работе с программами

Функции для работы с датой и временем в VBA Excel. Синтаксис, параметры, спецсимволы, примеры. Функции, возвращающие текущие дату и время по системному таймеру.

Функция Date

Date – это функция, которая возвращает значение текущей системной даты. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerDate()

MsgBox «Сегодня: « & Date

End Sub

Функция DateAdd

DateAdd – это функция, которая возвращает результат прибавления к дате указанного интервала времени. Тип возвращаемого значения – Variant/Date.

Синтаксис

DateAdd(interval, number, date)

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, который требуется добавить.
number	Обязательный параметр. Числовое выражение, задающее количество интервалов, которые необходимо добавить. Может быть как положительным (возвращается будущая дата), так и отрицательным (возвращается предыдущая дата).
date	Обязательный параметр. Значение типа `Variant/Date` или литерал, представляющий дату, к которой должен быть добавлен интервал.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: три символа – y, d, w – указывают функции DateAdd на один день, который необходимо прибавить к исходной дате number раз.

Пример

Sub PrimerDateAdd()

MsgBox «31.01.2021 + 1 месяц = « & DateAdd(«m», 1, «31.01.2021») ‘Результат: 28.02.2021

MsgBox «Сегодня + 3 года = « & DateAdd(«yyyy», 3, Date)

MsgBox «Сегодня — 2 недели = « & DateAdd(«ww», —2, Date)

MsgBox «10:22:14 + 10 минут = « & DateAdd(«n», 10, «10:22:14») ‘Результат: 10:32:14

End Sub

Функция DateDiff

DateDiff – это функция, которая возвращает количество указанных интервалов времени между двумя датами. Тип возвращаемого значения – Variant/Long.

Синтаксис

DateDiff(interval, date1, date2, [firstdayofweek], [firstweekofyear])

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее интервал времени, количество которых (интервалов) требуется вычислить между двумя датами.
date1, date2	Обязательные параметры. Значения типа `Variant/Date`, представляющие две даты, между которыми вычисляется количество указанных интервалов.
firstdayofweek	Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье.
firstweekofyear	Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1».

Примечание к таблице аргументов: в отличие от функции DateAdd, в функции DateDiff спецсимвол "w", как и "ww", обозначает неделю. Но расчет осуществляется по разному. Подробнее об этом на сайте разработчиков.

Параметры firstdayofweek и firstweekofyear определяют правила расчета количества недель между датами.

Таблицы констант из коллекций firstdayofweek и firstweekofyear смотрите в параграфах «Приложение 2» и «Приложение 3».

Пример

Sub PrimerDateDiff()

‘Даже если между датами соседних лет разница 1 день,

‘DateDiff с интервалом «y» покажет разницу — 1 год

MsgBox DateDiff(«y», «31.12.2020», «01.01.2021») ‘Результат: 1 год

MsgBox DateDiff(«d», «31.12.2020», «01.01.2021») ‘Результат: 1 день

MsgBox DateDiff(«n», «31.12.2020», «01.01.2021») ‘Результат: 1440 минут

MsgBox «Полных лет с начала века = « & DateDiff(«y», «2000», Year(Now) — 1)

End Sub

Функция DatePart

DatePart – это функция, которая возвращает указанную часть заданной даты. Тип возвращаемого значения – Variant/Integer.

Есть предупреждение по использованию этой функции.

Синтаксис

DatePart(interval, date, [firstdayofweek], [firstweekofyear])

Параметры

Параметр	Описание
interval	Обязательный параметр. Строковое выражение из спецсимволов, представляющее часть даты, которую требуется извлечь.
date	Обязательные параметры. Значение типа `Variant/Date`, представляющее дату, часть которой следует извлечь.
firstdayofweek	Необязательный параметр. Константа, задающая первый день недели. По умолчанию – воскресенье.
firstweekofyear	Необязательный параметр. Константа, задающая первую неделю года. По умолчанию – неделя, в которую входит 1 января.

Таблицу аргументов (значений) параметра interval смотрите в параграфе «Приложение 1». В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart.

Таблицы констант из коллекций firstdayofweek и firstweekofyear смотрите в параграфах «Приложение 2» и «Приложение 3».

Пример

Sub PrimerDatePart()

MsgBox DatePart(«y», «31.12.2020») ‘Результат: 366

MsgBox DatePart(«yyyy», CDate(43685)) ‘Результат: 2019

MsgBox DatePart(«n», CDate(43685.45345)) ‘Результат: 52

MsgBox «День недели по счету сегодня = « & DatePart(«w», Now, vbMonday)

End Sub

Функция DateSerial

DateSerial – это функция, которая возвращает значение даты для указанного года, месяца и дня. Тип возвращаемого значения – Variant/Date.

Синтаксис

DateSerial(year, month, day)

Параметры

Параметр	Описание
year	Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 100 до 9999 включительно.
month	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 12.*
day	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 1 до 31.*

* Функция DateSerial автоматически пересчитывает общее количество дней в полные месяцы и остаток, общее количество месяцев в полные годы и остаток (подробнее в примере).

Пример

Sub PrimerDateSerial()

MsgBox DateSerial(2021, 2, 10) ‘Результат: 10.02.2020

MsgBox DateSerial(2020, 1, 400) ‘Результат: 03.02.2021

End Sub

Разберем подробнее строку DateSerial(2020, 1, 400):

400 дней = 366 дней + 31 день + 3 дня;
366 дней = 1 год, так как по условию month:=1, значит февраль 2020 входит в расчет, а в нем – 29 дней;
31 день = 1 месяц, так как сначала заполняется январь (по условию month:=1);
3 дня – остаток.

В итоге получается:

DateSerial(2020+1, 1+1, 3) = DateSerial(2021, 2, 3)

Функция DateValue

DateValue – это функция, которая преобразует дату, указанную в виде строки, в значение типа Variant/Date (время игнорируется).

Синтаксис

Параметр date – строковое выражение, представляющее дату с 1 января 100 года по 31 декабря 9999 года.

Пример

Sub PrimerDateValue()

MsgBox DateValue(«8 марта 2021») ‘Результат: 08.03.2021

MsgBox DateValue(«17 мая 2021 0:59:15») ‘Результат: 17.05.2021

End Sub

Функция DateValue игнорирует время, указанное в преобразуемой строке, но если время указано в некорректном виде (например, «10:60:60»), будет сгенерирована ошибка.

Функция Day

Day – это функция, которая возвращает день месяца в виде числа от 1 до 31 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerDay()

MsgBox Day(Now)

End Sub

Функция IsDate

IsDate – это функция, которая возвращает True, если выражение является датой или распознается как допустимое значение даты или времени. В остальных случаях возвращается значение False.

Синтаксис

Параметр expression – это переменная, возвращающая дату или строковое выражение, распознаваемое как дата или время.

Значение, возвращаемое переменной expression, не должно выходить из диапазона допустимых дат: от 1 января 100 года до 31 декабря 9999 года (для Windows).

Пример

Sub PrimerIsDate()

MsgBox IsDate(«18 апреля 2021») ‘Результат: True

MsgBox IsDate(«31 февраля 2021») ‘Результат: False

MsgBox IsDate(«4.10.20 11:12:54») ‘Результат: True

End Sub

Функция Hour

Hour – это функция, которая возвращает количество часов в виде числа от 0 до 23 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerHour()

MsgBox Hour(Now)

MsgBox Hour(«22:36:54»)

End Sub

Функция Minute

Minute – это функция, которая возвращает количество минут в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerMinute()

MsgBox Minute(Now)

MsgBox Minute(«22:36:54»)

End Sub

Функция Month

Month – это функция, которая возвращает день месяца в виде числа от 1 до 12 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerMonth()

MsgBox Month(Now)

End Sub

Функция MonthName

MonthName – это функция, которая возвращает название месяца в виде строки.

Синтаксис

MonthName(month, [abbreviate])

Параметры

Параметр	Описание
month	Обязательный параметр. Числовое обозначение месяца от 1 до 12 включительно.
abbreviate	Необязательный параметр. Логическое значение: True – возвращается сокращенное название месяца, False (по умолчанию) – название месяца не сокращается.

Пример

Sub PrimerMonthName()

MsgBox MonthName(10) ‘Результат: Октябрь

MsgBox MonthName(10, True) ‘Результат: окт

End Sub

Функция Now

Now – это функция, которая возвращает текущую системную дату и время. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerNow()

MsgBox Now

MsgBox Day(Now)

MsgBox Hour(Now)

End Sub

Функция Second

Second – это функция, которая возвращает количество секунд в виде числа от 0 до 59 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр time – любое числовое или строковое выражение, представляющее время.

Пример

Sub PrimerSecond()

MsgBox Second(Now)

MsgBox Second(«22:30:14»)

End Sub

Функция Time

Time – это функция, которая возвращает значение текущего системного времени. Тип возвращаемого значения – Variant/Date.

Синтаксис

Пример

Sub PrimerTime()

MsgBox «Текущее время: « & Time

End Sub

Функция TimeSerial

TimeSerial – это функция, которая возвращает значение времени для указанного часа, минуты и секунды. Тип возвращаемого значения – Variant/Date.

Синтаксис

TimeSerial(hour, minute, second)

Параметры

Параметр	Описание
hour	Обязательный параметр типа Integer. Числовое выражение, возвращающее значение от 0 до 23 включительно.
minute	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.*
second	Обязательный параметр типа Integer. Числовое выражение, возвращающее любое значение (в пределах Integer), а не только от 0 до 59.*

* Функция TimeSerial автоматически пересчитывает общее количество секунд в полные минуты и остаток, общее количество минут в полные часы и остаток (подробнее в примере).

Пример

Sub PrimerTime()

MsgBox TimeSerial(5, 16, 4) ‘Результат: 5:16:04

MsgBox TimeSerial(5, 75, 158) ‘Результат: 6:17:38

End Sub

Разберем подробнее строку TimeSerial(5, 75, 158):

158 секунд = 120 секунд (2 минуты) + 38 секунд;
75 минут = 60 минут (1 час) + 15 минут.

В итоге получается:

TimeSerial(5+1, 15+2, 38) = TimeSerial(6, 17, 38)

Функция TimeValue

TimeValue – это функция, которая преобразует время, указанное в виде строки, в значение типа Variant/Date (дата игнорируется).

Синтаксис

Параметр time – строковое выражение, представляющее время с 0:00:00 по 23:59:59 включительно.

Пример

Sub PrimerTimeValue()

MsgBox TimeValue(«6:45:37 PM») ‘Результат: 18:45:37

MsgBox TimeValue(«17 мая 2021 3:59:15 AM») ‘Результат: 3:59:15

End Sub

Функция TimeValue игнорирует дату, указанную в преобразуемой строке, но если дата указана в некорректном виде (например, «30.02.2021»), будет сгенерирована ошибка.

Функция Weekday

Weekday – это функция, которая возвращает день недели в виде числа от 1 до 7 включительно. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Weekday(date, [firstdayofweek])

Параметры

Параметр	Описание
date	Обязательный параметр. Любое выражение (числовое, строковое), отображающее дату.
firstdayofweek	Константа, задающая первый день недели. По умолчанию – воскресенье.

Таблицу констант из коллекции firstdayofweek смотрите в параграфе «Приложение 2».

Пример

Sub PrimerWeekday()

MsgBox Weekday(«23 апреля 2021», vbMonday) ‘Результат: 5

MsgBox Weekday(202125, vbMonday) ‘Результат: 6

End Sub

Функция WeekdayName

WeekdayName – это функция, которая возвращает название дня недели в виде строки.

Синтаксис

WeekdayName(weekday, [abbreviate], [firstdayofweek])

Параметры

Параметр	Описание
weekday	Обязательный параметр. Числовое обозначение дня недели от 1 до 7 включительно.
abbreviate	Необязательный параметр. Логическое значение: True – возвращается сокращенное название дня недели, False (по умолчанию) – название дня недели не сокращается.
firstdayofweek	Константа, задающая первый день недели. По умолчанию – воскресенье.

Таблицу констант из коллекции firstdayofweek смотрите в параграфе «Приложение 2».

Пример

Sub PrimerWeekdayName()

MsgBox WeekdayName(3, True, vbMonday) ‘Результат: Ср

MsgBox WeekdayName(3, , vbMonday) ‘Результат: среда

MsgBox WeekdayName(Weekday(Now, vbMonday), , vbMonday)

End Sub

Функция Year

Year – это функция, которая возвращает номер года в виде числа. Тип возвращаемого значения – Variant/Integer.

Синтаксис

Параметр date – любое числовое или строковое выражение, представляющее дату.

Пример

Sub PrimerYear()

MsgBox Year(Now)

End Sub

Приложение 1

Таблица аргументов (значений) параметраinterval для функций DateAdd, DateDiff и DatePart:

Аргумент	Описание	Интервал значений
yyyy	Год	100 – 9999
q	Квартал	1 – 4
m	Месяц	1 – 12
y	День года	1 – 366
d	День месяца	1 – 31
w	День недели	1 – 7
ww	Неделя	1 – 53
h	Часы	0 – 23
n	Минуты	0 – 59
s	Секунды	0 – 59

В третьей графе этой таблицы указаны интервалы значений, возвращаемых функцией DatePart.

Приложение 2

Константы из коллекции firstdayofweek:

Константа	Значение	Описание
vbUseSystem	0	Используются системные настройки
vbSunday	1	Воскресенье (по умолчанию)
vbMonday	2	Понедельник
vbTuesday	3	Вторник
vbWednesday	4	Среда
vbThursday	5	Четверг
vbFriday	6	Пятница
vbSaturday	7	Суббота

Приложение 3

Константы из коллекции firstweekofyear:

Константа	Значение	Описание
vbUseSystem	0	Используются системные настройки.
vbFirstJan1	1	Неделя, в которую входит 1 января (по умолчанию).
vbFirstFourDays	2	Неделя, в которую входит не менее четырех дней нового года.
vbFirstFullWeek	3	Первая полная неделя года.

Источник

A really helpful and simple way is to combine the format function together with date.

Examples (assuming today is Oct 23, 2019):

To get current month as a number as in original question:

MsgBox Format(Date, "mm")

^ Will return: 10

To get current month as short text:

MsgBox Format(Date, "mmm")

^ Will return: Oct

To get current month with full text:

MsgBox Format(Date, "mmmm")

^ Will return: October

You can combine these with days and years as well.

Additional examples:

MsgBox Format(Date, "dd-mmm-yyyy")

^ Will return 23-Oct-2019

MsgBox Format(Date, "dddd-mmmm-dd-yyyy")

^ Will return: Wednesday-October-23-2019

This is creating a custom format, so you can rearrange the dd, mm, yyyy areas as you see fit, such as:

MsgBox Format(Date, "yyyy/mm/dd")

^ Will return: 2019/23/10

Источник

Excel VBA Month

VBA Month function is a built-in function used to get a month from a date. The output returned by this function is Integer ranging from 1 to 12. This function only extracts the month number from the supplied date value.

For example, if the date is 28-May-2019, then to extract the month number from this date, we can use the MONTH function.

Excel VBA Month
- How to Use Month Function in VBA?
  - Example #1
  - Example #2
  - Example #3
- Things to Remember here
- Recommended Articles

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Month Function (wallstreetmojo.com)

How to Use the Month Function in VBA?

Below is the syntax of the MONTH function.

We need to provide the date from which we are trying to extract the month number.

You can download this VBA Month Excel Template here – VBA Month Excel Template

Example #1

We will see how to write a code to extract the month number from the date. We will take the date as “10^th Oct 2019.″

Step 1: Start the macro procedure.

Code:

Sub Month_Example1()

End Sub

Step 2: Define the variable to hold the date value. Since we are storing the data value, our data type should be “Date.” So declare the variable and assign the data type as “Date” to the declared variable.

Code:

Sub Month_Example1()

Dim DDate As Date

End Sub

Step 3: For this variable, assign the date value of 10^th Oct 2019.

Code:

Sub Month_Example1()

Dim DDate As Date

DDate = "10 Oct 2019"

End Sub

Step 4: Now assign the month number to declare one more variable as “Integer.”

Code:

Sub Month_Example1()

Dim DDate As Date

Dim MonthNum As Integer

DDate = "10 Oct 2019"

End Sub

Note: We have declared the variable Integer because our month count ends at 12 only. So, an integer data type can hold this number.

Step 5: For this variable, we will open the MONTH function.

Code:

Sub Month_Example1()

Dim DDate As Date

Dim MonthNum As Integer

DDate = "10 Oct 2019"

MonthNum = Month(

End Sub

Step 6: The Month function asks for the “Date” that we must supply to extract the month number. Since we have already stored the targeted date to the variable “DDate,” supply this variable as the input parameter for the month function.

Code:

Sub Month_Example1()

Dim DDate As Date

Dim MonthNum As Integer

DDate = "10 Oct 2019"

MonthNum = Month(DDate)

End Sub

Step 7: Now, the “Month” function will return the month number from the supplied date to the variable “MonthNum” and finally show the result in a message box in VBA.

Code:

Sub Month_Example1()

Dim DDate As Date

Dim MonthNum As Integer

DDate = "10 Oct 2019"

MonthNum = Month(DDate)

MsgBox MonthNum

End Sub

Run the code and see the month number in the message box.

Output:

So, the month number from the supplied date is 10, i.e., October.

Example #2

Now, we will take cell referencesCell reference in excel is referring the other cells to a cell to use its values or properties. For instance, if we have data in cell A2 and want to use that in cell A1, use =A2 in cell A1, and this will copy the A2 value in A1.read more for coding. Below is the date we have on the worksheet.

So, from the cell A2 date value, we need to extract the month number from cell B2.

Code:

Sub Month_Example2()

Range("B2").Value =

End Sub

Open the MONTH function and supply the date as RANGE A2 value.

Code:

Sub Month_Example2()

Range("B2").Value = Month(Range("A2"))

End Sub

We have supplied a Range A2 cell because our date is in cell A2 this time, so the same will be the reference.

Now, execute the code and get the month number from the date in cell B2.

Here you go. We got the month number in cell B2.

Example #3

We have extracted the month for the single-cell date, but what if we have multiple data rows like the one below?

In these cases, we need to loop through the cells and execute the task of extracting the month number from each respective date.

The below code will do the job for us.

Code:

Sub Month_Example3()

     Dim k As Long

     For k = 2 To 12

     Cells(k, 3).Value = Month(Cells(k, 2).Value)

     Next k

End Sub

What this code will do is it will loop through the rows from 2 to 12 and extract the month number from the second column and store the result in the third column.

Things to Remember here

The MONTH function is a worksheet function and a VBA functionVBA functions serve the primary purpose to carry out specific calculations and to return a value. Therefore, in VBA, we use syntax to specify the parameters and data type while defining the function. Such functions are called user-defined functions.read more.
The MONTH function requires a valid date reference. Otherwise, we will get an error message.
If the month number is <1 and >12, it will throw an error message.

Format Name of the Month:

We have different format methods to format name of the month. You can find output in an immediate window.

'Format Name of the Month
Sub VBA_Format_Month_Name()
    
    'Variable declaration
    Dim sMonth_Name As String
    
    sMonth_Name = Format("01/01/2018", "m")
    Debug.Print sMonth_Name
    
    sMonth_Name = Format("01/01/2018", "mm")
    Debug.Print sMonth_Name
    
    sMonth_Name = Format("01/01/2018", "mmm")
    Debug.Print sMonth_Name
    
    sMonth_Name = Format("01/01/2018", "mmmm")
    Debug.Print sMonth_Name
        
End Sub

Output screenshot: Here is the output screenshot.

Instructions to Run VBA Macro Code or Procedure:

You can refer the following link for the step by step instructions.

Instructions to run VBA Macro Code

Other Useful Resources:

Click on the following links of the useful resources. These helps to learn and gain more knowledge.

VBA Tutorial VBA Functions List VBA Arrays VBA Text Files VBA Tables

VBA Editor Keyboard Shortcut Keys List VBA Interview Questions & Answers Blog

Источник

Всем доброго времени суток!!!
Перерыл интернет (может плохо рыл раз не нашел), литературку полистал, но так и не нашел метод определения по

дате в ячейке

номеров недели, месяца и года. Попадались похожие но не то.
Суть в том что есть столбец с датами (21.01.2014) , рядом мне необходимо вывести номер недели и месяц, каким способом это можно сделать в VBA? (ч/з формулы слишком тяжело, т.к. очень много данных)
Спасибо заранее!!!

wowick

Пользователь

Сообщений: 972
Регистрация: 14.01.2014

2014-ый год начался в среду. Первая неделя когда заканчивается? 5-го в воскресенье или 7-го во вторник? Номер месяца узнать из даты — это просто по формуле Месяц(). А недели — разницу в датах делишь на 7 и берешь целую часть от результата…

Если автоматизировать бардак, то получится автоматизированный бардак.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Номер недели: http://www.cpearson.com/excel/WeekNumbers.aspx месяц — month(date), год — year(date). Я сам — дурнее всякого примера! …

kolyambus55rus

Пользователь

Сообщений: 67
Регистрация: 22.01.2014

23.01.2014 09:19:33

По поводу месяца:

Код
Dim thisDate As Date Dim thisMonth As Integer thisDate = Worksheets("1".Cells(1 + i, thisMonth = Month(thisDate) Worksheets("1".Cells(1 + i, 10) = thisMonth

Не получается.) Извините за тупость, я только учусь…

Изменено: kolyambus55rus — 25.01.2014 06:17:31

Учусь,еще…

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

23.01.2014 09:59:17

Попробуйте:

Код
sub tt () Dim x% , lr% lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row for x = 1 to lr step 1 Cells(1+x,10)=month(cells(1+x,8).value) Next x End sub

китин

Пользователь

Сообщений: 931
Регистрация: 16.05.2013

23.01.2014 10:09:38

номер недели

Код
=НОМНЕДЕЛИ(A2;2)

номер месяца

Код
=МЕСЯЦ(A2)

что мешает просто протянуть 2 колонки?

Прикрепленные файлы

kolyambus55rus.xlsx (10.32 КБ)

Вполне такой нормальный кинжальчик. Процентов на 100
<#0>

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

seregeyss

Пользователь

Сообщений: 11251
Регистрация: 01.01.1970

23.01.2014 10:23:42

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[-1])"
    Range("C2".Select
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
    Range("D2".Select
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-3],""ММММ"""
    Range("E2".Select
    ActiveCell.FormulaR1C1 = "=YEAR(RC[-4])"
    Range("B2:E2".Select
    Selection.AutoFill Destination:=Range("B2:E100", Type:=xlFillDefault
    Range("B2:E100".Select
End Sub

Записано макрорекодером по формулам Китина и все работает

Изменено: seregeyss — 25.01.2014 06:19:25

Лень двигатель прогресса, доказано!!!

Vitallic

спасибо большое!!! Может литературку грамотную подскажите, чтоб я не «мусорил» в форумах?) Я скачал «Уокенбах Дж. — Excel 2010. Профессиональное программирование на VBA — 2012». Я так понял главное выучить язык програмирования а остальное дело логики?!

Остались недельки.)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	seregeyss, ну а поменять формулы на значения? На 100000 строк будет грузить. Я сам — дурнее всякого примера! …

	Виноват про это забыл Лень двигатель прогресса, доказано!!!

	Для дальнейшего удобства (анализ в сводной таблице) я вот так сделал: Прикрепленные файлы 1.PNG (14.04 КБ)

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

#13

23.01.2014 12:02:03

kolyambus55rus, кто Вам сказал, что на форуме по Эксель уместно выкладывать картинки?

Цитата
Для дальнейшего удобства

— офигенно удобно! А так не проще, одной строкой:

Код
MsgBox MonthName(Month([a1]))

еще:

Код
MsgBox format([a1], "MMMM")

?
в а1 — дата.

Изменено: KuklP — 23.01.2014 12:06:53

Я сам — дурнее всякого примера! …

	KuklP конечно проще.) Спасибо! Представляю ваше возмущение, я сам, когда кто то делает глупости, так же реагирую. Изменено: kolyambus55rus — 23.01.2014 12:15:10

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

KuklP

, я так понимаю ТС нужно циклом пройтись по таблице в которой 100 000 строк
с помощью msgbox это будет утомительно (долго) да и как потом анализировать (фильтровать?)

kolyambus55rus

, не учел в предыдущем макросе что так много строк, а потому
тип переменных надо обьявить как long (или &)

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#16

23.01.2014 12:59:44

месяц меняйте на свой (не очень ориентируюсь в русских названиях ) и добавте недостающие

Код

sub tt ()  
Dim x& , lr& 
Dim a 
a = array("січень","лютий","березень")' здесь поменяйте на нужное    
lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row 
for x = 1 to lr step 1 
Cells(1+x,10)=a(month(cells(1+x,8).value)-1)
Next x  
End sub

kolyambus55rus

Пользователь

Сообщений: 67
Регистрация: 22.01.2014

#17

23.01.2014 13:07:05

Я вот так забил, всё работает (только в конце пробивает 4 лишних декабря, но это не критично)

Код
Dim x&, lr& lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row For x = 1 To lr Step 1 Cells(1 + x, 10) = MonthName(Month(Cells(1 + x, 8).Value)) Next x

По месяцу все понятно, осталось неделя. Буду разбираться с предложенными вариантами.

Изменено: kolyambus55rus — 23.01.2014 13:18:31

Учусь,еще…

Vitallic

Пользователь

Сообщений: 239
Регистрация: 23.07.2013

#18

23.01.2014 13:19:17

поменяйте нужную строку на эту (учтите что в начале цикла нужно указать х = номер первой строки с данными которые обрабатываем)

Код
Cells( x, 10) = MonthName(Month(Cells( x, 8).Value))

Vitallic Пользователь Сообщений: 239 Регистрация: 23.07.2013	Можно почитать Вокенбаха (указаную выше книгу), еще Б.Джелен — Застосування VBA і макросів у Excel. Лично я рекомендовал бы в таком порядке: 1. Вокенбах 2. Джелен

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

#21

23.01.2014 14:57:58

Цитата
с помощью msgbox это будет утомительно (долго) да и как потом анализировать (фильтровать?)

Я просто показал, как можно извлечь название месяца из даты без цикла. msgbox только для примера. Переписывать код автора с картинки, знаете ли, ни времени, ни желания не было.

Я сам — дурнее всякого примера! …

kolyambus55rus

Пользователь

Сообщений: 67
Регистрация: 22.01.2014

#22

27.01.2014 09:14:33

В итоге, в общий код макроса, для определения месяца и недели, я вставил следующий код:

Код

' Определяем месяц

Dim x&, lr&

lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row
For x = 2 To lr Step 1
Cells(x, 10) = MonthName(Month(Cells(x, 8).Value))
    
'и неделю

dtmTemp = DateSerial(Year(Cells(x, 8)), 1, 1)
Do While Weekday(dtmTemp, vbMonday) <> 1
dtmTemp = dtmTemp + 1
Loop
If dtmTemp >= DateSerial(Year(Cells(x, 8)), 1, 5) Then dtmTemp = dtmTemp - 7
If Cells(x, 8) >= DateSerial(Year(Cells(x, 8)), 12, 29) Then
Temp = DateSerial(Year(Cells(x, 8)), 12, 31)
Do While Weekday(Temp, vbMonday) <> 1
Temp = Temp - 1
Loop
If Temp >= Cells(x, 8) Then
Cells(x, 9) = 1
Else
Cells(x, 9) = (Cells(x, 8) - dtmTemp)  7 + 1
End If
Else
If Cells(x, 8) < dtmTemp Then
Cells(x, 9) = Cells(1 + x, 9)(DateSerial(Year(Cells(x, 8)) - 1, 12, 31))
Else
Cells(x, 9) = (Cells(x, 8) - dtmTemp)  7 + 1
End If
End If

Next x

Если кто то будет, как и я, искать, думаю пригодиться.

Всем большое спасибо, редко найдешь такой форум где тебе сразу помогут!

p.s. 29 декабря 2014 года распознала как 1-я неделя (что правильно) а 30 и 31 как 53.

Изменено: kolyambus55rus — 27.01.2014 09:43:41

Учусь,еще…

k61

Пользователь

Сообщений: 2441
Регистрация: 21.12.2012

#23

27.01.2014 10:26:40

Сократим:

Код

Sub www()
Dim x&, lr&
lr = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row
For x = 2 To lr Step 1
Cells(x, 10) = MonthName(Month(Cells(x, 8).Value)) ' Определяем месяц
Cells(x, 9) = DateDiff("ww", DateSerial(Year(Cells(x, 8).Value) - 1, 12, 31), _
Cells(x, 8).Value, vbFirstFourDays) + 1 'и номер недели
Next x
End Sub

re:P.S. ГОСТ ИСО 8601-2001, п.2.17 «…Первой календарной неделей года считают первую неделю, содержащую первый четверг текущего года». 29 декабря 2014 года это 53-я неделя.

	k61,сейчас только заметил, вот такая картина наблюдается да 30 000 строк вниз: Я про строку 23959 и ниже…. Изменено: kolyambus55rus — 27.01.2014 13:55:07

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Проверьте, где в восьмом столбце заканчиваются данные.

	Юрий М, Там же где и на скриншоте.

	Всё, разобрался!) Тупанул кое в чём. Извените.

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле

kolyambus55rus Пользователь Сообщений: 67 Регистрация: 22.01.2014	#30 27.01.2014 16:01:52 Да у меня форматированная таблица была.) Учусь,еще…

Источник

Функция Date

Функция DateAdd

Функция DateDiff

Функция DatePart

Функция DateSerial

Функция DateValue

Функция Day

Функция IsDate

Функция Hour

Функция Minute

Функция Month

Функция MonthName

Функция Now

Функция Second

Функция Time

Функция TimeSerial

Функция TimeValue

Функция Weekday

Функция WeekdayName

Функция Year

Приложение 1

Приложение 2

Приложение 3

Excel VBA Month

Table of contents

How to Use the Month Function in VBA?

Example #1

Example #2

Example #3

Things to Remember here

Recommended Articles

Format Name of the Month:

Instructions to Run VBA Macro Code or Procedure:

Other Useful Resources: