本示例将活动单元格的样式设为“货币”类型。

ActiveCell.Style = "Currency"