Очещение содержимого - Microsoft Office Excel

Sensy · 27.02.2009, 18:27

Хочу очистить содержимое определенных ячеек, если их значение = 0 (каждая ячейка содержит функцию суммирования). пишу так:

Dim RangeSums As Range
Set RangeSums = Range("ces1, ces2, ces3, ces4, ctp, ctemttz, ctempd, cittz, cbrze, cm")
For Each vars In RangeSums
If vars.Value = 0 Then
Range(vars).Select
Selection.ClearContents

End If
Next

ошибка в строке Range(vars).Select
PLEASE, HELP.....!!!

EducatedFool · 27.02.2009, 18:40

Попробуйте так:

Код:

    Dim RangeSums As Range
    Set RangeSums = Union([ces1], [ces2], [ces3])
    For Each vars In RangeSums.Cells
        If vars.Value = 0 Then vars.ClearContents
    Next

Sensy · 02.03.2009, 10:01

EducatedFoll, спасибо!!!

27.02.2009, 18:27	#1
Sensy Регистрация: 27.02.2009 Сообщений: 9	Очещение содержимого Хочу очистить содержимое определенных ячеек, если их значение = 0 (каждая ячейка содержит функцию суммирования). пишу так: Dim RangeSums As Range Set RangeSums = Range("ces1, ces2, ces3, ces4, ctp, ctemttz, ctempd, cittz, cbrze, cm") For Each vars In RangeSums If vars.Value = 0 Then Range(vars).Select Selection.ClearContents End If Next ошибка в строке Range(vars).Select PLEASE, HELP.....!!!

27.02.2009, 18:40	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Попробуйте так: Код: `Dim RangeSums As Range Set RangeSums = Union([ces1], [ces2], [ces3]) For Each vars In RangeSums.Cells If vars.Value = 0 Then vars.ClearContents Next` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Печать содержимого DBGrid	XATAB	БД в Delphi	6	10.03.2009 08:35
Сохранение содержимого StringList в файл	rainbow	Общие вопросы Delphi	1	19.11.2008 10:34
Прокрутка содержимого блока	sdevil	JavaScript, Ajax	18	26.09.2007 19:33
Печать содержимого DB Grid	Prisian	БД в Delphi	4	06.09.2007 23:02

02.03.2009, 10:01	#3
Sensy Регистрация: 27.02.2009 Сообщений: 9	EducatedFoll, спасибо!!!