Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически? / 12 сообщений из 12, страница 1 из 1
31.10.2006, 13:03:24
    #34093903
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
Есть определенный массив данных. Для его анализа в конце вставлен столбец, который через функцию ЕСЛИ выполняет определенные вычисления: например, находит относительное изменение и абсолютное (в зависимости от того, что выбирает пользователь через элемент управления).
Надо, чтобы цвет ячейки становился, например, красным, если вычисления имеют относительный характер и значение меньше 60%, и если вычисления имеют абсолютный характер и получаемая величина меньше 0.
Через условное форматирование не получается такое выполнить. Как можно по другому это сделать?
...
Рейтинг: 0 / 0
31.10.2006, 13:10:07
    #34093931
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
if cells(1,1)<20 then cells(1,1).Interior.ColorIndex =5
Закраска цветом 5 по условию <20 (например)
...
Рейтинг: 0 / 0
01.11.2006, 13:43:07
    #34097412
Taranaga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
Что значит условным форматом не получается???
Прокурору будете сказки рассказывать ;)
См. вложение - там все сделано да еще и пороговые значения можно менять...
Так еще и возможности условного форматирования на треть всего использовались.

Срочно читать устав!
...
Рейтинг: 0 / 0
01.11.2006, 13:48:00
    #34097443
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
...
Рейтинг: 0 / 0
01.11.2006, 13:49:54
    #34097453
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
Formatting Cells Containing Formulas


To format cells containing Formulas using the Conditional Formatting dialog box, add a VBA Function:

Step 1: Add the following VBA Function to a regular Module:

Код: plaintext
1.
2.
Function IsFormulaInCell (Cell) As Boolean
    IsFormulaInCell= Cell.HasFormula
End Function 

Step 2: Use the Custom Function to identify and format cells containing formulas:

1. Select the cells in the sheet by pressing Ctrl+A, in Excel 2003 press Ctrl+A+A from a cell inside a region.
2. From the Format menu, select Conditional Formatting.
3. In Condition 1, select Formula is from the dropdown list.
4. In the formula box, type =IsFormulaInCell(A1), and then click Format.
5. From the Font tab, select any desired color and click OK twice.



See screenshot for a sample
...
Рейтинг: 0 / 0
01.11.2006, 14:34:46
    #34097663
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
Спасибо за помощь.
Но у меня еще один вопрос: как сделать так, чтобы если в определенной клетке ставиться число 1, то скрываются 3-6 столбец, если цифра 2 - то 6-10 столбец? или это нереальные запросы моего начальства?
...
Рейтинг: 0 / 0
01.11.2006, 14:48:41
    #34097740
Taranaga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
Все абсолютно реально и просто.
На событие Change вешается процедура скрытия и отображения столбцов.
процедуру можно нарисовать с помощью макрорекордера,
Для обработчика событий - на ярлычке листа жмем правую кнопку, выбираем "Исходный текст" , слева выбираем "Worksheet", Справа - Change...
...
Рейтинг: 0 / 0
01.11.2006, 14:52:52
    #34097764
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
TmoonСпасибо за помощь.
Но у меня еще один вопрос: как сделать так, чтобы если в определенной клетке ставиться число 1, то скрываются 3-6 столбец, если цифра 2 - то 6-10 столбец? или это нереальные запросы моего начальства?
этот код помести в код листа. а до этого назови ячейку, в которой будет указываться значение (1 или 2) "SwitcherHide"
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Const Columns1 = "C:F"
Const Columns2 = "F:J"

    If Target.Address = Range("SwitcherHide").Address Then
        If Target.Value =  1  Then
            Columns(Columns2).Hidden = False
            Columns(Columns1).Hidden = True
        ElseIf Target.Value =  2  Then
            Columns(Columns1).Hidden = False
            Columns(Columns2).Hidden = True
        Else
            Columns(Columns2).Hidden = False
            Columns(Columns1).Hidden = False
        End If
    End If
End Sub
...
Рейтинг: 0 / 0
01.11.2006, 15:02:08
    #34097810
Taranaga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
или вот тебе...
...
Рейтинг: 0 / 0
02.11.2006, 15:10:41
    #34101218
Tmoon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
Эти макросы не работают, если цифра 1 или 2 ставится с помощью элемента управления. Что может быть не так?
...
Рейтинг: 0 / 0
02.11.2006, 15:16:14
    #34101253
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
TmoonЭти макросы не работают, если цифра 1 или 2 ставится с помощью элемента управления. Что может быть не так?
сделай такой обработчик изменения элемента, в данном случае TextBox:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub TextBox1_Change()
Const Columns1 = "C:F"
Const Columns2 = "F:J"

        If Range("SwitcherHide").Value =  1  Then
            Columns(Columns2).Hidden = False
            Columns(Columns1).Hidden = True
        ElseIf Range("SwitcherHide").Value =  2  Then
            Columns(Columns1).Hidden = False
            Columns(Columns2).Hidden = True
        Else
            Columns(Columns2).Hidden = False
            Columns(Columns1).Hidden = False
        End If    
End Sub
...
Рейтинг: 0 / 0
02.11.2006, 15:23:02
    #34101289
Taranaga
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически?
TmoonЭти макросы не работают, если цифра 1 или 2 ставится с помощью элемента управления. Что может быть не так?Дело в том, что обработчик весит на событии изменения ячейки.
Если ячейка изменяется с помощью элемента управления - то событие может и не подниматься.
Перевесь обработчик с события листа на событие элемента управления и будет тебе счастье.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Какой другой инструмент Excel позволяет выделять цвет ячейки автоматически? / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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