Скрыть пустые строки на листе

@ulugbek tulakov · Регистрация: 21.04.2021

Author24 — интернет-сервис помощи студентам

Добрый день. Можете помоч скрит пустых строк с формулой или макросом в 1-листе.

@Narimanych · 28.02.2023, 14:21

ulugbek tulakov,

https://uz.healthy-food-near-m... -in-excel/

@ulugbek tulakov · 28.02.2023, 14:30 **[ТС]**

Тут все вруную. Я попробоваль много вариантов но не получилос там в файле есть макрос Удалить_пустых_строк() но он удаляеть пустых строк везде. Мне надо чтоб он работаль в диапазоне строк 62:90 и 110:139. Не удалил а скриль строк в этом диапазоне.

@MikeVol · 28.02.2023, 15:18

ulugbek tulakov, Здравствуйте. Пробуйте:

Visual Basic

    Dim rng As Range
    Dim i As Long
    Set rng = Range("62:90")
 
    For i = rng.Rows.Count To 1 Step -1
 
        If WorksheetFunction.CountA(rng.Rows(i)) = 0 Then
            rng.Rows(i).Hidden = True
        End If
 
    Next i

На форуме полно тем с таким же вопросом. Поиск рулит.

P.S. Забыл сказать что остальные строки (110:139) по аналогии сделайте сами.

@Jack Famous · 28.02.2023, 15:37

Ещё вариант по мотивам выше)))

Visual Basic

Sub t()
Dim x, r&
    For Each x In Array("62-90", "110-139")
        x = Split(x, "-")
 
        For r = x(0) To x(1)
            If Not Rows(r).Hidden Then
                If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Hidden = True
            End If
        Next r
    Next x
End Sub

MikeVol, это не удаление и можно сверху идти, как обычно

@ulugbek tulakov · 28.02.2023, 16:05 **[ТС]**

Jack Famous, Спасибо. Но не работает вы прбовали в моём файле. Там в строках есть формули по этому можеть не работать? Если из-за формул не работаеть как быть.

@Jack Famous · 28.02.2023, 16:22

Сообщение от ulugbek tulakov

Но не работает вы прбовали в моём файле

Так у вас там 0 стоят (строка не считается пустой), которые просто скрыты форматом ячейки

Считаем ячейки с нолями пустыми

Visual Basic

Sub t()
Dim x, arr, r&, c&
    For Each x In Array("62-90", "110-139")
        x = Split(x, "-")
 
        For r = x(0) To x(1)
            If Rows(r).Hidden Then GoTo nx
            arr = Intersect(Rows(r), ActiveSheet.UsedRange).Value2
 
            For c = 1 To UBound(arr, 2)
                If Len(arr(1, c)) <> 0 Then If arr(1, c) <> 0 Then GoTo nx
            Next c
 
            Rows(r).Hidden = True
nx:     Next r
    Next x
End Sub

@ulugbek tulakov · 28.02.2023, 16:26 **[ТС]**

Файле 1-листа имееть 3-форми 8, 8а и 8б там поставиться оценки студентам из предмета каторий сдаль экзамен. Форми 8а и 8б для неуспеваюших студентам. В конча листов есть семестровка он берёт оценки из листов.Сейчас семестровка берет оценки только с 8-форми. Неуспеваемих студентов есть оценка всех формах. Поэтому сделать формули чтоб в семестовку отобразилься самий максималний оценка студента из всех формах (8, 8а и 8б).

@Jack Famous · 28.02.2023, 16:28

ulugbek tulakov, я ни черта не понял
В вашем файле мой код прекрасно отработал

@ulugbek tulakov · 28.02.2023, 17:03 **[ТС]**

Сообщение от Jack Famous

Так у вас там 0 стоят (строка не считается пустой), которые просто скрыты форматом ячейки

Супер все работаль

Добавлено через 21 минуту
Например студент Алексей первий раз не пришёл в экзамен и у него в место оценки в ячейке G16 поставили "kelmagan". После пересдачи он брал "2" (двойку) ячейка G65. У него остался последний шанс и он этот раз сдаль экзамен на "3" (тройку) ячейка G114.
В семестровку из этих оценках отобразилься максималний 3 [3]. Число в квадратним скобке обозначаеть что сдуденть сдал экзамен на 3-й раз или в форме 8б. В квадратним скобке можеть быть число от 1 до 3 смотря в каком попытке он сдал экзамен.
Для этого надо формула. Помогите.

Добавлено через 5 минут
Jack Famous, Можете памоч.

@Jack Famous · 28.02.2023, 17:09

Сообщение от ulugbek tulakov

Для этого надо формула. Помогите.

