Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Показать столбец по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Показать столбец по условию (Показать столбец в зависимости от данных в ячейке)
Показать столбец по условию
Pulse Дата: Воскресенье, 30.12.2012, 19:05 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Добрый вечер! С Наступающим всех праздником! holiday
Итак, smile Есть таблица, в которой требуется показать столбец, в зависимости от того, что находится в определённой ячейке.
К сообщению приложен файл: 7705.xls (29.0 Kb)


Сообщение отредактировал Pulse - Воскресенье, 30.12.2012, 19:05
 
Ответить
СообщениеДобрый вечер! С Наступающим всех праздником! holiday
Итак, smile Есть таблица, в которой требуется показать столбец, в зависимости от того, что находится в определённой ячейке.
Автор - Pulse
Дата добавления - 30.12.2012 в 19:05
Michael_S Дата: Воскресенье, 30.12.2012, 19:35 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
[vba]
Код
Sub Column_Hidden()
        Columns("F:F").EntireColumn.Hidden = [a5] = 1
End Sub
[/vba]
или на изменение в А5
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address <> "$A$5" Then Exit Sub
       Columns("F:F").EntireColumn.Hidden = Target = 1
End Sub
[/vba]


Сообщение отредактировал Michael_S - Воскресенье, 30.12.2012, 19:52
 
Ответить
Сообщение[vba]
Код
Sub Column_Hidden()
        Columns("F:F").EntireColumn.Hidden = [a5] = 1
End Sub
[/vba]
или на изменение в А5
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Address <> "$A$5" Then Exit Sub
       Columns("F:F").EntireColumn.Hidden = Target = 1
End Sub
[/vba]
Автор - Michael_S
Дата добавления - 30.12.2012 в 19:35
ABC Дата: Воскресенье, 30.12.2012, 19:39 | Сообщение № 3
Группа: Друзья
Ранг: Обитатель
Сообщений: 397
Репутация: 112 ±
Замечаний: 0% ±

Excel 2007
или так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target = Range("A5") Then
         If Target.Value = 1 Then Columns(6).EntireColumn.Hidden = False Else Columns(6).EntireColumn.Hidden = True
     End If
End Sub
[/vba]

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет
 
Ответить
Сообщениеили так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target = Range("A5") Then
         If Target.Value = 1 Then Columns(6).EntireColumn.Hidden = False Else Columns(6).EntireColumn.Hidden = True
     End If
End Sub
[/vba]
Автор - ABC
Дата добавления - 30.12.2012 в 19:39
AlexM Дата: Воскресенье, 30.12.2012, 19:45 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Или smile
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A5" Then Columns(6).EntireColumn.Hidden = IIf(Target = 1, False, True)
End Sub
[/vba]

Дополнение.
Единственную строку в коде можно написать так
[vba]
Код
Columns(6).EntireColumn.Hidden = IIf(Target.Address = "$A$5" And Target = 1, False, True)
[/vba]
К сообщению приложен файл: 7705_new.xls (35.0 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 30.12.2012, 20:00
 
Ответить
СообщениеИли smile
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A5" Then Columns(6).EntireColumn.Hidden = IIf(Target = 1, False, True)
End Sub
[/vba]

Дополнение.
Единственную строку в коде можно написать так
[vba]
Код
Columns(6).EntireColumn.Hidden = IIf(Target.Address = "$A$5" And Target = 1, False, True)
[/vba]
Автор - AlexM
Дата добавления - 30.12.2012 в 19:45
Pulse Дата: Воскресенье, 30.12.2012, 19:54 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Michael_S, ABC, AlexM,
 
Ответить
Сообщение Michael_S, ABC, AlexM,
Автор - Pulse
Дата добавления - 30.12.2012 в 19:54
Pulse Дата: Воскресенье, 30.12.2012, 20:05 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Дополнение. smile А как будет, если хотя бы в одной ячейке из диапазона А5:А8 есть "1"? Условие то-же.
 
Ответить
СообщениеДополнение. smile А как будет, если хотя бы в одной ячейке из диапазона А5:А8 есть "1"? Условие то-же.
Автор - Pulse
Дата добавления - 30.12.2012 в 20:05
AlexM Дата: Воскресенье, 30.12.2012, 20:15 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Можно так
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A5:A8"), Target) Is Nothing Then
     On Error Resume Next
     IFind = Range("A5:A8").Find(What:=1)
     Columns(6).EntireColumn.Hidden = IIf(IFind <> Empty, False, True)
End If
End Sub
[/vba]
К сообщению приложен файл: 7705_new1.xls (34.0 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеМожно так
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A5:A8"), Target) Is Nothing Then
     On Error Resume Next
     IFind = Range("A5:A8").Find(What:=1)
     Columns(6).EntireColumn.Hidden = IIf(IFind <> Empty, False, True)
End If
End Sub
[/vba]
Автор - AlexM
Дата добавления - 30.12.2012 в 20:15
Pulse Дата: Воскресенье, 30.12.2012, 20:17 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
AlexM, завтра зайду нажать на плюс. ) Спасибо!
 
Ответить
Сообщение AlexM, завтра зайду нажать на плюс. ) Спасибо!
Автор - Pulse
Дата добавления - 30.12.2012 в 20:17
Pulse Дата: Воскресенье, 30.12.2012, 21:00 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 213
Репутация: 16 ±
Замечаний: 0% ±

2013
Подскажите, а можно сделать так, чтобы этот скрытый столбец F выезжал плавно, не сразу? smile
И ещё, как будет с примером ниже? Т.е. когда данные в стобец "A" вводятся не вручную, а являются ссылками на стобец "B".
К сообщению приложен файл: 8798.xls (34.0 Kb)


Сообщение отредактировал Pulse - Понедельник, 31.12.2012, 05:24
 
Ответить
СообщениеПодскажите, а можно сделать так, чтобы этот скрытый столбец F выезжал плавно, не сразу? smile
И ещё, как будет с примером ниже? Т.е. когда данные в стобец "A" вводятся не вручную, а являются ссылками на стобец "B".
Автор - Pulse
Дата добавления - 30.12.2012 в 21:00
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Показать столбец по условию (Показать столбец в зависимости от данных в ячейке)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!