-
Activecell
用法集锦，山野雪人（冯德平）收集整理
说明：自从本人开辟了一个《
Exc
el
百问百答》后，目前访问量
接近三万，贴子已超过
1000
贴，并有
21
人收藏，很多网友纷纷
要求我提供一些资料性的东西，
为满足广
大网友的要求，
先将关
于
Active
Cell
部分的内容整理如下，希望大家喜欢。
一、相关解释和帮助
Cell
属性
返回一个
Range
对象，它代表
活动窗口（最上方的窗口）或指
定窗口中的活动单元格。
如果窗
口中没有显示工作表，
此属性无
效。只读。
语法
表达式
.ActiveCell
表达式
一个代表
Window
对象的变量。
说明
如果不指定对象识别符，此属性返回活动窗口中的活动单元格。
请仔细区分活动单元格和选定区域。
活动单元格为选定区域内部
的一个单元格。
而选定区域可以包含
多个单元格，
但只有一个单
元格为活动单元格。
下列表达式都是返回活动单元格，并且都是等效的。
Visual Basic for
Applications
ActiveCell
Cell
Cell
Cell
示例
此示例在消息框中显示活动单元格
的值。
由于如果活动表不是工
作表则
ActiveCell
属性无效，
所以此示例使用
ActiveCell
属
性之前先激活
Sheet1
。
Visual Basic for Applications
Worksheets(
MsgBox
此示例更改活动单元格的字体格式设置。
Visual Basic for
Applications
Worksheets(
With
.Bold = True
.Italic = True
End With
二、相关问答：
1
、
是什么意思？
sheets(
记录
(xltoleft).select
row_db=
这行，这是什么
意思，
定义了
row_db
等于的是什
么？
谢谢帮忙
答：
sh
eets(
记录
选中
< br>
记录
工作表
(xltoleft).select
'
相当于按下
Ctrl +
←键
,
即选中当前选区最上面一行向左数第一个或最后一个非空单元
格
row_db=
'
这里的
row_db
就是当前选
中的单元格
所在的行号
,
也就是在运行
宏之前的选区的最上面一行的行号
小
Fisher
2
、
在
EXCEL
宏里面有段程序如下
:
aR1C1
请帮忙解释
.
答：
当前活动单元格中的公式为
......
你自己录制一个宏
,
看一下就知道了
.
录制一个输入公式的宏
.
smallcolour
3
、
我现在是基于这个做个循环的句子
单元格
C1=A1+B1
Sub
Macro1()
Range(
aR1C1
=
End Sub
这个地方
RC[
-2]+RC[-1]
是绝对的行列位置，现在我需要写个循
环
，
RC[-2]
的
2
< br>变成一个变量
i,
怎么写呢？我把
-2
换成
-&i&
结果他变成了字符来处理了。
谢谢指点了。
答：
Ex
cel
有两种引用方式的，一种是
A1
引用，一种是
R1C1
引用
~
你现在使用的是
R1C1
引用
< br>~
要改引用方式可以在
工具
选项
常规
中取消
R1C1
引用样式
~
看到你给我的留言
了，但是还是不
明白你的意思
~
你是不
是想在选中某个单元格的时候，引用附近
的某个单元格呢？想把
2
换成
i
可以这样：
< br>
aR1C1 =
nxnd1986
三、实例收集
Sub activeCell()
If
ActiveCell Is Nothing Then End
End Sub
Sub offset()
(RowOffset:=-2,
ColumnOffset:=4).Activate
End Sub
Sub
MyMacro '
将当前的单元格的文本前加上文字
=
无效值
:
&
End
Sub
Sub fomula()
a =
End Sub
Sub MyMacro '+-*/
及
^
运算
=
( * 2) - 1
End Sub
Sub MyMacro()
'
移动单元格
=
(1, 0) =
End Sub
Sub MyMacro()
'
移动到新的单元格
' Change the top cell.
=
' Move down one cell.
(1, 0).Select
' Now this changes the bottom cell.
=
End Sub
Sub
selectRange()
MsgBox s
End Sub
Sub
DownTen() '
改变激活的单元格
(10, 0).Select
End Sub
Sub SelectUp()
Range(ActiveCell, (xlUp)).Select
End
Sub
Sub SelectToRight()
Range(ActiveCell,
(xlToRight)).Select
End Sub
Sub SelectToLeft()
Range(ActiveCell, (xlToLeft)).Select
End Sub
Sub
SelectCurrentRegion()
'
选择激活的区域
End Sub
Sub
SelectActiveArea()
'
选择激活的特定区域
Range(Range(
lCells(xlLastCell)).Select
End Sub
Sub
ActivateNextBlankDown()
-
-
-
-
-
-
-
-
-
上一篇：如何让眼睛变得更有神
下一篇：如何通过锻炼使自己身体变得强壮 你懂得~