using Spire.Xls;

namespace TextDirection
{
    class Program
    {
        static void Main(string[] args)
        {
            Workbook workbook = new Workbook();
            workbook.LoadFromFile(@"..\..\..\..\Data\Blank.xls",ExcelVersion.Version97to2003);
            Worksheet worksheet = workbook.Worksheets[0];

            //rotate 90 degrees of Range["A1"] text
            worksheet.Range["A1"].Text = "Rotate 30 degrees";
            worksheet.Range["A1"].Style.Rotation = 90;

            //rotate 30 degrees of Range["A2"] text
            worksheet.Range["A2"].Text = "Rotate 45 degrees";
            worksheet.Range["A2"].Style.Rotation = 30;

            //rotate 45 degrees of Range["B1"] text
            worksheet.Range["B1"].Text = "Rotate 90 degrees";
            worksheet.Range["B1"].Style.Rotation = 45;

            //rotate 180 degrees of Range["B2"] text
            worksheet.Range["B2"].Text = "Rotate 180 degrees";
            worksheet.Range["B2"].Style.Rotation = 180;

            worksheet.AutoFitColumn(1);
            worksheet.AutoFitColumn(2);
        
            workbook.SaveToFile("sample.xls", ExcelVersion.Version97to2003);
            System.Diagnostics.Process.Start(workbook.FileName);
        }
    }
}

Imports Spire.Xls

Namespace TextDirection
	Friend Class Program
		Shared Sub Main(ByVal args() As String)
			Dim workbook As New Workbook()
			workbook.LoadFromFile("..\..\..\..\Data\Blank.xls",ExcelVersion.Version97to2003)
			Dim worksheet As Worksheet = workbook.Worksheets(0)

			'rotate 90 degrees of Range["A1"] text
			worksheet.Range("A1").Text = "Rotate 30 degrees"
			worksheet.Range("A1").Style.Rotation = 90

			'rotate 30 degrees of Range["A2"] text
			worksheet.Range("A2").Text = "Rotate 45 degrees"
			worksheet.Range("A2").Style.Rotation = 30

			'rotate 45 degrees of Range["B1"] text
			worksheet.Range("B1").Text = "Rotate 90 degrees"
			worksheet.Range("B1").Style.Rotation = 45

			'rotate 180 degrees of Range["B2"] text
			worksheet.Range("B2").Text = "Rotate 180 degrees"
			worksheet.Range("B2").Style.Rotation = 180

			worksheet.AutoFitColumn(1)
			worksheet.AutoFitColumn(2)

			workbook.SaveToFile("sample.xls", ExcelVersion.Version97to2003)
			System.Diagnostics.Process.Start(workbook.FileName)
		End Sub
	End Class
End Namespace

using System.Drawing;
using Spire.Xls;

namespace TextColor
{
    class Program
    {
        static void Main(string[] args)
        {
            Workbook workbook = new Workbook();
            workbook.LoadFromFile(@"..\..\..\..\Data\parts.xls",ExcelVersion.Version97to2003);
            Worksheet worksheet = workbook.Worksheets[0];

            //set the text color of Range["A1"]
            worksheet.Range["A2:G3"].Style.Font.Color = Color.Red;

            //set the text color of Range["A2"]
            worksheet.Range["A4:G4"].Style.Font.Color = Color.Violet;

            //set the text color of Range["A3"]
            worksheet.Range["A6:D8"].Style.Font.Color = Color.Blue;

            //set the text color of Range["A4"]
            worksheet.Range["F9:G12"].Style.Font.Color = Color.Black;

            //set the text color of Range["B1"]
            worksheet.Range["A13:C16"].Style.Font.Color = Color.Green;

            //set the text color of Range["B2"]
            worksheet.Range["E13:G13"].Style.Font.Color = Color.Purple;

            //set the text color of Range["B3"]
            worksheet.Range["E14:G14"].Style.Font.Color = Color.Plum;

            //set the text color of Range["B4"]
            worksheet.Range["A15:G18"].Style.Font.Color = Color.Peru;
           
            workbook.SaveToFile("sample.xls", ExcelVersion.Version97to2003);
            System.Diagnostics.Process.Start(workbook.FileName);
        }
    }
}

Imports System.Drawing
Imports Spire.Xls

Namespace TextColor
	Friend Class Program
		Shared Sub Main(ByVal args() As String)
			Dim workbook As New Workbook()
			workbook.LoadFromFile("..\..\..\..\Data\parts.xls",ExcelVersion.Version97to2003)
			Dim worksheet As Worksheet = workbook.Worksheets(0)

			'set the text color of Range["A1"]
			worksheet.Range("A2:G3").Style.Font.Color = Color.Red

			'set the text color of Range["A2"]
			worksheet.Range("A4:G4").Style.Font.Color = Color.Violet

			'set the text color of Range["A3"]
			worksheet.Range("A6:D8").Style.Font.Color = Color.Blue

			'set the text color of Range["A4"]
			worksheet.Range("F9:G12").Style.Font.Color = Color.Black

			'set the text color of Range["B1"]
			worksheet.Range("A13:C16").Style.Font.Color = Color.Green

			'set the text color of Range["B2"]
			worksheet.Range("E13:G13").Style.Font.Color = Color.Purple

			'set the text color of Range["B3"]
			worksheet.Range("E14:G14").Style.Font.Color = Color.Plum

			'set the text color of Range["B4"]
			worksheet.Range("A15:G18").Style.Font.Color = Color.Peru

			workbook.SaveToFile("sample.xls", ExcelVersion.Version97to2003)
			System.Diagnostics.Process.Start(workbook.FileName)
		End Sub
	End Class
