Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скрыть строки с выходными. / 6 сообщений из 6, страница 1 из 1
14.10.2011, 12:56
    #37482296
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть строки с выходными.
Всем привет).
Есть таблица, где в столбце "А" даты с1 по 31, в "В" данные, нужно чтобы строки с выходными автоматом скрывались, если в "В" ничего не написано.

Пытался макросом

Private Sub Worksheet_Change(ByVal Target As Range)

Rows("11").Hidden = [деньнед(A11;2)>5]

End Sub
...
Рейтинг: 0 / 0
14.10.2011, 13:04
    #37482313
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть строки с выходными.
PlomBir1Пытался макросом

Private Sub Worksheet_Change(ByVal Target As Range)

Rows("11").Hidden = [деньнед(A11;2)>5]

End Sub
Функции должны быть на английском
...
Рейтинг: 0 / 0
14.10.2011, 13:22
    #37482367
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть строки с выходными.
с Weekday тоже не получается (
...
Рейтинг: 0 / 0
14.10.2011, 14:04
    #37482474
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть строки с выходными.
Private Sub www()
Dim i&
For i = 1 To 31
Rows(i).Hidden = Weekday(Cells(i, 1), vbMonday) > 5
Next
End Sub
...
Рейтинг: 0 / 0
14.10.2011, 14:06
    #37482478
kuklp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть строки с выходными.
kuklp,
Private Sub www()
Dim i&
For i = 1 To 31
Rows(i).Hidden = Weekday(Cells(i, 1), vbMonday) > 5 And Cells(i, 2) = ""
Next
End Sub
...
Рейтинг: 0 / 0
14.10.2011, 14:51
    #37482589
PlomBir1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрыть строки с выходными.
Всем спасибо)
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скрыть строки с выходными. / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]