本示例更改活动单元格的字体格式设置。

ActiveWorkbook.Worksheets("Sheet1").Activate

With ActiveCell.Font

    .Bold = True

    .Italic = True