Консультация № 105006
10.10.2007, 23:30
0.00 руб.
0 4 4
Здравствуйте ЭКСПЕРТЫ !
Имеется лист Excel, имеется столбец с датами. Как приделать дни недели к этому столбцу (чтобы в соседнем или в столбце с датами отображались дни недели)?
Проблема заключается в том, что в столбце с датами бывают проскальзывания( к примеру после 9.10.2007 может идти 11.10.2007).

Обсуждение

Неизвестный
10.10.2007, 23:49
общий
это ответ
Здравствуйте, Жорж!
Ну разве что так:
предположим в столбце А идут даты. тогда в B1 введите такую формулу: =ДЕНЬНЕД(ДАТАЗНАЧ(A1))
и тогда в В1 будет проставляться день недели, но числом. Если хотите что бы выводилось в форме "пн" "вт" то надо будет поизвращаться с функцией ЕСЛИ
давно
Специалист
399094
201
11.10.2007, 00:08
общий
это ответ
Здравствуйте, Жорж!
Воспользуйтесь таким макросом
<code>
Public Sub DayOfW()
Dim i As Integer
i = 1
While Range("A" + CStr(i)).Value <> ""
Range("B" + CStr(i)).Value = Format(Range("A" + CStr(i)).Value, "dddd")
i = i + 1
Wend
End Sub
</code>
Макрос пробегает по всем датам столбца А и определяет
день недели соответствующей даты. День недели заносится
в столбец рядом тоесть в столбец B. Думаю ВЫ сможете подкорректировать
под ВАШИ нужды как удобно ВАМ хоть в один столбец, хоть в любой другой
Кстати вместо столбца А можете вписать любой другой, также и для вывода результата. Удачи! Если будут вопросы по работе макроса пишите
Неизвестный
11.10.2007, 02:36
общий
это ответ
Здравствуйте, Жорж!

Сервис->Параметры->Редактор Visual Basic
Там создаете модуль, в нем функцию (в приложении).

Допустим, дата в ячейке A1, тогда в ячейке, где должен быть день недели (например, B1) пишете формулу:
=DayOfWeek(ДЕНЬНЕД(A1))

Приложение:
Function DayOfWeek(DayNum as Integer) as String Dim DoW() Dow = Array("Воскресенье", "Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота") DayOfWeek = DoW(DayNum)End Function
Неизвестный
11.10.2007, 20:23
общий
это ответ
Здравствуйте, Жорж!
Например в ячейке А1 у Вас дата, тогда вставив в ячейку В2 формулу:
=ЕСЛИ(ДЕНЬНЕД(A1)=1;"вс";ЕСЛИ(ДЕНЬНЕД(A1)=2;"вт";
ЕСЛИ(ДЕНЬНЕД(A1)=3;"ср";ЕСЛИ(ДЕНЬНЕД(A1)=4;"чт";
ЕСЛИ(ДЕНЬНЕД(A1)=5;"пт";ЕСЛИ(ДЕНЬНЕД(A1)=6;"сб";
ЕСЛИ(ДЕНЬНЕД(A1)=7;"пн";)))))))
Вы получите значение: "пн", "вт", ... , "вс".
<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Длинная строка.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=/info/user/5 target=_blank>Alexey G. Gladenyuk</a></b> (*Мастер-Эксперт)
<b>• Дата редактирования:</b> 11.10.2007, 21:16</font></fieldset>
Форма ответа