Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Большая таблица_скрыть ячейки (макрос) / 5 сообщений из 5, страница 1 из 1
16.11.2006, 11:46:51
    #34132598
Ronin_RAS
Ronin_RAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Большая таблица_скрыть ячейки (макрос)
Добрый день уважаемые коллеги!

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

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

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

Заранее спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2006, 12:02:10
    #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, 13:24:42
    #34133124
Ronin_RAS
Ronin_RAS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Большая таблица_скрыть ячейки (макрос)
Пишет ошибку Run-time error 91
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2006, 13:37:28
    #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
| Ответить | Цитировать | Написать  
19.11.2006, 17:04:21
    #34139322
MAJIbIIII
MAJIbIIII
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Большая таблица_скрыть ячейки (макрос)
Не имеет смысла скрывать отдельные ячейки (от этого может потеряться суть таблицы!).
На данный момент посмотреть ваш файл не могу, но как только, так сразу. И по возможности опишите проблему шире (например: зачем вам скрывать ячейки???).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Большая таблица_скрыть ячейки (макрос) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 334ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183904]:
 0ms
get settings:
 6ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 39ms
get tp. blocked users:
 2ms
others: 206ms
total:  334ms
x
x
Закрыть


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