Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.12.2008, 11:25   #1
tferapontova
Пользователь
 
Регистрация: 18.12.2008
Сообщений: 11
По умолчанию Unhide определенную колонку в зависимости от значения в другой колонке

Помогите, пожалуйста, с задачкой

в колонке А содержится некий список, например: 1,2,3
колонки B-D спрятаны (hide)
нужно, чтобы в зависимости от того, какое значение было выбрано в A зависимая от него колонка появлялась..например, в А выбрано 1, тогда столбец B unhide...
Сломала уже голову...

Буду очень благодарна!!
tferapontova вне форума
Старый 18.12.2008, 11:57   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

вставте это
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row + Target.Column = 2 Then
      If Target < 1 Or Target > 3 Then Exit Sub
      Columns("B:D").Hidden = True
      Columns(Target+1).Hidden = False
    End If
End Sub
в код нужного листа. внесенная в ячейку А1 цифра 1,2 или 3 сделает открытой указанную колонку, две остальных спрячет.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Последний раз редактировалось IgorGO; 18.12.2008 в 12:35.
IgorGO вне форума
Старый 18.12.2008, 12:20   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

А я понял по другому. Посмотрите вложения.
В первом файле реализовано то, что оговорено в задании, а во втором - произвольное количество "рабочих" столбцов (т.е. тех, которые нужно прятать/отображать). В примере - это все столбцы, начиная с "B". Если нужно ограничить - в коде макроса в строке
Код:
Range(Columns("B"), Columns(Columns.Count)).Hidden = True
поменяйте Columns.Count на требуемое значение (номер последнего столбца, до которого нужно их скрывать).
Вложения
Тип файла: rar UnHidden.rar (6.1 Кб, 20 просмотров)
Тип файла: rar UnHidden_2.rar (6.4 Кб, 16 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 18.12.2008, 13:04   #4
tferapontova
Пользователь
 
Регистрация: 18.12.2008
Сообщений: 11
По умолчанию

СПАСИБО ВАМ БОЛЬШОЕ -сейчас буду пробовать и первый вариант и второй!!!

tferapontova вне форума
Старый 18.12.2008, 13:21   #5
tferapontova
Пользователь
 
Регистрация: 18.12.2008
Сообщений: 11
По умолчанию

SAS888
это почти то, что я имела ввиду, только в колонке A у меня выпадающий список, из которого и выбираются значения 1,2,3...
сейчас вариант со списком не срабатывает...
это вообще возможно, чтобы работало со списком?
tferapontova вне форума
Старый 18.12.2008, 13:26   #6
tferapontova
Пользователь
 
Регистрация: 18.12.2008
Сообщений: 11
По умолчанию

IgorGo,
проверила в Вашем файле - со списком все получается! спасибо!
tferapontova вне форума
Старый 18.12.2008, 13:44   #7
tferapontova
Пользователь
 
Регистрация: 18.12.2008
Сообщений: 11
По умолчанию

IgorGo,
теперь у меня не получается изменить макрос под мою реальную задачу... может быть, Вы сможете мне еще разок помочь, пожалуйста?

подробнее и понятнее, что я имею ввиду на принтскрине (т.к.файл вставить у меня тоже не получается....)
Изображения
Тип файла: jpg hide-unhide.jpg (12.5 Кб, 125 просмотров)
tferapontova вне форума
Старый 18.12.2008, 13:51   #8
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Меня ввело в заблуждение то, что
Цитата:
в колонке А содержится некий список, например: 1,2,3
Как список может содержаться в "колонке"?
Теперь ясно. Посмотрите вложение. Пояснения в коде. Проверка на допустимость значений ячейки со списком не проводится. Думаю, что т.к. список уже создан, то это ни к чему.
Вложения
Тип файла: rar UnHidden_3.rar (6.6 Кб, 17 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 18.12.2008, 14:04   #9
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Конкретный вопрос - конкретный ответ. Посмотрите вложение.
Вложения
Тип файла: rar UnHidden_4.rar (4.8 Кб, 17 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 18.12.2008, 14:09   #10
tferapontova
Пользователь
 
Регистрация: 18.12.2008
Сообщений: 11
По умолчанию

я только учусь еще делать всякие магические штуки в Excel - поэтому у меня "в колонке" вполне может быть список ) прошу прощения за то, что ввела в заблуждение.

только теперь у меня такой же вопрос, как и к IgorGo - как адаптировать под мою задачу?...может быть. вы гляните в файл, пожалуйста?
там описаны задачи в зеленых полях...
Вложения
Тип файла: zip 1234.zip (4.3 Кб, 14 просмотров)
tferapontova вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В зависимости от значений в edit открыть определенную форму. decantnik Помощь студентам 7 07.11.2008 22:37
залить ячейку красным или зелным в зависимости от предыдущего значения olimpus Microsoft Office Excel 5 09.10.2008 06:05
Окрашивание текста в зависимости от значения art1cool Microsoft Office Excel 2 19.08.2008 12:29
Считать определенную строку из файла DimkinStd Работа с сетью в Delphi 4 15.02.2007 22:30