Макрос скрывающий столбцы по условию в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос скрывающий столбцы по условию в ячейке (Макросы/Sub)

Anton85

Дата: Понедельник, 13.06.2016, 21:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Пожалуйста помогите написать макрос. Задача макроса скрывать столбцы лист1, в зависимости от содержимого в лист2 ячейка A2.
Если Лист2. A2 = скорость, то скрыть Лист1.C:F
Если Лист2. A2 = сила, то скрыть Лист1.A:B и E:F
Если Лист2. A2 = выносливость, то скрыть Лист1.A:D

К сообщению приложен файл: 11111.xlsx (8.8 Kb)

Ответить

_Boroda_

Дата: Понедельник, 13.06.2016, 21:59 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16709

Репутация: 6501 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A2" Then
        With Sheets("Лист1")
            .Columns("A:F").EntireColumn.Hidden = True
            On Error Resume Next
            c_ = WorksheetFunction.Match(Target, .Rows(1), 0)
            .Columns(c_).Resize(, 2).EntireColumn.Hidden = False
        End With
    End If
End Sub

[/vba]

К сообщению приложен файл: 11111558_1.xlsm (16.2 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Anton85

Дата: Вторник, 14.06.2016, 07:00 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Да отлично, спасибо. Только можно активацию по кнопке?

Ответить

_Boroda_

Дата: Вторник, 14.06.2016, 07:46 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16709

Репутация: 6501 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Да не вопрос

К сообщению приложен файл: 11111558_2.xlsm (18.7 Kb)

Ответить

Anton85

Дата: Вторник, 14.06.2016, 08:00 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

отлично, спасибо)))))

Ответить

Anton85

Дата: Пятница, 17.06.2016, 12:24 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Думал что смогу подогнать макрос под свои задачи, но оказалась что я себя переоценил.... за что и поплатился. Не могли бы вы еще помочь. Скрывать столбцы надо по тому же принципу. Но

Задача макроса скрывать столбцы лист1, в зависимости от содержимого в лист2 ячейка A2.
Если Лист2. A2 = скорость, то скрыть Лист1.K:BA
Если Лист2. A2 = сила, то скрыть Лист1.G:J и M:BA
Если Лист2. A2 = выносливость, то скрыть Лист1.G:L

Сообщение отредактировал Anton85 - Пятница, 17.06.2016, 12:52

Ответить

sboy

Дата: Пятница, 17.06.2016, 13:24 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Без файлика как-то так
[vba]

Код

Sub SkrSt()
With Sheets("Лист1")
.Columns("A:BA").EntireColumn.Hidden = False
If Range("A2").Value = "скорость" Then .Range("K:BA").EntireColumn.Hidden = True
If Range("A2").Value = "сила" Then .Range("G:J, M:BA").EntireColumn.Hidden = True
If Range("A2").Value = "выносливость" Then .Range("G:L").EntireColumn.Hidden = True
End With
End Sub

[/vba]

Яндекс: 410016850021169

Ответить

_Boroda_

Дата: Пятница, 17.06.2016, 14:07 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16709

Репутация: 6501 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А зачем всегда 3 раза проверку делать? После первого True дальше не нужно
[vba]

Код

Sub SkrSt1()
    With Sheets("Лист1")
        .Columns("A:BA").EntireColumn.Hidden = False
        If Range("A2").Value = "скорость" Then .Range("K:BA").EntireColumn.Hidden = True: Exit Sub
        If Range("A2").Value = "сила" Then .Range("G:J, M:BA").EntireColumn.Hidden = True: Exit Sub
        If Range("A2").Value = "выносливость" Then .Range("G:L").EntireColumn.Hidden = True
    End With
End Sub

[/vba]
А вообще-то лучше наверное через Case
[vba]

Код

Sub SkrSt()
    With Sheets("Лист1")
        .Columns("A:BA").EntireColumn.Hidden = False
        Select Case Range("A2")
            Case "скорость"
                .Range("K:BA").EntireColumn.Hidden = True
            Case "сила"
                .Range("G:J, M:BA").EntireColumn.Hidden = True
            Case "выносливость"
                .Range("G:L").EntireColumn.Hidden = True
        End Select
    End With
End Sub

[/vba]