excel vba笔记141007Word文档下载推荐.docx
《excel vba笔记141007Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《excel vba笔记141007Word文档下载推荐.docx（25页珍藏版）》请在冰点文库上搜索。
）,Range（"
E5:
H8"
））A1到D4与E5到H8区域单元格
A:
）A列单元格
1:
1"
）第1行
Rows
（2）第2行
Rows（"
2:
4"
）第2行到第4行
Columns
（2）B列
Columns（"
B:
D"
）B列到D列
B3"
）.EntireColumnB列
）.EntireRow第3行
带参数单元格表示（设参数为a和b，a=5，b=2）
&
a）Aa（A5）单元格
A2:
a）A2到Aa（A5）单元格
b,"
a）Ab（A2）到Aa（A5）单元格
Cells（5,a）E5单元格
单元格行数和列数
B5"
）.RowB5所在的行数（=5）
）.ColumnB5所在的列数（=2）
单元格偏移
语法：
expression.Offset（RowOffset,ColumnOffset）
）.Offset（rowoffset:
=2,columnoffset:
=3）A1偏移2行3列（D3）
）.Offset（2,3）A1偏移2行3列（D3）
单元格调整大小
expression.Resize（RowSize,ColumnSize）
）.Resize（rowsize:
=2,columnsize:
=3）A1起始增至2行3列（A1到C3单元格）
）.Resize（2,3）A1起始增至2行3列（A1到C3单元格）
单元格地址表示
WithRange（"
B2:
I6"
）
[C8]=.Address'
结果为$B$2:
$I$6
[C9]=.Address（0,0）'
结果为B2:
I6
[C10]=.Address（1,0）'
结果为B$2:
I$6
[C11]=.Address（0,1）'
结果为$B2:
$I6
[C12]=.Address（1,1）'
EndWith
单元格上级信息
B1"
[B3]=.Parent.Name'
B3返回B1单元格所在工作表名称
[B4]=.Parent.Parent.Name'
B4返回B1单元格所在工作簿名称
单元格删除
expression.Delete（Shift）
Worksheets（"
Sheet1"
）.Range（"
D10"
）.DeleteShift:
=xlShiftToLeft
'
删除Sheet1的A1:
D10单元格区域，并将其右侧单元格向左移位
XlDeleteShiftDirection常量（Shift）
值
描述
xlShiftToLeft
-4159
右侧单元格左移
xlShiftUp
-4162
下方单元格上移
特殊单元格
2.1.1.1最后一个单元格
Cells（Rows.Count,1）.End（xlUp）.Select'
选定A列最后一个单元格
B65536"
）.End（xlUp）.Select'
选定B列最后一个单元格
Cells（1,Columns.Count）.End（xlToLeft）.Select
选定第1行最后一个单元格
2.1.1.2特定单元格
expression.SpecialCells（Type,Value）
Sheet1.UsedRange.SpecialCells（xlCellTypeConstants,xlTextValues）.Select
选中Sheet1中的已用区域的文本常量
XlCellType常量（Type）
xlCellTypeAllFormatConditions
-4172
任意格式单元格
xlCellTypeAllValidation
-4174
含有验证条件的单元格
xlCellTypeBlanks
4
空单元格
xlCellTypeComments
-4144
含有注释的单元格
xlCellTypeConstants
2
含有常量的单元格
xlCellTypeFormulas
-4123
含有公式的单元格
xlCellTypeLastCell
11
使用区域中最后的单元格
xlCellTypeSameFormatConditions
-4173
含有相同格式的单元格
xlCellTypeSameValidation
-4175
含有相同验证条件的单元格
xlCellTypeVisible
12
所有可见单元格
XlSpecialCellsValue常量（Value）
xlErrors
16
错误
xlLogical
逻辑值
xlNumbers
1
数字
xlTextValues
文本
单元格值的判断
空值的判断
IfRange（"
）="
"
Then'
判断A1是否为空单元格
IfLen（[A1]）=0Then'
IfVBA.IsEmpty（[A1]）Then'
数字的判断
IfVBA.IsNumeric（[A2]）And[A2]<
>
"
Then'
判断A2是否为数字
IfApplication.WorksheetFunction.IsNumber（[A2]）Then'
文本的判断
IfApplication.WorksheetFunction.IsText（[A3]）Then'
判断A3是否为文本
IfVBA.TypeName（[A3].Value）="
String"
汉字的判断
If[A4]>
z"
判断A4是否为汉字
错误值的判断
IfVBA.IsError（[A5]）Then'
判断A5是否为错误值
IfApplication.WorksheetFunction.IsError（[A5]）Then'
日期的判断
IfVBA.IsDate（[A6]）Then'
判断A6是否为日期
合并单元格的判断
E2"
）=IsNull（Range（"
D7"
）.MergeCells）Then'
判断A1:
D7是否存在合并单元格
单元格格式设置
字体格式
B2"
）.Font'
设置B2单元格的字体格式
.Name="
华文彩云"
'
设置字体为华文彩云字体
.FontStyle="
BoldItalic"
设置字体为粗体和斜体
.Size=18'
设置字体大小为18
.Color=RGB（0,255,0）'
设置字体为RGB中的（0,255,0）
.ColorIndex=3'
设置字体颜色为调色板中的3号
.Underline=2'
设置字体带单下划线
.Strikethrough=True'
设置字体带删除线
.Superscript=True'
设置字体为上标字符
.Subscript=False'
设置字体不为下标字符
）.Font.Bold=True'
设置A1字体为粗体
）.Font.Italic=True'
设置A1字体为斜体
调色板中颜色的编号
Underline常量
xlUnderlineStyleNone
-4142
无（默认值）
xlUnderlineStyleSingle
单下划线
xlUnderlineStyleDouble
3或-4119
双下划线
xlUnderlineStyleSingleAccounting
会计用单下划线
xlUnderlineStyleDoubleAccounting
5
会计用双下划线
Strikethrough常量
描述：
是否删除线
True
是
False
否（默认值）
Superscript常量
是否为上标字符
Subscript常量
是否为下标字符
对齐格式
2.1.1.3水平对齐
expression.HorizontalAlignment
HorizontalAlignment常量
水平对齐
xlGeneral
常规（默认值）
xlLeft
靠左（缩进）
xlCenter
居中
xlRight
靠右（缩进）
xlFill
填充
xlJustify
两端对齐
xlCenterAcrossSelection
跨列居中
xlDistributed
分散对齐（缩进）
D2"
）.HorizontalAlignment=xlCenter'
D2设置水平居中
2.1.1.4垂直对齐
expression.VerticalAlignment
VerticalAlignment常量
垂直对齐
xlTop
靠上
xlBottom
靠下（默认值）
分散对齐
）.VerticalAlignment=xlCenter'
D2设置垂直居中
2.1.1.5缩进
expression.IndentLevel（可为
0到15之间的整数值-输入小数会取整）
.HorizontalAlignment=xlLeft'
设置D2为左对齐
.IndentLevel=2'
设置D2缩进量为2
2.1.1.6文字方向
expression.Orientation（可为
–90到90度之间的整数值）
）.Orientation=30'
设置D2的文字方向为30度
2.1.1.7阅读次序
expression.ReadingOrder
ReadingOrder常量
返回或设置指定对象的阅读次序
xlContext
根据内容（默认值）
xlLTR
从左到右
xlRTL
从右到左
2.1.1.8单元格缩小字体填充
）.ShrinkToFit=True'
B2开启缩小字体填充
2.1.1.9单元格自动换行
）.WrapText=True'
B2开启自动换行
2.1.1.10单元格合并
C5"
）.MergeCells=True'
C5区域合并单元格
）.Merge'
e1"
）=Range（"
b2"
）.MergeArea.Address'
返回单元格所在的合并单元格区域
内部格式
）.Interior'
设置B2单元格的内部格式
.ColorIndex=8'
设置边框内部颜色为调色板中的8号
.Pattern=xlPatternCrissCross'
设置单元格设置内部图案为十字图案
.PatternColorIndex=6'
设置边框内部图案的颜色为调色板中的6号
XlColorIndex常量（ColorIndex）
xlColorIndexAutomatic
自动填充（默认值）
xlColorIndexNone
无内部填充
设置ColorIndex和PatternColorIndex也可使用XlColorIndex常量
Pattern常量
xlSolid
实心（默认值）
xlGray75
75%灰色
xlGray50
50%灰色
xlGray25
25%灰色
xlGray16
12.5%灰色
xlGray8
6.25%灰色
xlHorizontal
水平条纹
xlVertical
垂直条纹
xlDown
逆对角线条纹
xlUp
对角线条纹
xlChecker
对角线剖面线
xlSemiGray75
粗对角线剖面线
xlLightHorizontal
细水平条纹
xlLightVertical
细垂直条纹
xlLightDown
细逆对角线条纹
xlLightUp
细对角线条纹
xlGrid
细水平剖面线
xlCrissCross或xlPatternCrissCross
细对角线剖面线
边框格式
BorderAround（LineStyle,Weight,ColorIndex,Color）
）.Borders'
设置B2:
D4区域的边框
.LineStyle=xlDot'
设置边框的线条样式为
.Weight=xlMedium'
设置边框的粗细为中等
.ColorIndex=5'
设置边框的颜色为调色板中的5号
）.BorderAroundxlContinuous,xlMedium,5
D4区域的外围边框为连续线，中等粗细，颜色为调色板中的5号
XlBordersIndex常量
xlDiagonalDown
斜下边框
xlDiagonalUp
6
斜上边框
xlEdgeBottom
9
底部边框
xlEdgeLeft
7
左边框
xlEdgeRight
10
右边框
xlEdgeTop
8
顶部边框
xlInsideHorizontal
内部水平
xlInsideVertical
内部垂直
XlLineStyle常量（LineStyle）
xlContinuous
实线（默认值）
xlDash
-4115
虚线
xlDashDot
点划相间线.
xlDashDotDot
划线后跟两个点
xlDot
-4118
点式线
xlDouble
-4119
双线
xlLineStyleNone
无线条
xlSlantDashDot
13
倾斜的划线.
Weight常量
xlHairline
虚线（最细）
xlMedium
-4138
中等
xlThick
粗
xlThin
细（默认值）
单元格选择
expression.Goto（Reference,Scroll）
）.Select'
选中A1单元格
）.Activate'
选定A1:
B5区域
Application.GotoReference:
=Range（"
A5"
）,scroll:
=True
选定单元格A5，并滚动工作表以显示该单元格
Scroll常量
是否滚动窗口单元格使目标区域出现在窗口的左上角
单元格清除
）.Clear'
清除A1单元格（包括所有格式）
）.ClearContents'
清除A1单元格的数值
）.ClearComments'
清除A1单元格的批注
）.ClearNotes'
）.Comment.Delete'
单元格输入
单元格复制
expression.Copy（Destination）
）.Copy'
复制A1单元格
）.CopyDestination:
A2"
A1复制到A2（包括所有格式）
）.CopyRange（"
A1复制到A2（带所有格式）
单元格粘贴
expression.PasteSpecial（Paste,Operation,SkipBlanks,Transpose）
A4"
）.PasteSpecialPaste:
=xlPasteValues,Operation:
=xlPasteSpecialOperationNone,Skipblanks:
=True,Transpose:
=True'
A1的数值复制到A4中，其他属性为默认值
）.PasteSpecialxlPasteValues'
A1的值复制到A4中
）.PasteSpecial（xlPasteValues）'
Paste常量
xlPasteAll
-4104
全部（默认值）
xlPasteAllExceptBorders
边框除外
xlPasteColumnWidths
列宽
xlPasteComments
批注
xlPasteFormats
-4122
格式
xlPasteFormulas
公式
xlPasteFormulasAndNumberFormats
公式和数字格式
xlPasteValidation
有效性验证
xlPasteValues
-4163
数值
xlPasteValuesAndNumberFormats
值和数字格式
Operation常量
xlPasteSpecialOperationNone
xlPasteSpecialOperationAdd
加
xlPasteSpecialOperationSubtract
3
减
xlPasteSpecialOperationMultiply
乘
xlPasteSpecialOperationDivide
除
SkipBlanks常量
是否跳过空单元格
Transpose常量
是否进行转置行列
单元格的输入
）.Value=Range（"
）.Value'
A4的数值赋给A1
单元格查找
Find、FindNext、FindPrevious
expression.Find（What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SerchFormat）
expression.FindNext（After）
expression.FindPrevious（After）
LookIn常量
查找范围
xlFormulas
公式（默认值）
xlValues
xlComments
XlLookAt常量（LookAt）
xlWhole
单元格全字匹配
xlPart
部分匹配（默认值）
XlSearchOrder常量（SearchOrder）
xlByRows
按行查找（默认值）
xlByColumns
按列查找
XlSearchDirection常量（SearchDirection）
xlNext
查找下一个
xlPrevious
查找上一个
MatchCase常量
是否区分大小写
MatchByte常量
双字节语言支持时使用
双字节字符仅匹配
升级会员 