End Namespace

using System.Drawing;
using Spire.Xls;

namespace Style_Number
{
    class Program
    {
        static void Main(string[] args)
        {
            Workbook workbook = new Workbook();
            workbook.LoadFromFile(@"..\..\..\..\Data\Blank.xls",ExcelVersion.Version97to2003);

            Worksheet worksheet = workbook.Worksheets[0];

            //set the text of range
            worksheet.Range["A1"].Text = "Number";
            worksheet.Range["B1"].Text = "Format";
            worksheet.Range["C1"].Text = "Value";
            worksheet.Range["A2:A6"].Text = "9875.65";

            worksheet.Range["A1:C1"].Style.Font.IsBold = true;
            
            worksheet.Range["B2"].Text = "0";
            worksheet.Range["C2"].NumberValue = 9875.65;
            worksheet.Range["C2"].NumberFormat = "0";

            worksheet.Range["B3"].Text = "0.0";
            worksheet.Range["C3"].NumberValue = 9875.65;
            worksheet.Range["C3"].NumberFormat = "0.0";

            worksheet.Range["B4"].Text = "0.00";
            worksheet.Range["C4"].NumberValue = 9875.65;
            worksheet.Range["C4"].NumberFormat = "0.00";

            worksheet.Range["B5"].Text = "0.00E+00";
            worksheet.Range["C5"].NumberValue = 9875.65;
            worksheet.Range["C5"].NumberFormat = "0.00E+00";

            worksheet.Range["B6"].Text = "#,###.0";
            worksheet.Range["C6"].NumberValue = 9875.65;
            worksheet.Range["C6"].NumberFormat = "#,###.0";

            worksheet.Range["A7"].Text = "987.65";
            worksheet.Range["B7"].Text = "0.0%";
            worksheet.Range["C7"].NumberValue = 987.65;
            worksheet.Range["C7"].NumberFormat = "0.0%";

            //set the style 
            worksheet.Range["A2:C7"].Style.Font.Color = Color.Red;
            worksheet.Range["A1:C1"].Style.Color = Color.SkyBlue;
            worksheet.Range["A2:C7"].Style.Color = Color.Silver;
            worksheet.AllocatedRange.Borders.LineStyle = LineStyleType.Thin;
            worksheet.AllocatedRange.Borders[BordersLineType.DiagonalUp].LineStyle = LineStyleType.None;
            worksheet.AllocatedRange.Borders[BordersLineType.DiagonalDown].LineStyle = LineStyleType.None;

            worksheet.AutoFitColumn(1);
            worksheet.AutoFitColumn(2);

            workbook.SaveToFile("sample.xls", ExcelVersion.Version97to2003);
            System.Diagnostics.Process.Start(workbook.FileName);
        }
    }
}

Imports System.Drawing
Imports Spire.Xls

Namespace Style_Number
	Friend Class Program
		Shared Sub Main(ByVal args() As String)
			Dim workbook As New Workbook()
			workbook.LoadFromFile("..\..\..\..\Data\Blank.xls",ExcelVersion.Version97to2003)

			Dim worksheet As Worksheet = workbook.Worksheets(0)

			'set the text of range
			worksheet.Range("A1").Text = "Number"
			worksheet.Range("B1").Text = "Format"
			worksheet.Range("C1").Text = "Value"
			worksheet.Range("A2:A6").Text = "9875.65"

			worksheet.Range("A1:C1").Style.Font.IsBold = True

			worksheet.Range("B2").Text = "0"
			worksheet.Range("C2").NumberValue = 9875.65
			worksheet.Range("C2").NumberFormat = "0"

			worksheet.Range("B3").Text = "0.0"
			worksheet.Range("C3").NumberValue = 9875.65
			worksheet.Range("C3").NumberFormat = "0.0"

			worksheet.Range("B4").Text = "0.00"
			worksheet.Range("C4").NumberValue = 9875.65
			worksheet.Range("C4").NumberFormat = "0.00"

			worksheet.Range("B5").Text = "0.00E+00"
			worksheet.Range("C5").NumberValue = 9875.65
			worksheet.Range("C5").NumberFormat = "0.00E+00"

			worksheet.Range("B6").Text = "#,###.0"
			worksheet.Range("C6").NumberValue = 9875.65
			worksheet.Range("C6").NumberFormat = "#,###.0"

			worksheet.Range("A7").Text = "987.65"
			worksheet.Range("B7").Text = "0.0%"
			worksheet.Range("C7").NumberValue = 987.65
			worksheet.Range("C7").NumberFormat = "0.0%"

			'set the style 
			worksheet.Range("A2:C7").Style.Font.Color = Color.Red
			worksheet.Range("A1:C1").Style.Color = Color.SkyBlue
			worksheet.Range("A2:C7").Style.Color = Color.Silver
			worksheet.AllocatedRange.Borders.LineStyle = LineStyleType.Thin
			worksheet.AllocatedRange.Borders(BordersLineType.DiagonalUp).LineStyle = LineStyleType.None
			worksheet.AllocatedRange.Borders(BordersLineType.DiagonalDown).LineStyle = LineStyleType.None

			worksheet.AutoFitColumn(1)
			worksheet.AutoFitColumn(2)

			workbook.SaveToFile("sample.xls", ExcelVersion.Version97to2003)
			System.Diagnostics.Process.Start(workbook.FileName)
		End Sub
	End Class
End Namespace