快捷導(dǎo)航

詳解C#實(shí)現(xiàn)在Excel單元格中應(yīng)用多種字體格式

更新時(shí)間：2022年05月05日 16:40:50 作者：E-iceblue

在Excel中，可對(duì)單元格中的字符串設(shè)置多種不同樣式。本文，將以C#及VB.NET代碼為例，介紹如何在Excel同一個(gè)單元格中應(yīng)用多種字體樣式，感興趣的可以了解一下

在Excel中，可對(duì)單元格中的字符串設(shè)置多種不同樣式，通常只需要獲取到單元格直接設(shè)置樣式即可，該方法設(shè)置的樣式會(huì)應(yīng)用于該單元格中的所有字符。如果需要對(duì)單元格中某些字符設(shè)置樣式，則可以參考本文中的方法。本文，將以C#及VB.NET代碼為例，介紹如何在Excel同一個(gè)單元格中應(yīng)用多種字體樣式，包括字體加粗、傾斜、下劃線、字號(hào)大小、字體顏色、上標(biāo)、下標(biāo)、字體等。在操作Excel單元格時(shí)，可參考使用本文方法。下面是具體方法和步驟。

引用dll

方法1

在程序中引入Spire.Xls.dll文件；將 Free Spire.XLS for .NET 下載到本地，解壓，安裝。安裝完成后，找到安裝路徑下BIN文件夾中的Spire.Xls.dll。然后在Visual Studio中打開(kāi)“解決方案資源管理器”，鼠標(biāo)右鍵點(diǎn)擊“引用”，“添加引用”，將本地路徑BIN文件夾下的dll文件添加引用至程序。

方法2

通過(guò) NuGet 安裝?？赏ㄟ^(guò)以下2種方法安裝：

1.可以在Visual Studio中打開(kāi)“解決方案資源管理器”，鼠標(biāo)右鍵點(diǎn)擊“引用”，“管理NuGet包”，然后搜索“Free Spire.XLS”，點(diǎn)擊“安裝”。等待程序安裝完成。

2.將以下內(nèi)容復(fù)制到PM控制臺(tái)安裝。

Install-Package FreeSpire.XLS -Version 12.2.0

在同一單元格應(yīng)用多種字體樣式

C#

using Spire.Xls;

namespace AddFormatsToTextInCell
{
    class Program
    {
        static void Main(string[] args)
        {
            //創(chuàng)建Workbook類的對(duì)象
            Workbook wb = new Workbook();

            //獲取第一張工作表（新建的工作簿已默認(rèn)包含3張worksheet工作表）
            Worksheet sheet = wb.Worksheets[0];

            //設(shè)置字體名稱
            ExcelFont fontname = wb.CreateFont();
            fontname.FontName = "幼圓";
             
            //設(shè)置字體下標(biāo)
            ExcelFont fontSubscript = wb.CreateFont();
            fontSubscript.IsSubscript = true;

            //設(shè)置字體上標(biāo)
            ExcelFont fontsuperscript = wb.CreateFont();
            fontsuperscript.IsSuperscript = true;

            //設(shè)置加粗的字體樣式
            ExcelFont fontBold = wb.CreateFont();
            fontBold.IsBold = true;

            //設(shè)置下劃線字體樣式          
            ExcelFont fontUnderline = wb.CreateFont();
            fontUnderline.Underline = FontUnderlineType.Single;

            //設(shè)置傾斜字體樣式           
            ExcelFont fontItalic = wb.CreateFont();
            fontItalic.IsItalic = true;

            //設(shè)置綠色字體樣式            
            ExcelFont fontColor = wb.CreateFont();
            fontColor.KnownColor = ExcelColors.Rose;

            //設(shè)置字體字號(hào)大小
            ExcelFont fontsize = wb.CreateFont();
            fontsize.Size = 15;
           
            //添加文本到A1單元格
            RichText richText = sheet.Range["A1"].RichText;
            richText.Text = "這段文字是測(cè)試文字，僅供測(cè)試時(shí)使用！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);

            //設(shè)置列寬
            sheet.Range["A1"].ColumnWidth = 50;

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

vb.net

Imports Spire.Xls

Namespace AddFormatsToTextInCell
    Class Program
        Private Shared Sub Main(args As String())
            '創(chuàng)建Workbook類的對(duì)象
            Dim wb As New Workbook()

            '獲取第一張工作表（新建的工作簿已默認(rèn)包含3張worksheet工作表）
            Dim sheet As Worksheet = wb.Worksheets(0)

            '設(shè)置字體名稱
            Dim fontname As ExcelFont = wb.CreateFont()
            fontname.FontName = "幼圓"

            '設(shè)置字體下標(biāo)
            Dim fontSubscript As ExcelFont = wb.CreateFont()
            fontSubscript.IsSubscript = True

            '設(shè)置字體上標(biāo)
            Dim fontsuperscript As ExcelFont = wb.CreateFont()
            fontsuperscript.IsSuperscript = True

            '設(shè)置加粗的字體樣式
            Dim fontBold As ExcelFont = wb.CreateFont()
            fontBold.IsBold = True

            '設(shè)置下劃線字體樣式          
            Dim fontUnderline As ExcelFont = wb.CreateFont()
            fontUnderline.Underline = FontUnderlineType.[Single]

            '設(shè)置傾斜字體樣式           
            Dim fontItalic As ExcelFont = wb.CreateFont()
            fontItalic.IsItalic = True

            '設(shè)置綠色字體樣式            
            Dim fontColor As ExcelFont = wb.CreateFont()
            fontColor.KnownColor = ExcelColors.Rose

            '設(shè)置字體字號(hào)大小
            Dim fontsize As ExcelFont = wb.CreateFont()
            fontsize.Size = 15

            '添加文本到A1單元格
            Dim richText As RichText = sheet.Range("A1").RichText
            richText.Text = "這段文字是測(cè)試文字，僅供測(cè)試時(shí)使用！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)

            '設(shè)置列寬
            sheet.Range("A1").ColumnWidth = 50

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

設(shè)置效果：