ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Большая таблица_скрыть ячейки (макрос)
5 сообщений из 5, страница 1 из 1
Большая таблица_скрыть ячейки (макрос)
    #34132598
Ronin_RAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ronin_RAS
Гость
Добрый день уважаемые коллеги!

Помогите плиз не очень опытному пользователю.

Необходимо написпть макрос, что бы пустые ячейки по горизонтали и вертикали скрывались.

Файл я прикрепил.

Заранее спасибо...
...
Рейтинг: 0 / 0
16.11.2006, 11:46:51
| Ответить | Цитировать | Написать  
Большая таблица_скрыть ячейки (макрос)
    #34132681
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Option Explicit

Sub HideEmtyColumns()
Dim ColumnIndex As Integer
Dim LastCol As Integer
Dim LastRow As Long

    LastCol = Rows( 5 ).Find("ВСЬОГО").Column
    LastRow = Columns( 1 ).Find("ВСЬОГО").Row

    For ColumnIndex =  3  To LastCol -  1 
        If Not Cells(LastRow, ColumnIndex).Value >  0  Then
            Columns(ColumnIndex).Hidden = True
        Else
            Columns(ColumnIndex).Hidden = False
        End If
    Next ColumnIndex
End Sub


Sub HideEmtyRows()
Dim RowIndex As Integer
Dim LastCol As Integer
Dim LastRow As Long

    LastCol = Rows( 5 ).Find("ВСЬОГО").Column
    LastRow = Columns( 1 ).Find("ВСЬОГО").Row

    For RowIndex =  8  To LastRow -  1 
        If Not Cells(RowIndex, LastCol).Value >  0  Then
            Rows(RowIndex).Hidden = True
        Else
            Rows(RowIndex).Hidden = False
        End If
    Next RowIndex
End Sub
...
Рейтинг: 0 / 0
16.11.2006, 12:02:10
| Ответить | Цитировать | Написать  
Большая таблица_скрыть ячейки (макрос)
    #34133124
Ronin_RAS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ronin_RAS
Гость
Пишет ошибку Run-time error 91
...
Рейтинг: 0 / 0
16.11.2006, 13:24:42
| Ответить | Цитировать | Написать  
Большая таблица_скрыть ячейки (макрос)
    #34133173
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Ronin_RASПишет ошибку Run-time error 91
это ошибка синтаксиса, какой Excel? Может не весь код скопировал? Заодно попробуй этот:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
Option Explicit

Sub HideEmtyColumns()
Dim ColumnIndex As Integer
Dim LastCol As Integer
Dim LastRow As Long
Dim SumValue As String

    LastCol = Rows( 5 ).Find("ВСЬОГО").Column
    LastRow = Columns( 1 ).Find("ВСЬОГО").Row

    For ColumnIndex =  3  To LastCol -  1 
        If Not IsError(Cells(LastRow, ColumnIndex).Value) Then
            SumValue = Cells(LastRow, ColumnIndex).Value
            If IsNumeric(SumValue) Then
                If Not SumValue >  0  Then
                    Columns(ColumnIndex).Hidden = True
                Else
                    Columns(ColumnIndex).Hidden = False
                End If
            End If
        End If
    Next ColumnIndex
End Sub


Sub HideEmtyRows()
Dim RowIndex As Integer
Dim LastCol As Integer
Dim LastRow As Long
Dim SumValue As String

    LastCol = Rows( 5 ).Find("ВСЬОГО").Column
    LastRow = Columns( 1 ).Find("ВСЬОГО").Row

    For RowIndex =  8  To LastRow -  1 
        If Not IsError(Cells(RowIndex, LastCol).Value) Then
            SumValue = Cells(RowIndex, LastCol).Value
            If IsNumeric(SumValue) Then
                If Not SumValue >  0  Then
                    Rows(RowIndex).Hidden = True
                Else
                    Rows(RowIndex).Hidden = False
                End If
            End If
        End If
    Next RowIndex
End Sub
...
Рейтинг: 0 / 0
16.11.2006, 13:37:28
| Ответить | Цитировать | Написать  
Большая таблица_скрыть ячейки (макрос)
    #34139322
MAJIbIIII
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MAJIbIIII
Участник
Не имеет смысла скрывать отдельные ячейки (от этого может потеряться суть таблицы!).
На данный момент посмотреть ваш файл не могу, но как только, так сразу. И по возможности опишите проблему шире (например: зачем вам скрывать ячейки???).
...
Рейтинг: 0 / 0
19.11.2006, 17:04:21
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Большая таблица_скрыть ячейки (макрос)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34132681&tid=2183904]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 78ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 234ms
total:  415ms
созд. / загр.: 415ms
x
x
Закрыть


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