Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / убить ячейки (выборочно удалять ячейки, содержащие 0 значения.) / 8 сообщений из 8, страница 1 из 1
13.05.2005, 05:05:29
    #33061136
ARN
ARN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
Расскажите непрограммису, как в EXCEL выборочно удалять ячейки, содержащие 0 значения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2005, 08:41:19
    #33061207
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
Я бы сделал так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub subDeleteEmptyCells()
    Dim rng As Range
    Dim cel As Range

    Set rng = Range("A1:B6") ' Указываешь диапазон.

    For Each cel In rng
        ' Если значение ячейки в указанном диапазоне = 0,
        ' выделяем ее и удаляем со сдвигом вверх.
        If cel.Value =  0  Then
            cel.Select
            ActiveCell.Delete Shift:=xlUp
        End If
    Next cel
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2005, 10:00:31
    #33061383
ARN
ARN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
Спасибо, попробовал, при запуске макроса удаляется нулевая ячейка.
Но хотелось бы еще , чтобы эта операция происходила со всеми ячейками указанного диапазона , при вводе данных в рабочий лист EXCEL.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2005, 10:04:40
    #33061396
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
Т.е. ты хочешь, чтобы именно при вводе значения 0 в ячейку она автоматически удалялась?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2005, 10:15:44
    #33061429
ARN
ARN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
не совсем. я заполняю табличную форму и надо ,чтобы при появлении строчки без данных, она при печати (сохранении в виде pdf) удалялась .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2005, 10:24:17
    #33061456
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
А что мешает в макросе задать диапазон табличной формы

Код: plaintext
Range("A1:B6")

А перед печатью запускать макрос, который я написал, удаляющий все яцейки с записью 0?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2005, 10:29:33
    #33061468
ARN
ARN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
а как его можно запустить не нажимая никаких кнопок ?(речь идет о совсем неквалифицированном пользователе )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2005, 10:56:37
    #33061553
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
убить ячейки (выборочно удалять ячейки, содержащие 0 значения.)
На событие перед печатью, повесь запуск этого макроса.

Пеменяй

Код: plaintext
Range("A1:B6")

на тот диапозан, который соответствует твоей табличной форме.

Если нужно не удалять ячейки, а добалять пустые значения -- то измени код:

Код: plaintext
1.
2.
3.
        If cel.Value =  0  Then
            cel.Select
            ActiveCell.Value = ""
        End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / убить ячейки (выборочно удалять ячейки, содержащие 0 значения.) / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 525ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2186066]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 247ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 204ms
total:  525ms
x
x
Закрыть


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