Несколько цветов фона ячейки в электронных таблицах Excel
Проверьте, есть ли у вас набор правил в группе безопасности Ec2, который разрешает входящий трафик через порт 443 и порт 80 из исходной группы безопасности ELB. Если у вас нет такого правила, попробуйте добавить его, а затем проверьте снова.
4 ответа
Необходимо будет записать что-то в VBA.
Посмотрите пример здесь: Двигайтесь Превосходит 3 Предела Критериев в Условном форматировании:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A1:A10")) is Nothing Then
Select Case Target
Case 1 To 5
icolor = 6
Case 6 To 10
icolor = 12
Case 11 To 15
icolor = 7
Case 16 To 20
icolor = 53
Case 21 To 25
icolor = 15
Case 26 To 30
icolor = 42
Case Else
'Whatever
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub
Excel 2007 позволяет больше чем три условия. Заключение в кавычки от этой страницы Microsoft:
Править: А-ч, в связывающемся коде существует "функция": круглые скобки в ссылке, процитированной в круглых скобках, не обрабатываются правильно. Та ссылка: http://msdn.microsoft.com/en-us/library/bb286672 (офис 11) .aspx
Другие преимущества изменений в условном форматировании в Excel 2007 являются способностью указать больше чем три условия, переупорядочить условия и иметь больше чем одну твердость условия к Истинному.
Иначе. Вы застреваете с грязными альтернативами, как описано, я боюсь.
Можно использовать макросы VBA, чтобы сделать это...
вот один vba макрос, который мог бы быть лучше если потребность много случаев http://chandoo.org/wp/2008/10/14/more-than-3-conditional-formats-in-excel/
Вам нужно к ячейкам перед форматом 'n' со способом, которым Вы хотите отформатировать свой весь диапазон. и затем используйте макрос в том URL для получения эффекта.
поместите это в модуль в Вашем проекте VBA. Можно затем выделить диапазон в листе и выполнить sub от пункта меню Tools> Macro> Macros для окраски каждой ячейки в выбранном диапазоне.
Public Sub ColorCells()
Dim cell, rng As Range
Dim color As Integer
Dim sheet As Worksheet
Application.ScreenUpdating = False
Application.StatusBar = "Coloring Cells"
Set rng = Application.Selection
Set sheet = Application.ActiveSheet
For Each cell In rng.cells
Select Case Trim(LCase(cell))
Case "blue"
color = 5
Case "red"
color = 3
Case "yellow"
color = 6
Case "green"
color = 4
Case "purple"
color = 7
Case "orange"
color = 46
Case Else
color = 0
End Select
sheet.Range(cell.Address).Interior.ColorIndex = color
Next cell
Application.ScreenUpdating = True
Application.StatusBar = "Ready"
End Sub
Если пользователи вводят новые имена цвета в ячейки затем, Вы могли бы поместить это в код листа в проекте VBA окрасить ячейки, поскольку пользователь вводит имена цвета в ячейки
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.cells.Count > 1 Then Exit Sub
Dim color As Integer
Select Case Trim(LCase(Target))
Case "blue"
color = 5
Case "red"
color = 3
Case "yellow"
color = 6
Case "green"
color = 4
Case "purple"
color = 7
Case "orange"
color = 46
Case Else
color = 0
End Select
Target.Interior.ColorIndex = color
End Sub
Править: Добавленная функция Trim вокруг выражения оператора выбора для тестирования, так, чтобы случайное продвижение/конечные пробелы в ячейках было проигнорировано :)