Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2010, 03:17   #1
savraska
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 37
По умолчанию Работа с объектом CELLS

Выбрать строки,где сумма ячеек,начиная с 8-го столбца меньше 1. Покрасить их в другой цвет и скопировать в новый диапазон.
savraska вне форума Ответить с цитированием
Старый 20.04.2010, 04:56   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Можно так:
Код:
Sub Main()
    Dim x As Range, i As Long, j As Long, a(): Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = xlNone: j = ActiveSheet.UsedRange.Row - 1
    a = Intersect(ActiveSheet.UsedRange, [H:IV]).Value
    For i = 1 To UBound(a, 1)
        If Application.Sum(Application.Index(a, i, 0)) < 1 Then _
            If x Is Nothing Then Set x = Rows(i + j) Else Set x = Union(x, Rows(i + j))
    Next
    If Not x Is Nothing Then
        x.Copy Sheets(2).[A1] 'Копируем выбранные строки на 2-й лист.
        x.Interior.ColorIndex = 6 'Окрашиваем выбранные строки в желтый цвет
    End If
End Sub
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с объектом Image Lisёноk Помощь студентам 2 13.03.2010 12:41
Работа с объектом ADODB.Stream voam Microsoft Office Excel 4 15.12.2009 23:31
работа с Объектом {TabSheet} Rebel123 Общие вопросы Delphi 7 09.09.2009 15:52
Range & Cells ("")(Э_Є)("") Microsoft Office Excel 6 26.01.2009 11:19
Нестандартное использование Cells.FormulaR1C1 и Cells.Text Lokkie Microsoft Office Excel 3 21.01.2009 17:41