Маленька проблема окраски

[Dimka Wumok]

Я токо учусь VBA !!!!Проще у меня ума сделать нехватило

[Dimka Wumok]

С УФ да но - мне не УФ нужен у меня массив данных огромен!!

[Hugo121]

Вот код для файла ikki_pf:

Sub okras()
    Dim a(), i&
    a = [a1].CurrentRegion.Value
    For i = 1 To UBound(a)
        Select Case True
        Case a(i, 1) < a(i, 2): Cells(i, 1).Interior.ColorIndex = 6
        Case a(i, 1) > a(i, 2): Cells(i, 1).Interior.ColorIndex = 3
        End Select
    Next
End Sub

Только конечно уберите УФ - иначе от кода толку не будет

[Dimka Wumok]

Теперь я все понял!!! Спасибо.... А Вы немогли бы мне посоветовать какую нибудь книгу про VBA? по которой Вы учились....

[Hugo121]

Я книг не читал
Ещё что скажу - если массив действительно огромен, то красить и долго, и бестолково в версиях ниже 2007. Вот как потом анализировать?
Лучше отбирать нужные/ненужные в другое место, или в свободном столбце ставить метки, по которым можно сортировать (это через массив можно сделать быстрее, чем красить ячейки).

[Dimka Wumok]

КАК???????????????????????????????? ?????

[Hugo121]

Что как???

Если насчёт книг - то единственная "книга" - http://www.firststeps.ru/
Ну а остальное - поиск решения своих рабочих задач по примерам на форумах (сам вопросов почти и не задавал - всё тут уже решено до нас )
Когда есть стимул не делать всё руками - обучение идёт значительно быстрее
Позже опыта можно набраться уже решая задачи другим - и наблюдая, как эти задачи решают более опытные форумчане.
А так - говорят хорошо Уокенбаха почитать - тут есть ссылка:
http://www.planetaexcel.ru/forum.php?thread_id=46841
а тут библиотека:
http://www.excelworld.ru/index/bibl/0-5