Как окрасить половину ячейки excel?

Question

Фон: Мне нужно окрасить камеру экстраселе в красный или зеленый цвет. Если ячейка больше нуля, мне нужно покрасить ячейку зеленым цветом (справа от середины ячейки), если ячейка меньше нуля, мне нужно покрасить ячейку красным цветом (слева направо от середины ячейки).

Я использую библиотеку Microsoft.Office.Interop.Excel.

Как это сделать?

P.S. Cell color changing In Excel using C# не является дубликатом, потому что я хочу покрасить только половину ячейки excel, а не полную.

Answer 1

Этот а) может быть обманом (б) возможно лучше в качестве комментария (но тогда не было бы изображения) и (c) возможно растягивание значения тега [excel] здесь, но может представлять определенный интерес отметить, что CF может достичь чего-то в этом роде:

ColumnB (красный Заливка) был отформатирован с формулой правила:

=$B1<0 

и ColumnC (зеленая заливка) с формулой правила от:

=$B1>0 

Обманом является то, что B: C были уменьшены по ширине и отформатированы по центру.

Что-то очень смутно подобные с инфокривыми:

В комментарии (с ссылкой на изображение) @BrakNicku отметил, что Bars данные может быть применена (и изображение, а доказывает, что возможно полупополнение ячейки Excel цветом). Разновидность, также Панели данных, должны иметь длину, пропорциональную базовую величину:

Answer 2

Для того, чтобы решить эту проблему, я использовал данную схему:

1. Создание макросов в VBA (по используя мышь).
2. Перепишите макросы в общую форму.
3. Сохраните макросы в приложении C#.
4. Сохраните макросы в файле excel (xlsm) на C#.
5. Запуск макросов с C#.

Данный макрос:

Sub CreateGistograms(r As String) 
    Range(r).Select 
    Selection.FormatConditions.AddDatabar 
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = True 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
    With Selection.FormatConditions(1) 
     .MinPoint.Modify newtype:=xlConditionValueAutomaticMin 
     .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax 
    End With 
    With Selection.FormatConditions(1).BarColor 
     .Color = 8700771 
      .TintAndShade = 0 
     End With 
     Selection.FormatConditions(1).BarFillType = xlDataBarFillGradient 
     Selection.FormatConditions(1).Direction = xlContext 
     Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor 
     Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderSolid 
     Selection.FormatConditions(1).NegativeBarFormat.BorderColorType = _ 
      xlDataBarColor 
     With Selection.FormatConditions(1).BarBorder.Color 
      .Color = 8700771 
     .TintAndShade = 0 
    End With 
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic 
    With Selection.FormatConditions(1).AxisColor 
     .Color = 0 
     .TintAndShade = 0 
    End With 
    With Selection.FormatConditions(1).NegativeBarFormat.Color 
     .Color = 255 
     .TintAndShade = 0 
    End With 
    With Selection.FormatConditions(1).NegativeBarFormat.BorderColor 
     .Color = 255 
     .TintAndShade = 0 
    End With 
End Sub 

Как сохранить макрос и запустить его из C# create macro at runtime in dotnet