| Вопрос: КАК СКРЫТЬ СТОЛБЕЦ | Добавлено: 14.12.05 18:52 |
Автор вопроса:  SLAVA
|
|
КАК СКРЫТЬ СТОЛБЕЦ А:А,ЕСЛИ А1>0,СТОЛБЕЦ B:B,ЕСЛИ B1>0 И Т.Д
ЗАРАНИЕ СПАСИБО PRAVELINII@MAIL.RU PRISHLITI ESLI NE TRUDNO |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 15.12.05 10:36 |
|
Option Explicit
Sub mac() Dim i As Integer Dim sh As Worksheet Set sh = ThisWorkbook.Worksheets("Лист1" 
For i = 1 To 255 If sh.Cells(1, i).Value > 0 Then sh.Columns(i).Hidden = True Else sh.Columns(i).Hidden = False End If Next i Set sh = Nothing End Sub |
||
|
Номер ответа: 2 Автор ответа: SLAVA Вопросов: 8 Ответов: 22 |
Профиль | Цитата | #2 | Добавлено: 15.12.05 14:24 |
| Особая благодарность mc-black | ||
|
Номер ответа: 3 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 15.12.05 14:49 |
|
Пожалуйста, никогда больше не оформляйте свои сообщения так ужасно.
|
||
|
Номер ответа: 4 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #4 | Добавлено: 15.12.05 14:57 |
У SLAVA видимо тогда клавиша Shift заклинило. )
|
||
Страница: 1 |