Excel VBA Activecell 用法集锦.doc
文本预览下载声明
Activecell 用法集锦,山野雪人(冯德平)收集整理
说明:自从本人开辟了一个《Excel百问百答》后,目前访问量接近三万,贴子已超过1000贴,并有21人收藏,很多网友纷纷要求我提供一些资料性的东西,为满足广大网友的要求,先将关于ActiveCell部分的内容整理如下,希望大家喜欢。
一、相关解释和帮助
Window.ActiveCell 属性
返回一个 Range 对象,它代表活动窗口(最上方的窗口)或指定窗口中的活动单元格。如果窗口中没有显示工作表,此属性无效。只读。
语法
表达式.ActiveCell
表达式 一个代表 Window 对象的变量。
说明
如果不指定对象识别符,此属性返回活动窗口中的活动单元格。
请仔细区分活动单元格和选定区域。活动单元格为选定区域内部的一个单元格。而选定区域可以包含多个单元格,但只有一个单元格为活动单元格。
下列表达式都是返回活动单元格,并且都是等效的。
Visual Basic for Applications
ActiveCell
Application.ActiveCell
ActiveWindow.ActiveCell
Application.ActiveWindow.ActiveCell
示例
此示例在消息框中显示活动单元格的值。由于如果活动表不是工作表则 ActiveCell 属性无效,所以此示例使用 ActiveCell 属性之前先激活 Sheet1。
Visual Basic for Applications
Worksheets(Sheet1).Activate
MsgBox ActiveCell.Value
此示例更改活动单元格的字体格式设置。
Visual Basic for Applications
Worksheets(Sheet1).Activate
With ActiveCell.Font
.Bold = True
.Italic = True
End With
二、相关问答:
1、activecell.row 是什么意思?
sheets(记录).select
selection.end(xltoleft).select
row_db=activecell.row 这行,这是什么意思,定义了row_db等于的是什么?
谢谢帮忙
答:
sheets(记录).select 选中记录工作表
selection.end(xltoleft).select 相当于按下Ctrl + ←键,即选中当前选区最上面一行向左数第一个或最后一个非空单元格
row_db=activecell.row 这里的row_db就是当前选中的单元格所在的行号,也就是在运行宏之前的选区的最上面一行的行号
小Fisher
2、
在EXCEL宏里面有段程序如下:
ActiveCell.FormulaR1C1请帮忙解释.
答:
当前活动单元格中的公式为......
你自己录制一个宏,看一下就知道了.
录制一个输入公式的宏.
smallcolour
3、
我现在是基于这个做个循环的句子
单元格 C1=A1+B1
Sub Macro1()
Range(C1).Select
ActiveCell.FormulaR1C1 = =RC[-2]+RC[-1]
End Sub
这个地方RC[-2]+RC[-1]是绝对的行列位置,现在我需要写个循环,RC[-2]的2变成一个变量i,怎么写呢?我把-2换成 -i结果他变成了字符来处理了。
谢谢指点了。
答:
Excel有两种引用方式的,一种是A1引用,一种是R1C1引用~你现在使用的是R1C1引用~要改引用方式可以在 工具 选项 常规 中取消R1C1引用样式~看到你给我的留言了,但是还是不明白你的意思~你是不是想在选中某个单元格的时候,引用附近的某个单元格呢?想把2换成i可以这样:
ActiveCell.FormulaR1C1 = =RC[- i ]+RC[-1]
nxnd1986
三、实例收集
Sub activeCell()
If ActiveCell Is Nothing Then End
End Sub
Sub offset()
ActiveCell.Offset(RowOffset:=-2, ColumnOffset:=4).Activate
End Sub
Sub MyMacro 将当前的单元格的文本前加上文字
ActiveCell.Value = 无效值: ActiveCell.Value
End Sub
Sub fomula()
ActiveCell.Formula = =SUM($G$12:$G$22)
E
显示全部