Макросом превратить день недели с ДДДД в текстовое название дня недели

Макросом превратить день недели с ДДДД в текстовое название дня недели, Например: 18.04.2015 = суббота

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

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

18.04.2015 18:25:44

Здравствуйте, уважаемые форумчане.
Не могу найти ни одного вопроса с данной проблемой, а потому обращаюсь к Вам за помощью.
В файле на листе "Report" в колонке С17:С19 находятся дни недели в формате ячеек "ДДДД".
Помогите пожалуйста. Как превратить дни недели в текст, чтобы просто без дат писало дни недели?
Это нужно для того, чтобы формула = СУММЕСЛИ правильно считала количество по дням недели.
Заранее благодарен.

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

Day.xls (18 КБ)

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

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

Win 10, MSO 2013 SP1

18.04.2015 18:35:14

А чем формульный вариант не устраивает?!.

Код
=ТЕКСТ(A2;"ДДДД")

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

МВТ

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

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

18.04.2015 18:39:55

Как-то так

Код
Sub dd() Dim Rng As Range Set Rng = Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row) For Each cell In Rng With cell If IsDate(.Value) Then .Value = .Text End With Next cell End Sub

wedsad Пользователь Сообщений: 56 Регистрация: 26.01.2014	#4 18.04.2015 18:48:27 Спасибо Вам огромное. Все супер работает.

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#5 18.04.2015 19:57:02 без макросов если понял Прикрепленные файлы Копия Day.xls (23.5 КБ) Изменено: Сергей - 18.04.2015 20:02:32 (адский интернет) Лень двигатель прогресса, доказано!!!

wedsad Пользователь Сообщений: 56 Регистрация: 26.01.2014	#6 19.04.2015 17:20:48 Сергей. Огромное и Вам спасибо. Круто. Вначале я неверно сформулировал вопрос Спасибо Всем.