处理活动单元格 - Microsoft Excel Visual Basic 2002 参考

返回介绍

处理活动单元格

发布于 2019-08-07 字数 1580 浏览 1032 评论 0

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

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!