Прошу помочь с макросом. Дни недели - Microsoft Office Excel - Страница 2

kzld · 30.11.2009, 07:17

Цитата:

Сообщение от IgorGO

извините, без макросов...

ОТлично, вот только как даты расположить вертикально, т.е. в столбик?

IgorGO · 30.11.2009, 10:31

пишите дату куда угодно, в любую ячейку. Горизонтально, вертикально, наискосок... субботы и воскресенья будут залиты красным цветом.
Удачи!

VictorM · 30.11.2009, 13:41

Цитата:

Желаю макросом выделять выходные дни.

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

Sh_Alex · 30.11.2009, 16:24

kzld! Для Вашего файла "kassa" может быть такой код:

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In ActiveSheet.Range("A8:A164")
If Weekday(cell) > 5 Then cell.Interior.ColorIndex = 3
Next
End Sub

С уважением, Александр.

kzld · 30.11.2009, 19:04

Цитата:

Сообщение от VictorM

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

Спасибо за решение

kzld · 30.11.2009, 19:08

Цитата:

Сообщение от Sh_Alex

kzld! Для Вашего файла "kassa" может быть такой код:

вырезано

С уважением, Александр.

Спасибо, буду пробовать

30.11.2009, 10:31	#12
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	пишите дату куда угодно, в любую ячейку. Горизонтально, вертикально, наискосок... субботы и воскресенья будут залиты красным цветом. Удачи! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Очень прошу помочь!	goggin	Помощь студентам	1	15.12.2008 19:11
Прошу помочь. Оплачу.	dreo	Фриланс	8	22.12.2007 00:35
Прошу помочь с запросом	MASTERKEY	БД в Delphi	0	18.05.2007 15:15

30.11.2009, 16:24	#14
Sh_Alex Пользователь Регистрация: 02.02.2009 Сообщений: 59	kzld! Для Вашего файла "kassa" может быть такой код: Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In ActiveSheet.Range("A8:A164") If Weekday(cell) > 5 Then cell.Interior.ColorIndex = 3 Next End Sub С уважением, Александр.