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

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

Private Sub Worksheet_Change(ByVal Target As Range)

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

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

Private Sub Worksheet_Change(ByVal Target As Range)

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

End Sub
Функции должны быть на английском
...
Рейтинг: 0 / 0
Скрыть строки с выходными.
    #37482367
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
с Weekday тоже не получается (
...
Рейтинг: 0 / 0
Скрыть строки с выходными.
    #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
Скрыть строки с выходными.
    #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
Скрыть строки с выходными.
    #37482589
Фотография PlomBir1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем спасибо)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Скрыть строки с выходными.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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