Excel 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

上页:Excel VBA教程:处理图形(绘图对象) 下页:Excel VBA教程:Worksheet对象事件

Excel VBA教程:处理活动单元格

Excel VBA教程:Worksheet对象事件 Excel VBA教程:页眉和页脚的格式代码
Excel VBA教程:ActiveX 控件 Excel VBA教程:“帮助”主题不可用
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:“帮助”主题不可用
Excel VBA教程:“帮助”主题不可用 Excel VBA教程:单元格错误值
Excel VBA教程:内置对话框参数列表 Excel VBA教程:Hidden属性
Excel VBA教程:与语言相关的属性、方法和函数 Excel VBA教程:可用于 Visual Basic 的工作表函数列表
Excel VBA教程:新的事件 Excel VBA教程:新的方法(按字母顺序列出)
Excel VBA教程:新的方法(按对象列出) Excel VBA教程:新的对象
Excel VBA教程:新的属性(按字母顺序列出) Excel VBA教程:新的属性(按对象排序)
Excel VBA教程:为 Microsoft Excel 2002 开发人员提供的新增功能 Excel VBA教程:OLE 程序标识符
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号