如何：在包含选定单元格的工作表行中更改格式设置

可以更改包含选定单元格的整行的字体，使其中的文本变成粗体。

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

使当前行变成粗体、使前面的粗体行恢复正常

1. 声明一个静态变量以跟踪前面选定的行。

   Static previousRow As Integer = 0
   

   static int previousRow = 0;
   

2. 使用 ActiveCell 属性检索对当前单元格的引用。

   Dim currentCell As Excel.Range = Me.Application.ActiveCell
   

   Excel.Range currentCell = this.Application.ActiveCell;
   

3. 使用活动单元格的 EntireRow 属性将当前行设为粗体样式。

   currentCell.EntireRow.Font.Bold = True
   

   currentCell.EntireRow.Font.Bold = true; 
   

4. 请确保 previousRow 的当前值不为 0。 0（零）指示这是第一次执行此代码。

   If previousRow <> 0 Then
   

   if (previousRow != 0)
   

5. 确保当前行不同于上一行。

   If currentCell.Row <> previousRow Then
   

   if (currentCell.Row != previousRow)
   

6. 检索对表示前面选定的行的范围的引用，并将该行设置为非粗体。

   Dim rng As Excel.Range = DirectCast(ws.Rows(previousRow), Excel.Range)
   rng.EntireRow.Font.Bold = False
   

   Excel.Range rng = (Excel.Range)ws.Rows[previousRow, missing];
   rng.EntireRow.Font.Bold = false;
   

7. 存储当前行，以便使它在下次传递时成为前一行。

   previousRow = currentCell.Row
   

   previousRow = currentCell.Row;
   

下面的示例演示完整的方法。

示例

Private Sub BoldCurrentRow(ByVal ws As Excel.Worksheet)

    ' Keep track of the previously bolded row.
    Static previousRow As Integer = 0

    ' Work with the current active cell.
    Dim currentCell As Excel.Range = Me.Application.ActiveCell

    ' Bold the current row.
    currentCell.EntireRow.Font.Bold = True

    ' If a pass has been done previously, make the old row not bold.
    ' Make sure previousRow is not 0 (otherwise this is your first pass through).
    If previousRow <> 0 Then

        ' Make sure the current row is not the same as the previous row.
        If currentCell.Row <> previousRow Then

            Dim rng As Excel.Range = DirectCast(ws.Rows(previousRow), Excel.Range)
            rng.EntireRow.Font.Bold = False
        End If
    End If

    ' Store the new row number for the next pass.
    previousRow = currentCell.Row
End Sub

// Keep track of the previously bolded row.
static int previousRow = 0;

private void BoldCurrentRow(Excel.Worksheet ws)
{
    // Work with the current active cell.
    Excel.Range currentCell = this.Application.ActiveCell;

    // Bold the current row.
    currentCell.EntireRow.Font.Bold = true; 

    // If a pass has been done previously, make the old row not bold.
    // Make sure previousRow is not 0 (otherwise this is your first pass through).
    if (previousRow != 0)

        // Make sure the current row is not the same as the previous row.
        if (currentCell.Row != previousRow)
        {
            Excel.Range rng = (Excel.Range)ws.Rows[previousRow, missing];
            rng.EntireRow.Font.Bold = false;
        }

    // Store the new row number for the next pass.
    previousRow = currentCell.Row;
}

请参见

任务

如何：将样式应用于工作簿中的范围

如何：在工作表之间复制数据和格式设置

概念

使用工作表

Office 解决方案中的可选参数