Скрыть/отобразить строки со значениями

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

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

патрик

Дата: Понедельник, 22.10.2012, 22:25 | Сообщение № 1

Группа: Гости

Здравствуйте! Подскажите макрос для отображения/скрытия определенных строк при выборе значения. Т.е. вводишь в ячейку значение 1 - отображаются все строки, если 2 - скрываются строки 2,4,15,20, если 3 - скрываются строки 2,4,15,20,21,25 и так далее.
Заранее спасибо.
p.s. я так понимаю макрос должен быть написан через "если", но в написании ничего не шарю

Ответить

ABC

Дата: Понедельник, 22.10.2012, 23:09 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 397

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

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

Excel 2007

поищите Select Case место If (ЕСЛИ)

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Ответить

Hugo

Дата: Понедельник, 22.10.2012, 23:09 | Сообщение № 3

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

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

Сообщений: 3690

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

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

365

[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
       Dim el
       If Target.Address(0, 0) = "A1" Then
           Application.ScreenUpdating = False
           Select Case True
           Case Target.Value = 1: Rows.Hidden = False
           Case Target.Value = 2: Rows.Hidden = False
               For Each el In Array(2, 4, 15, 20)
                   Rows(el).Hidden = True
               Next
           Case Target.Value = 3: Rows.Hidden = False
               For Each el In Array(2, 4, 15, 20, 21, 25)
                   Rows(el).Hidden = True
               Next
           End Select
       End If
       Application.ScreenUpdating = True
End Sub

[/vba]

P.S. Что-то я усложнил... Так проще:
[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
      Dim el
      If Target.Address(0, 0) = "A1" Then
          Application.ScreenUpdating = False
          Select Case Target
          Case 1: Rows.Hidden = False
          Case 2: Rows.Hidden = False
              For Each el In Array(2, 4, 15, 20)
                  Rows(el).Hidden = True
              Next
          Case 3: Rows.Hidden = False
              For Each el In Array(2, 4, 15, 20, 21, 25)
                  Rows(el).Hidden = True
              Next
          End Select
      End If
      Application.ScreenUpdating = True
End Sub

[/vba]

Как видно по коду - анализируется значение ячейки A1.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

KuklP

Дата: Понедельник, 22.10.2012, 23:34 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Чет ты Игорь перемудрил:-)
[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
         If Target.Address(0, 0) = "A1" Then
             Application.ScreenUpdating = False
             Rows.Hidden = False
             Select Case Target
             Case 2: [2:2,4:4,15:15,20:20].EntireRow.Hidden = True
             Case 3: [2:2,4:4,15:15,20:21,25:25].EntireRow.Hidden = True
             End Select
         End If
         Application.ScreenUpdating = True
End Sub

[/vba]
или:
[vba]

Code

Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address(0, 0) = "A1" Then
           Application.ScreenUpdating = False
           Rows.Hidden = False
           If Target = 2 Then [2:2,4:4,15:15,20:20].EntireRow.Hidden = True
           If Target = 3 Then [2:2,4:4,15:15,20:21,25:25].EntireRow.Hidden = True
       End If
       Application.ScreenUpdating = True
End Sub

[/vba]