Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
03.02.2009, 14:34:27
|
|||
|---|---|---|---|
|
|||
Скрыть столбцы |
|||
|
#18+
В теме созданной мною ранее я попросил помочь мне задачу скрытия строк. На что получил в ответ такой вот макрос: Private Sub Worksheet_Change(ByVal Target As Range) If Range("A15") = 1 Then Rows("15:20").EntireRow.Hidden = True If Range("A15") = 0 Then Rows("15:20").EntireRow.Hidden = False End Sub Как мне теперь заставить его скрывать не строки а столбцы? Например B и C при условии что А15=1, и открывать их при условии что А15=0? Как подправить? Помогите пожалуйста. Очень надо... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.02.2009, 14:44:22
|
|||
|---|---|---|---|
Скрыть столбцы |
|||
|
#18+
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A15") = 1 Then columns("B:C").EntireColumn.Hidden = True If Range("A15") = 0 Then columns("B:C").EntireColumn.Hidden = False End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.02.2009, 14:47:11
|
|||
|---|---|---|---|
|
|||
Скрыть столбцы |
|||
|
#18+
LidaRozPrivate Sub Worksheet_Change(ByVal Target As Range) If Range("A15") = 1 Then columns("B:C").EntireColumn.Hidden = True If Range("A15") = 0 Then columns("B:C").EntireColumn.Hidden = False End Sub Спасибо большое! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.02.2009, 15:01:34
|
|||
|---|---|---|---|
|
|||
Скрыть столбцы |
|||
|
#18+
А каким знаком препинания мне разделить столбцы при перечислении? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2179845]: |
0ms |
get settings: |
6ms |
get forum list: |
19ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
196ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
28ms |
get tp. blocked users: |
1ms |
| others: | 235ms |
| total: | 502ms |
| 0 / 0 |
