ExcelVBAActivecell用法集锦Word下载.docx
- 文档编号:16607122
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:9
- 大小:18.24KB
ExcelVBAActivecell用法集锦Word下载.docx
《ExcelVBAActivecell用法集锦Word下载.docx》由会员分享,可在线阅读,更多相关《ExcelVBAActivecell用法集锦Word下载.docx(9页珍藏版)》请在冰豆网上搜索。
MsgBoxActiveCell.Value
此示例更改活动单元格的字体格式设置。
VisualBasicforApplicationsWorksheets("
).ActivateWithActiveCell.Font
.Bold=True
.Italic=True
EndWith
二、相关问答:
1、activecell.row是什么意思?
这行,这是什么意思,
sheets("
记录"
).selectselection.end(xltoleft).selectrow_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
SubMacro1()
Range("
C1"
).Select
ActiveCell.FormulaR1C1="
=RC[-2]+RC[-1]"
EndSub
这个地方RC[-2]+RC[-1]是绝对的行列位置,现在我需要写个循环,RC[-2]的2变成一个变量i,怎么写呢?
我把-2换成-&
i&
结果他变成了字符来处理了。
谢谢指点了。
Excel有两种引用方式的,一种是A1引用,一种是R1C1引用〜你现在使用的是R1C1引用〜要改引用方式可以在工具选项
常规中取消R1C1引用样式〜看到你给我的留言了,但是还是不明白你的意思〜你是不是想在选中某个单元格的时候,引用附近的某个单元格呢?
想把2换成i可以这样:
=RC[-"
&
i&
"
]+RC[-1]"
nxnd1986
三、实例收集
SubactiveCell()
IfActiveCellIsNothingThenEnd
Suboffset()
ActiveCell.Offset(RowOffset:
=-2,
ColumnOffset:
=4).Activate
SubMyMacro'
将当前的单元格的文本前加上文字
ActiveCell.Value="
无效值:
ActiveCell.Value
Subfomula()
ActiveCell.Formula="
=SUM($G$12:
$G$22)"
+-*/及八运算
ActiveCell.Value=(ActiveCell.Value*2)-1
SubMyMacro()'
移动单元格ActiveCell.Value="
Topcell"
ActiveCell.Offset(1,0)="
Bottomcell"
移动到新的单元格
'
Changethetopcell.ActiveCell.Value="
'
Movedownonecell.ActiveCell.Offset(1,0).Select'
Nowthischangesthebottomcell.ActiveCell.Value="
EndSub
SubselectRange()
MsgBoxActiveCell.Address
SubDownTen()'
改变激活的单元格
ActiveCell.Offset(10,0).Select
SubSelectUp()
Range(ActiveCell,ActiveCell.End(xlUp)).SelectEndSub
SubSelectToRight()
Range(ActiveCell,ActiveCell.End(xlToRight)).Select
SubSelectToLeft()
Range(ActiveCell,ActiveCell.End(xlToLeft)).SelectEndSub
SubSelectCurrentRegion()'
选择激活的区域
ActiveCell.CurrentRegion.Select
SubSelectActiveArea()'
选择激活的特定区域
Range(Range("
A1"
),
ActiveCell.SpecialCells(xlLastCell)).SelectEndSub
SubActivateNextBlankDown()
说明:
假定A1:
A8都有数据,A9没有数据,如果点击A1:
A8的任
何单元格,光标都会跳到第一个没有数据的那个单元格,即跳到A9
ActiveCell.Offset(1,0).Select
DoWhileNotIsEmpty(ActiveCell)
Loop
Sub向右边的单元格交换数据()
Dimtemp
temp=ActiveCell.Value
ActiveCell.Value=ActiveCell.Offset(0,1).Value
ActiveCell.Offset(0,1).Value=temp
SubSwapTextWithCellOnRight()'
复制
DimCellContent
CellContent=ActiveCell.Value
ActiveCell.Offset(0,1).Value=CellContent
SubMyMacro()
IfActiveCell.Value>
100Then
ActiveCell.Value=100
EndIf
使用If语句
1000Then
ActiveCell.Offset(0,1).ValueActiveCell.Value*0.05
ElseIfActiveCell.Value>
500Then
ActiveCell.Offset(0,1).ValueActiveCell.Value*0.025
Else
ActiveCell.Offset(0,1).Value=5
SubFormatAllCellsInColumn()
假定A1:
A8都有数据,A9没有数据,如果点击A1,再运行该程序
就可以看到效果
DoUntilActiveCell.Value="
"
ActiveCell.Rows.EntireRow.Select
Selection.Interior.ColorIndex=35
Selection.Interior.Pattern=xlSolid
ActiveCell.Offset(2,0).Select
SubFixText()'
将首字母换成大写
ActiveCell.Value
Application.WorksheetFunction.Proper("
asdf"
)
SubDoWhileDemo()'
dowhile...loop的示例
DoWhileActiveCell.value<
>
Empty
ActiveCell.value=ActiveCell.value*2
ActiveCell.offset(1,0).Select
SubDoLoopWhileDemo()'
doloop示例
Do
LoopWhileActiveCell.value<
SubSelectActiveColumn()'
选择激活的单元格所在的列
IfIsEmpty(ActiveCell)ThenExitSub
OnErrorResumeNext
IfIsEmpty(ActiveCell.Offset(-1,0))ThenSetTopCell
=ActiveCellElseSetTopCell=ActiveCell.End(xlUp)
IfIsEmpty(ActiveCell.Offset(1,0))ThenSetBottomCell=ActiveCellElseSetBottomCell=ActiveCell.End(xlDown)
Range(TopCell,BottomCell).Select
SubSelectActiveRow()'
选择激活的单元格所在的行
SetLeftCell
1))ThenSet
SetRightCell
LeftCell=ActiveCellElse
ActiveCell.End(xlToLeft)
IfIsEmpty(ActiveCell.Offset(0,
RightCell=ActiveCellElse
ActiveCell.End(xlToRight)
Range(LeftCell,RightCell).Select
SubActivateNextBlankDown()'
选择本列的第一个空单元格
DoWhileNotIsEmpty(ActiveCell)ActiveCell.Offset(1,0).Select
SubActivateNextBlankToRight()'
选择本行的第一个空单元格
ActiveCell.Offset(0,1).Select
DoWhileNotIsEmpty(ActiveCell)ActiveCell.Offset(0,1).Select
SubSelectFirstToLastInRow()'
选择有数据的本行
SetLeftCell=Cells(ActiveCell.Row,1)
SetRightCell=Cells(ActiveCell.Row,256)
IfIsEmpty(LeftCell)
Then
Set
LeftCell
LeftCell.End(xlToRight)
IfIsEmpty(RightCell)
RightCell
RightCell.End(xlToLeft)
IfLeftCell.Column=
256AndRightCell.Column=
ActiveCell.SelectElseRange(LeftCell,RightCell).Select
SubGoToMax()'
找到本表中最大的值
DimWorkRangeAsRange
IfTypeName(Selection)<
Range"
ThenExitSub
IfSelection.Count=1Then
SetWorkRange=Cells
SetWorkRange=SelectionEndIf
MaxVal=Application.Max(WorkRange)
WorkRange.Find(What:
=MaxVal,_
After:
=WorkRange.Range("
),_
LookIn:
=xlValues,_
LookAt:
=xlPart,_
SearchOrder:
=xlByRows,_
SearchDirection:
=xlNext,MatchCase:
=False_).Select
IfErr<
0ThenMsgBox"
Maxvaluewasnotfound:
&
MaxVal
SubToggleWrapText()'
取消自动换行
选择一个有自动换行的区域
IfTypeName(Selection)="
Then
Selection.WrapText=NotActiveCell.WrapText
Subset1()'
用Set激活
SetmyActiveCell=ActiveCell
SetmyActiveWorksheet=ActiveSheet
SetmyActiveWorkbook=ActiveWorkbook
激活
myActiveWorkbook.Activate
myActiveWorksheet.Activate
myActiveCell.Activate
Subfont()'
设置当前激活区域的字体
WithActiveCell.CurrentRegion.Font
.Name="
TimesNewRoman"
.Size=12
.Bold=False
.Italic=False
相关链接:
Excel百问百答:
Lookup的用法详解(含实例和动画)
http:
//we
ml
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ExcelVBAActivecell 用法 集锦