欢迎来到天天文库
浏览记录
ID:1535871
大小:60.50 KB
页数:8页
时间:2017-11-12
《excel_vba_activecell_用法》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、Activecell用法说明:自从本人开辟了一个《Excel百问百答》后,目前访问量接近三万,贴子已超过1000贴,并有21人收藏,很多网友纷纷要求我提供一些资料性的东西,为满足广大网友的要求,先将关于ActiveCell部分的内容整理如下,希望大家喜欢。一、相关解释和帮助Window.ActiveCell属性返回一个Range对象,它代表活动窗口(最上方的窗口)或指定窗口中的活动单元格。如果窗口中没有显示工作表,此属性无效。只读。语法表达式.ActiveCell表达式一个代表Window对象的变量。说明如果不指定对象识别符,此属性
2、返回活动窗口中的活动单元格。请仔细区分活动单元格和选定区域。活动单元格为选定区域内部的一个单元格。而选定区域可以包含多个单元格,但只有一个单元格为活动单元格。下列表达式都是返回活动单元格,并且都是等效的。VisualBasicforApplicationsActiveCellApplication.ActiveCellActiveWindow.ActiveCellApplication.ActiveWindow.ActiveCell示例此示例在消息框中显示活动单元格的值。由于如果活动表不是工作表则ActiveCell属性无效,所以此
3、示例使用ActiveCell属性之前先激活Sheet1。VisualBasicforApplicationsWorksheets("Sheet1").ActivateMsgBoxActiveCell.Value此示例更改活动单元格的字体格式设置。VisualBasicforApplicationsWorksheets("Sheet1").ActivateWithActiveCell.Font.Bold=True.Italic=TrueEndWith二、相关问答:1、activecell.row是什么意思?sheets("记录").s
4、electselection.end(xltoleft).selectrow_db=activecell.row这行,这是什么意思,定义了row_db等于的是什么?谢谢帮忙答:sheets("记录").select'选中"记录"工作表selection.end(xltoleft).select'相当于按下Ctrl+←键,即选中当前选区最上面一行向左数第一个或最后一个非空单元格row_db=activecell.row'这里的row_db就是当前选中的单元格所在的行号,也就是在运行宏之前的选区的最上面一行的行号小Fisher2、在EX
5、CEL宏里面有段程序如下:ActiveCell.FormulaR1C1请帮忙解释.答:当前活动单元格中的公式为......你自己录制一个宏,看一下就知道了.录制一个输入公式的宏.smallcolour3、我现在是基于这个做个循环的句子单元格C1=A1+B1SubMacro1()Range("C1").SelectActiveCell.FormulaR1C1="=RC[-2]+RC[-1]"EndSub这个地方RC[-2]+RC[-1]是绝对的行列位置,现在我需要写个循环,RC[-2]的2变成一个变量i,怎么写呢?我把-2换成-&i&
6、结果他变成了字符来处理了。谢谢指点了。答:Excel有两种引用方式的,一种是A1引用,一种是R1C1引用~你现在使用的是R1C1引用~要改引用方式可以在工具选项常规中取消R1C1引用样式~看到你给我的留言了,但是还是不明白你的意思~你是不是想在选中某个单元格的时候,引用附近的某个单元格呢?想把2换成i可以这样:ActiveCell.FormulaR1C1="=RC[-"&i&"]+RC[-1]"nxnd1986三、实例收集SubactiveCell()IfActiveCellIsNothingThenEndEndSubSuboffs
7、et()ActiveCell.Offset(RowOffset:=-2,ColumnOffset:=4).ActivateEndSubSubMyMacro'将当前的单元格的文本前加上文字ActiveCell.Value="无效值:"&ActiveCell.ValueEndSubSubfomula()ActiveCell.Formula="=SUM($G$12:$G$22)"EndSubSubMyMacro'+-*/及^运算ActiveCell.Value=(ActiveCell.Value*2)-1EndSubSubMyMacro(
8、)'移动单元格ActiveCell.Value="Topcell"ActiveCell.Offset(1,0)="Bottomcell"EndSubSubMyMacro()'移动到新的单元格'Changethetopcell.Acti
此文档下载收益归作者所有