sh.Cells(1,К).Font.Name = "Tahoma"; sh.Cells(1,К).Font.Size = 10; sh.Cells(1,К).Font.FontStyle = "Bold"; //sh.Cells(1,К).Font.Color = ???;//это для чего не ясно //sh.Cells(1,К).Font.ThemeColor = ???;//это для чего не ясно, ставим цифру сами символы меняются в цвете sh.Cells(1,К).Font.ColorIndex = 10;//зеленый цвет. он красит символы sh.Cells(1,К).FormulaR1C1 = Заг;