ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать так, чтобы ячейки скрывались автоматически?
12 сообщений из 12, страница 1 из 1
Как сделать так, чтобы ячейки скрывались автоматически?
    #34673546
Tmoon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tmoon
Гость
Мне было предложено несколько вариантов для решения этой проблемы, но у меня все равно не получилось сделать так, чтобы при выборе в выпадающем меню Пункта "Полученные кредиты", "Выданные кредиты - ЮЛ", "Выданные кредиты - ФЛ", скрывались пустые столбцы между столбцами "Проценты" и "Дата получения". Подскажите, что надо сделать?
...
Рейтинг: 0 / 0
20.07.2007, 14:47:05
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34674682
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Tmoon скрывались пустые столбцы между столбцами "Проценты" и "Дата получения".
Что то я не увидел там этих столбцов
...
Рейтинг: 0 / 0
20.07.2007, 22:23:45
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34677660
Tmoon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tmoon
Гость
Когда выбирается в выпадающем меню "Выданные кредиты и займы" то в столбцах I:N стоят нули. Надо чтобы эти строки скрывались, т.к. не нисут никакой информации и вводят руководство в заблуждение. Т.к. те мыслят так: "если колонки есть, значит они зачем-то нужны, а если не нужны, то их бы там не было.."
...
Рейтинг: 0 / 0
23.07.2007, 15:46:31
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34678337
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Добавьте условие в раскр_список_2!Изменение
if ваш список.value="Выданные кредиты - ФЛ" then columns("I:N").hidden=true в обработчик
...
Рейтинг: 0 / 0
23.07.2007, 19:14:17
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34679180
Tmoon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tmoon
Гость
А как это сделать?
...
Рейтинг: 0 / 0
24.07.2007, 10:50:13
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34679219
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
покажите код этого макроса
...
Рейтинг: 0 / 0
24.07.2007, 10:57:58
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34679543
Tmoon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tmoon
Гость
макроса?... Вот сокращенный вариант конечного файла
...
Рейтинг: 0 / 0
24.07.2007, 12:04:17
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34679553
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
нужен вот этот - Раскрсписок2_Изменение
...
Рейтинг: 0 / 0
24.07.2007, 12:06:27
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34682574
Tmoon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tmoon
Гость
Все навно не получается
...
Рейтинг: 0 / 0
25.07.2007, 12:13:09
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34695370
Tmoon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tmoon
Гость
Что нужно исправить здесь?

Private Sub TextBox1_Change()
Const Columns1 = "I:N"

If Shapes("Раскр. список 2").Value = 1 Then
Columns(Columns1).Hidden = True
ElseIf Shapes("Раскр. список 2").Value = 9 Then
Columns(Columns1).Hidden = True
ElseIf Shapes("Раскр. список 2").Value = 17 Then
Columns(Columns1).Hidden = True
Else
Columns(Columns1).Hidden = False
End If
End Sub
...
Рейтинг: 0 / 0
31.07.2007, 13:23:30
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34695434
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub TextBox1_Change()
Const Columns1 = "I:N"

        select case Range("C2").Value
         case  1 , 9 , 17 
            Columns(Columns1).Hidden = True        
         case else
             Columns(Columns1).Hidden = False
        End If
End Sub
в строку case 1,9,17 через запятую добавьте номера при которых должны скрываться столбцы.
...
Рейтинг: 0 / 0
31.07.2007, 13:42:55
| Ответить | Цитировать | Написать  
Как сделать так, чтобы ячейки скрывались автоматически?
    #34697120
Tmoon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tmoon
Гость
Вставила этот макрос в код листа. При данном макросе ячейки все равно не скрываются. В чем может быть проблема?
...
Рейтинг: 0 / 0
01.08.2007, 08:31:33
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать так, чтобы ячейки скрывались автоматически?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2182526]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 60ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 216ms
total:  350ms
созд. / загр.: 350ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]