excelvbaactivecell用法集锦

《excelvbaactivecell用法集锦》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Activecell用法集锦，山野雪人（冯德平）收集整理说明：自从本人开辟了一个《Excel百问百答》后，目前访问量接近三万，贴子已超过1000贴，并有21人收藏，很多网友纷纷要求我提供一些资料性的东西，为满足广大网友的要求，先将关于ActiveCell部分的内容整理如下，希望大家喜欢。一、相关解释和帮助Window.ActiveCell属性返回一个Range对象，它代表活动窗口（最上方的窗口）或指定窗口中的活动单元格。如果窗口中没有显示工作表，此属性无效。只读。语法表达式.ActiveCell表达式一个代表Window对象的变量。说明如果不指定对象识别符，此属性返回活动窗口

2、中的活动单元格。请仔细区分活动单元格和选定区域。活动单元格为选定区域内部的一个单元格。而选定区域可以包含多个单元格，但只有一个单元格为活动单元格。下列表达式都是返回活动单元格，并且都是等效的。VisualBasicforApplicationsActiveCellApplication.ActiveCellActiveWindow.ActiveCellApplication.ActiveWindow.ActiveCell示例此示例在消息框中显示活动单元格的值。由于如果活动表不是工作表则ActiveCell属性无效，所以此示例使用ActiveCell属性之前先激活Sheet1。

3、VisualBasicforApplicationsWorksheets("Sheet1").ActivateMsgBoxActiveCell.Value此示例更改活动单元格的字体格式设置。VisualBasicforApplicationsWorksheets("Sheet1").ActivateWithActiveCell.Font.Bold=True.Italic=TrueEndWith二、相关问答：1、activecell.row是什么意思？sheets("记录").selectselection.end(xltoleft).selectrow_db=activece

4、ll.row这行，这是什么意思，定义了row_db等于的是什么？谢谢帮忙答：sheets("记录").select'选中"记录"工作表selection.end(xltoleft).select'相当于按下Ctrl+←键,即选中当前选区最上面一行向左数第一个或最后一个非空单元格row_db=activecell.row'这里的row_db就是当前选中的单元格所在的行号,也就是在运行宏之前的选区的最上面一行的行号小Fisher2、在EXCEL宏里面有段程序如下:ActiveCell.FormulaR1C1请帮忙解释.答：当前活动单元格中的公式为......你自己录制一个宏,看一

5、下就知道了.录制一个输入公式的宏.smallcolour3、我现在是基于这个做个循环的句子单元格C1=A1+B1SubMacro1()Range("C1").SelectActiveCell.FormulaR1C1="=RC[-2]+RC[-1]"EndSub这个地方RC[-2]+RC[-1]是绝对的行列位置，现在我需要写个循环，RC[-2]的2变成一个变量i,怎么写呢？我把-2换成-&i&结果他变成了字符来处理了。谢谢指点了。答：Excel有两种引用方式的，一种是A1引用，一种是R1C1引用~你现在使用的是R1C1引用~要改引用方式可以在工具选项常规中取消R1C1引用样式~

6、看到你给我的留言了，但是还是不明白你的意思~你是不是想在选中某个单元格的时候，引用附近的某个单元格呢？想把2换成i可以这样：ActiveCell.FormulaR1C1="=RC[-"&i&"]+RC[-1]"nxnd1986三、实例收集SubactiveCell()IfActiveCellIsNothingThenEndEndSubSuboffset()ActiveCell.Offset(RowOffset:=-2,ColumnOffset:=4).ActivateEndSubSubMyMacro'将当前的单元格的文本前加上文字ActiveCell.Value="无效值:"

7、&ActiveCell.ValueEndSubSubfomula()ActiveCell.Formula="=SUM($G$12:$G$22)"EndSubSubMyMacro'+-*/及^运算ActiveCell.Value=(ActiveCell.Value*2)-1EndSubSubMyMacro()'移动单元格ActiveCell.Value="Topcell"ActiveCell.Offset(1,0)="Bottomcell"EndSubSubMyMacro()'移动到新的单元格'Chang