VBA

处理活动单元格

ActiveCell 属性返回代表活动单元格的 Range 对象。可对活动单元格应用 Range 对象的任何属性和方法，如下例所示。

Sub SetValue()
    Worksheets("Sheet1").Activate
    ActiveCell.Value = 35
End Sub
注意   只有活动单元格所在的工作表处于活动状态时，才能处理该活动单元格。

移动活动单元格

可用 Activate 方法指定活动单元格。例如，下述过程使单元格 B5 成为活动单元格，然后将其字体设置为加粗。

Sub SetActive()
    Worksheets("Sheet1").Activate
    Worksheets("Sheet1").Range("B5").Activate
    ActiveCell.Font.Bold = True
End Sub
注意   若要选定单元格区域，请用 Select 方法。若要使单个单元格成为活动单元格，请使用 Activate 方法。

可用 Offset 属性来移动活动单元格。下述过程在选定区域内的活动单元格中插入文本，然后将活动单元格右移一格，但并不更改选定区域。

Sub MoveActive()
    Worksheets("Sheet1").Activate
    Range("A1:D10").Select
    ActiveCell.Value = "Monthly Totals"
    ActiveCell.Offset(0, 1).Activate
End Sub

选择活动单元格周围的单元格

CurrentRegion 属性返回由空白行和空白列所包围的单元格区域。下例中，选定区域扩充到与活动单元格相邻的包含数据的单元格中，然后用“货币”样式设置该区域的格式。

Sub Region()
    Worksheets("Sheet1").Activate
    ActiveCell.CurrentRegion.Select
    Selection.Style = "Currency"
End Sub