详解C#实现在Excel单元格中应用多种字体格式

using Spire.Xls;

namespace AddFormatsToTextInCell
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建Workbook类的对象
            Workbook wb = new Workbook();

            //获取第一张工作表（新建的工作簿已默认包含3张worksheet工作表）
            Worksheet sheet = wb.Worksheets[0];

            //设置字体名称
            ExcelFont fontname = wb.CreateFont();
            fontname.FontName = "幼圆";
             
            //设置字体下标
            ExcelFont fontSubscript = wb.CreateFont();
            fontSubscript.IsSubscript = true;

            //设置字体上标
            ExcelFont fontsuperscript = wb.CreateFont();
            fontsuperscript.IsSuperscript = true;

            //设置加粗的字体样式
            ExcelFont fontBold = wb.CreateFont();
            fontBold.IsBold = true;

            //设置下划线字体样式          
            ExcelFont fontUnderline = wb.CreateFont();
            fontUnderline.Underline = FontUnderlineType.Single;

            //设置倾斜字体样式           
            ExcelFont fontItalic = wb.CreateFont();
            fontItalic.IsItalic = true;

            //设置绿色字体样式            
            ExcelFont fontColor = wb.CreateFont();
            fontColor.KnownColor = ExcelColors.Rose;

            //设置字体字号大小
            ExcelFont fontsize = wb.CreateFont();
            fontsize.Size = 15;
           
            //添加文本到A1单元格
            RichText richText = sheet.Range["A1"].RichText;
            richText.Text = "这段文字是测试文字，仅供测试时使用！C6B2幼圆体";

            //给指定字符添加字体样式
            richText.SetFont(0, 3, fontBold);
            richText.SetFont(4,6,fontItalic);
            richText.SetFont(7,9,fontUnderline);
            richText.SetFont(10,13, fontColor);
            richText.SetFont(14, 17,fontsize);            
            richText.SetFont(19,19,fontSubscript);
            richText.SetFont(21,21,fontsuperscript);
            richText.SetFont(22, richText.Text.Length, fontname);

            //设置列宽
            sheet.Range["A1"].ColumnWidth = 50;

            //保存文档
            wb.SaveToFile("Result.xlsx",FileFormat.Version2013);
        }
    }
}

Imports Spire.Xls

Namespace AddFormatsToTextInCell
    Class Program
        Private Shared Sub Main(args As String())
            '创建Workbook类的对象
            Dim wb As New Workbook()

            '获取第一张工作表（新建的工作簿已默认包含3张worksheet工作表）
            Dim sheet As Worksheet = wb.Worksheets(0)

            '设置字体名称
            Dim fontname As ExcelFont = wb.CreateFont()
            fontname.FontName = "幼圆"

            '设置字体下标
            Dim fontSubscript As ExcelFont = wb.CreateFont()
            fontSubscript.IsSubscript = True

            '设置字体上标
            Dim fontsuperscript As ExcelFont = wb.CreateFont()
            fontsuperscript.IsSuperscript = True

            '设置加粗的字体样式
            Dim fontBold As ExcelFont = wb.CreateFont()
            fontBold.IsBold = True

            '设置下划线字体样式          
            Dim fontUnderline As ExcelFont = wb.CreateFont()
            fontUnderline.Underline = FontUnderlineType.[Single]

            '设置倾斜字体样式           
            Dim fontItalic As ExcelFont = wb.CreateFont()
            fontItalic.IsItalic = True

            '设置绿色字体样式            
            Dim fontColor As ExcelFont = wb.CreateFont()
            fontColor.KnownColor = ExcelColors.Rose

            '设置字体字号大小
            Dim fontsize As ExcelFont = wb.CreateFont()
            fontsize.Size = 15

            '添加文本到A1单元格
            Dim richText As RichText = sheet.Range("A1").RichText
            richText.Text = "这段文字是测试文字，仅供测试时使用！C6B2幼圆体"

            '给指定字符添加字体样式
            richText.SetFont(0, 3, fontBold)
            richText.SetFont(4, 6, fontItalic)
            richText.SetFont(7, 9, fontUnderline)
            richText.SetFont(10, 13, fontColor)
            richText.SetFont(14, 17, fontsize)
            richText.SetFont(19, 19, fontSubscript)
            richText.SetFont(21, 21, fontsuperscript)
            richText.SetFont(22, richText.Text.Length, fontname)

            '设置列宽
            sheet.Range("A1").ColumnWidth = 50

            '保存文档
            wb.SaveToFile("Result.xlsx", FileFormat.Version2013)
            System.Diagnostics.Process.Start("Result.xlsx")
        End Sub
    End Class
End Namespace