VBA - Excel編程概念之:【單元格和區域】五、處理活動單元格

處理活動單元格

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