Условие для срабатывания макроса

@Azat333 · Регистрация: 22.12.2015

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

Добрый день друзья программисты, целый день ломаю голову. Дело в том что, я написал макрос чтоб скрывать пустые строки в определенном диапазоне, но понял что нужно еще одно условие. Хочу чтоб макрос срабатывал по определенному столбцу а не по всему диапазону, если есть соответствующий признак "да". Т.е. если в верхней ячейки имеется признак "да" то мой макрос сработал, иначе не срабатывает. Помогите пожалуйста, срочно нужно. Прикрепляю файл. На данный момент макрос выглядит так (она работает отлично), нужно дополнить лишь:

Visual Basic

Sub HideEmptyRow1()
Dim x As Range
Application.ScreenUpdating = False
On Error Resume Next
For Each x In Range("B2:B25").Rows
  If Evaluate("SUM(ABS(" & x.Address & "))") <> 0 Then Else x.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

@pashulka · 22.12.2015, 17:05

Формально так :

Visual Basic

Sub HideEmptyRow2()
    If Range("B1") = "нет" Then Exit Sub
 
    Application.ScreenUpdating = False
    Dim x As Range
    For Each x In Range("B3:B25")
        x.EntireRow.Hidden = Not CBool(x)
    Next
    Application.ScreenUpdating = True
End Sub

Но, возможно, Вы хотите избавиться от столбца-константы B и скрывать строки только в столбце, где в шапке наличествует "да" , т.е. что-то типа этого :

Visual Basic

Sub HideEmptyRow2v2()
    Dim x As Range
    Set x = Rows(1).Find("да", , xlValues)
    If x Is Nothing Then Exit Sub
 
    Application.ScreenUpdating = False
    For Each x In x.Range("A3:A25")
        x.Rows.Hidden = Not CBool(x)
    Next
    Application.ScreenUpdating = True
End Sub

@Azat333 · 22.12.2015, 17:23 **[ТС]**

попробовал с вашей формулой , и выяснил что она работает только на столбец B1, подскажите пожалуйста как мне сделать формулу чтоб срабатывало по такому же признаку на все столбцы, то есть на B1 она сработал именно так как я хотел, а если в ячеке E1 тоже признак "да" уже не срабатывает. Помогите плииз

@pashulka · 22.12.2015, 17:34

Если признак "да" может быть только в одном столбце, то просто используйте второй вариант макроса.

Если же в нескольких, то желательно знать - критерий скрытия строки :
- если любая из ячеек пуста или содержит 0
- либо все ячейки должны быть пусты или 0

@Azat333 · 22.12.2015, 17:41 **[ТС]**

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

@pashulka · 22.12.2015, 17:59

P.S. Если количество строк в таблице не постоянно, то вместо

Visual Basic

1	x.Range("A3:A25")

можно написать, например,

Visual Basic

1	Intersect(x.Worksheet.UsedRange, x.EntireColumn)

@Azat333 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 22
	22.12.2015, 17:23 [ТС]	3
	попробовал с вашей формулой , и выяснил что она работает только на столбец B1, подскажите пожалуйста как мне сделать формулу чтоб срабатывало по такому же признаку на все столбцы, то есть на B1 она сработал именно так как я хотел, а если в ячеке E1 тоже признак "да" уже не срабатывает. Помогите плииз 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	22.12.2015, 17:34	4
	Сообщение было отмечено Azat333 как решение Решение Если признак "да" может быть только в одном столбце, то просто используйте второй вариант макроса. Если же в нескольких, то желательно знать - критерий скрытия строки : - если любая из ячеек пуста или содержит 0 - либо все ячейки должны быть пусты или 0 1

@Azat333 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 22
	22.12.2015, 17:41 [ТС]	5
	спасибо вам большое, дома протестировал на первый взгляд все сработало отлично! Завтра на работу постараюсь применить в своих отчетах! Если вы не против напишу вам, при возникновении вопросов. Большое спасибо! 0

	22.12.2015, 17:59

Условие для срабатывания макроса

Решение