演练：使用 CheckBox 控件更改工作表格式设置

此演练演示在 Microsoft Office Excel 工作表中使用复选框更改格式设置的基本操作。您将使用 Visual Studio 中的 Office 开发工具创建代码并将代码添加到您的项目中。若要查看结果（作为完整示例），请参见 Office 开发示例和演练中的 Excel 控件示例。

**适用于：**本主题中的信息适用于 Excel 2013 和 Excel 2010 的文档级项目。有关更多信息，请参见按 Office 应用程序和项目类型提供的功能。

通过本演练，您将学会如何执行以下任务：

• 将文本和控件添加到工作表。

• 选择选项时设置文本的格式。

• 测试项目。

说明
以下说明中的某些 Visual Studio 用户界面元素在计算机上出现的名称或位置可能会不同。您安装的 Visual Studio 版本以及使用的设置决定了这些元素。有关更多信息，请参见Visual Studio 设置。

系统必备

您需要以下组件来完成本演练：

-

Visual Studio 2012 的一个版本，其中包含 Microsoft Office 开发工具。有关更多信息，请参见[将计算机配置为开发 Office 解决方案](bb398242\(v=vs.110\).md)。

• Excel 2013 或 Excel 2010。

创建项目

在此步骤中，您将使用 Visual Studio 创建一个 Excel 工作簿项目。

创建新项目

• 创建一个名为“我的 Excel 格式设置”的 Excel 工作簿项目。确保已选择**“创建新文档”**。有关更多信息，请参见如何：在 Visual Studio 中创建 Office 项目。

  Visual Studio 在设计器中打开新的 Excel 工作簿，并将**“我的 Excel 格式设置”项目添加到“解决方案资源管理器”**中。

将文本和控件添加到工作表

在此演练中，将需要三个 CheckBox 控件以及 NamedRange 控件中的一些文本。

添加三个复选框

1. 验证工作簿是否已在 Visual Studio 设计器中打开且打开了 Sheet1。

2. 从**“工具箱”的“公共控件”选项卡上，将 CheckBox 控件拖动到“Sheet1”的单元格“B2”**中或其附近。

3. 从**“视图”菜单中选择“属性窗口”**。

4. 确保**“Checkbox1”在“属性窗口”**的对象名称列表框中可见，然后更改以下属性：

   属性	值
   名称	applyBoldFont
   文本	Bold

5. 将第二个复选框拖动到单元格**“B4”**中或其附近，然后更改以下属性：

   属性	值
   名称	applyItalicFont
   文本	Italic

6. 将第三个复选框拖动到单元格**“B6”**中或其附近，然后更改以下属性：

   属性	值
   名称	applyUnderlineFont
   文本	Underline

7. 按住“Ctrl”键，将三个复选框控件全部选中。

8. 在布局选项的位置组中在 Excel 中，单击 对齐，然后单击 左对齐。

   三个复选框控件在左边对齐，在选择第一个控件的位置。

   接下来，您要将 NamedRange 控件拖动到工作表中。

   说明
   还可以通过在“名称”框中键入 textFont 添加 NamedRange 控件。

将文本添加到 NamedRange 控件

1. 从工具箱的**“Excel 控件”选项卡中将 NamedRange 控件拖动到单元格“B9”**。

2. 验证**“$B$9”是否出现在可编辑的文本框中，并且单元格“B9”被选中。如果不是这样，请单击单元格“B9”**将其选中。

3. 单击**“确定”**。

4. 单元格**“B9”**变为名为 NamedRange1 的范围。

   工作表上没有可见的指示，但是当单元格**“B9”被选中时，NamedRange1 将出现在“名称框”**（就在工作表左侧的上方）中。

5. 确保**“NamedRange1”在“属性”**窗口的对象名称列表框中可见，然后更改以下属性：

   属性	值
   名称	textFont
   Value2	单击一个复选框以更改此文本的格式设置。

然后，编写代码来在选中某一选项时设置文本的格式。

选中选项时设置文本的格式

在本节中，您将编写代码，以使用户选择某个格式设置选项时工作表中文本的格式会发生变化。

选中复选框时更改格式设置

1. 右击**“Sheet1”，再单击快捷菜单上的“查看代码”**。

2. 将以下代码添加到 applyBoldFont 复选框的 Click 事件处理程序中：

   Private Sub applyBoldFont_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
       Handles applyBoldFont.Click
   
       Me.textFont.Font.Bold = Me.applyBoldFont.Checked
   End Sub
   

   private void applyBoldFont_Click(object sender, EventArgs e)
   {
       this.textFont.Font.Bold = this.applyBoldFont.Checked;
   }
   

3. 将以下代码添加到 applyItalicFont 复选框的 Click 事件处理程序中：

   Private Sub applyItalicFont_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
       Handles applyItalicFont.Click
   
       Me.textFont.Font.Italic = Me.applyItalicFont.Checked
   End Sub
   

   private void applyItalicFont_Click(object sender, EventArgs e)
   {
       this.textFont.Font.Italic = this.applyItalicFont.Checked;
   }
   

4. 将以下代码添加到 applyUnderlineFont 复选框的 Click 事件处理程序中：

   Private Sub applyUnderlineFont_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
       Handles applyUnderlineFont.Click
   
       If Me.applyUnderlineFont.Checked Then
           Me.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleSingle
       Else
           Me.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleNone
       End If
   End Sub
   

   private void applyUnderlineFont_Click(object sender, EventArgs e)
   {
       if (this.applyUnderlineFont.Checked == true)
       {
           this.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleSingle;
       }
       else
       {
           this.textFont.Font.Underline = Excel.XlUnderlineStyle.xlUnderlineStyleNone;
       }
   }
   

5. 在 C# 中，必须为复选框添加 Startup 事件的事件处理程序，如下所示。有关创建事件处理程序的信息，请参见如何：在 Office 项目中创建事件处理程序。

   this.applyBoldFont.Click += new EventHandler(applyBoldFont_Click);
   this.applyItalicFont.Click += new EventHandler(applyItalicFont_Click);
   this.applyUnderlineFont.Click += new EventHandler(applyUnderlineFont_Click);
   

测试应用程序

现在可以对工作簿进行测试，以确保在选择或清除一个复选框时正确设置文本的格式。

测试工作簿

1. 按 F5 运行项目。

2. 选择或清除复选框。

3. 确认文本的格式设置正确。

后续步骤

此演练演示在 Excel 工作表中使用复选框和设置文本格式的基本操作。下一步可能要执行以下几项任务：

• 部署项目。有关更多信息，请参见使用 ClickOnce 部署 Office 解决方案。

• 使用按钮填充文本框。有关更多信息，请参见演练：使用按钮在工作表的文本框中显示文本。

请参见

概念

使用 Excel 的演练

NamedRange 控件

Office 文档上的 Windows 窗体控件的限制