Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать так, чтобы ячейки скрывались автоматически? / 12 сообщений из 12, страница 1 из 1
20.07.2007, 14:47:05
    #34673546
Tmoon
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
Мне было предложено несколько вариантов для решения этой проблемы, но у меня все равно не получилось сделать так, чтобы при выборе в выпадающем меню Пункта "Полученные кредиты", "Выданные кредиты - ЮЛ", "Выданные кредиты - ФЛ", скрывались пустые столбцы между столбцами "Проценты" и "Дата получения". Подскажите, что надо сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.07.2007, 22:23:45
    #34674682
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
Tmoon скрывались пустые столбцы между столбцами "Проценты" и "Дата получения".
Что то я не увидел там этих столбцов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2007, 15:46:31
    #34677660
Tmoon
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
Когда выбирается в выпадающем меню "Выданные кредиты и займы" то в столбцах I:N стоят нули. Надо чтобы эти строки скрывались, т.к. не нисут никакой информации и вводят руководство в заблуждение. Т.к. те мыслят так: "если колонки есть, значит они зачем-то нужны, а если не нужны, то их бы там не было.."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2007, 19:14:17
    #34678337
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
Добавьте условие в раскр_список_2!Изменение
if ваш список.value="Выданные кредиты - ФЛ" then columns("I:N").hidden=true в обработчик
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2007, 10:50:13
    #34679180
Tmoon
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
А как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2007, 10:57:58
    #34679219
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
покажите код этого макроса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2007, 12:04:17
    #34679543
Tmoon
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
макроса?... Вот сокращенный вариант конечного файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2007, 12:06:27
    #34679553
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
нужен вот этот - Раскрсписок2_Изменение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.07.2007, 12:13:09
    #34682574
Tmoon
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
Все навно не получается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2007, 13:23:30
    #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:42:55
    #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
| Ответить | Цитировать | Написать  
01.08.2007, 08:31:33
    #34697120
Tmoon
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать так, чтобы ячейки скрывались автоматически?
Вставила этот макрос в код листа. При данном макросе ячейки все равно не скрываются. В чем может быть проблема?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать так, чтобы ячейки скрывались автоматически? / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 324ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182526]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 212ms
total:  324ms
x
x
Закрыть


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