создайте новую тему. Вопрос этой не касается

@MikeVol · 28.02.2023, 19:42

ulugbek tulakov, а мой вариант из поста #4 не подошёл?
Jack Famous, я знаю что это не удаление. Первое что вспомнил так как в своё время тоже искал решение на эту тему. ТС просил конкретно скрыть строки 62:90 и 110:139 вот и дал пример. По всем строкам листа я не пробежался а именно только эти строки указал. Да и сам файл я не смотрел.

@ulugbek tulakov · 01.03.2023, 04:40 **[ТС]**

Jack Famous,

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

а мой вариант из поста #4 не подошёл?

Не подошёл. Но также спасибо

@Jack Famous · 01.03.2023, 09:22

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

мой вариант из поста #4 не подошёл?

так я свой на основе вашего и делал. У ТСа нули в строках (которые нужно считать пустыми) и СЧЁТЗ/СЧИТАТЬПУСТОТЫ (в том виде) не подойдут

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

я знаю что это не удаление

я прост на всякий случай)))

@MikeVol Одесса - Украина 463 / 154 / 55 Регистрация: 01.04.2020 Сообщений: 500
	28.02.2023, 19:42	12
	ulugbek tulakov, а мой вариант из поста #4 не подошёл? Jack Famous, я знаю что это не удаление. Первое что вспомнил так как в своё время тоже искал решение на эту тему. ТС просил конкретно скрыть строки 62:90 и 110:139 вот и дал пример. По всем строкам листа я не пробежался а именно только эти строки указал. Да и сам файл я не смотрел. 0

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

@Narimanych 2747 / 1721 / 779 Регистрация: 23.03.2015 Сообщений: 5,439
	28.02.2023, 14:21	2
	ulugbek tulakov, https://uz.healthy-food-near-m... -in-excel/ 1

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	28.02.2023, 14:30 [ТС]	3
	Тут все вруную. Я попробоваль много вариантов но не получилос там в файле есть макрос Удалить_пустых_строк() но он удаляеть пустых строк везде. Мне надо чтоб он работаль в диапазоне строк 62:90 и 110:139. Не удалил а скриль строк в этом диапазоне. 0

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	28.02.2023, 16:05 [ТС]	6
	Jack Famous, Спасибо. Но не работает вы прбовали в моём файле. Там в строках есть формули по этому можеть не работать? Если из-за формул не работаеть как быть. 0

@Jack Famous 900 / 333 / 43 Регистрация: 10.05.2021 Сообщений: 1,443 Записей в блоге: 10
	28.02.2023, 16:28	9
	ulugbek tulakov, я ни черта не понял В вашем файле мой код прекрасно отработал 0

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	28.02.2023, 17:03 [ТС]	10
	Сообщение от Jack Famous Так у вас там 0 стоят (строка не считается пустой), которые просто скрыты форматом ячейки Супер все работаль Добавлено через 21 минуту Например студент Алексей первий раз не пришёл в экзамен и у него в место оценки в ячейке G16 поставили "kelmagan". После пересдачи он брал "2" (двойку) ячейка G65. У него остался последний шанс и он этот раз сдаль экзамен на "3" (тройку) ячейка G114. В семестровку из этих оценках отобразилься максималний 3 [3]. Число в квадратним скобке обозначаеть что сдуденть сдал экзамен на 3-й раз или в форме 8б. В квадратним скобке можеть быть число от 1 до 3 смотря в каком попытке он сдал экзамен. Для этого надо формула. Помогите. Добавлено через 5 минут Jack Famous, Можете памоч. 0

@Jack Famous 900 / 333 / 43 Регистрация: 10.05.2021 Сообщений: 1,443 Записей в блоге: 10
	28.02.2023, 17:09	11
	Сообщение от ulugbek tulakov Для этого надо формула. Помогите. создайте новую тему. Вопрос этой не касается 1

@ulugbek tulakov -4 / 0 / 0 Регистрация: 21.04.2021 Сообщений: 215
	01.03.2023, 04:40 [ТС]	13
	Jack Famous, Сообщение от MikeVol а мой вариант из поста #4 не подошёл? Не подошёл. Но также спасибо 0

@Jack Famous 900 / 333 / 43 Регистрация: 10.05.2021 Сообщений: 1,443 Записей в блоге: 10
	01.03.2023, 09:22	14
	Сообщение от MikeVol мой вариант из поста #4 не подошёл? так я свой на основе вашего и делал. У ТСа нули в строках (которые нужно считать пустыми) и СЧЁТЗ/СЧИТАТЬПУСТОТЫ (в том виде) не подойдут Сообщение от MikeVol я знаю что это не удаление я прост на всякий случай))) 0