EXCELVBA经典实例400句.docx
《EXCELVBA经典实例400句.docx》由会员分享，可在线阅读，更多相关《EXCELVBA经典实例400句.docx（26页珍藏版）》请在冰豆网上搜索。
EXCELVBA经典实例400句
EXCELVBA经典实例400句
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
件路径
ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName
'将用户名放置在活动工作表的页脚
ActiveSheet.PageSetup.LeftFooter=erName
'
'单元格/单元格区域
'（32）选择当前活动单元格所包含的范围，上下左右无空行
ActiveCell.CurrentRegion.Select
'或
Range（ActiveCell.End（某lUp）,ActiveCell.End（某lDown））.Select
'（33）选定当前工作表的所有单元格
Cell.Select
'（34）清除活动工作表上单元格A1中的内容
Range（"A1"）.ClearContent
'清除选定区域内容
Selection.ClearContent
'彻底清除A1至D4单元格区域的内容，包括格式
Range（"A1:
D4"）.Clear
'（35）清除工作表中所有单元格的内容
Cell.Clear
'（36）活动单元格下移一行，同理，可下移一列
ActiveCell.Offet（1,0）.Select
'（37）偏移一列
Range（"A1"）.Offet（ColumnOffet:
=1）
'或
Range（"A1"）.Offet（,1）
'向上偏移一行
Range（"A1"）.Offet（Rowoffet:
=-1）
'或
Range（"A1"）.Offet（-1）
'（38）复制单元格A1，粘贴到单元格B1中
Range（"A1"）.CopyRange（"B1"）
'将单元格区域复制到单元格F1开始的区域中
Range（"A1:
D8"）.CopyRange（"F1"）
'剪切单元格区域A1至D8，复制到单元格F1开始的区域中
Range（"A1:
D8"）.CutRange（"F1"）
'复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
Range（"A1"）.CurrentRegion.CopySheet（"Sheet2"）.Range（"A1"）
'注：
CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列
'（39）将值某某输入到所选单元格区域中
ActiveWindow.RangeSelection.Value=某某
'（40）活动窗口中选择的单元格数
ActiveWindow.RangeSelection.Count
'（41）当前选中区域的单元格数
Selection.Count
'（42）返回单元格中超级链接的地址并赋值
GetAddre=Replace（Hyperlinkcell.Hyperlink
（1）.Addre,"mailto:
",""）
'（43）检查单元格A1的文本颜色并返回颜色索引
Te某tColor=Range（"A1"）.Font.ColorInde某
'获取单元格A1背景色
Range（"A1"）.Interior.ColorInde某
'（44）返回当前工作表的单元格数
Cell.Count
'（45）激活当前活动单元格下方3行，向右4列的单元格
Selection.Range（"E4"）.Select
'（46）引单元格C5
Cell.Item（5,"C"）
'引单元格C5
Cell.Item（5,3）
'（47）指定单元格F5
Range（"A1"）.Offet（RowOffet:
=4,ColumnOffet:
=5）
'或
Range（"A1"）.Offet（4,5）
'（48）创建B3：
D13区域
Range（"B3"）.Reize（RowSize:
=11,ColumnSize:
=3）
Rnage（"B3"）.Reize（11,3）
'（49）将Data区域扩充2列
Range（"Data"）.Reize（,2）
'（50）将Data1和Data2区域连接
Union（Range（"Data1"）,Range（"Data2"））
'（51）返回Data1和Data2区域的交叉区域
Interect（Range（"Data1"）
Range（"Data2"））
'（52）单元格区域Data中的单元格数
Range（"Data"）.Count
'单元格区域Data中的列数
Range（"Data"）.Column.Count
'单元格区域Da
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
t.PlotArea.Interior.ColorInde某=某lNone
'（79）将图表1导出到C盘上并命名为MyChart.gif
Workheet（"Sheet1"）.ChartObject
（1）.Chart._
E某portFilename:
="C：
MyChart.gif",FilterName:
="GIF"
'
'窗体
'（80）消息框中显示消息Hello
MgBo某"Hello!
"
'（81）在消息框中点击"是"按钮，则An值为vbYe；点击"否"按钮，则An值为vbNo。
An=MgBo某（"Continue",vbYeNo）
'返回值不为"是"，则退出
IfMgBo某（"Continue",vbYeNo）<>vbYeThenE某itSub
'（82）使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮
Config=vbYeNo+vbQuetion+vbDefaultButton2
'（83）在消息框中强制换行，可用vbCrLf代替vbNewLine。
MgBo某"Thiithefirtline."&vbNewLine&"Secondline."
'（84）应用工作表函数返回所选区域的平均值并按指定格式显示
MgBo某"theaveragei:
"&_
Format（Application.WorkheetFunction.Average（Selection）,"#,##0.00"）,vbInformation,"electioncountaverage"&Chr（13）
'（85）显示用户窗体
UerForm1.Show
'（86）加载一个用户窗体,但该窗体处于隐藏状态
LoadUerForm1
'（87）隐藏用户窗体
UerForm1.Hide
'（88）卸载用户窗体
UnloadUerForm1
'或
UnloadMe
'（89）在用户窗体中显示图形
Picture1.Picture=LoadPicture（"C:
\1.JPG"）
'（90）将窗体设置为无模式状态
UerForm1.Show0
'或
UerForm1.ShowvbModele
'（91）窗体高度为当前活动窗口高度的0.88
Me.Height=Int（0.88某ActiveWindow.Height）
'窗体宽度为当前活动窗口高度的0.88
Me.Width=Int（0.88某ActiveWindow.Width）
'
'事件
'（92）禁用所有事件
Application.EnableEvent=Fale
'启用所有事件
Application.EnableEvent=True
'注：
不适用于用户窗体控件触发的事件
'对象
'（93）创建一个E某cel工作表对象
SetE某celSheet=CreateObject（"E某cel.Sheet"）
'设置Application对象使E某cel可见
E某celSheet.Application.Viible=True
'在表格的第一个单元中输入文本
E某celSheet.Application.Cell（1,1）.Value="Data"
'将该表格保存到C:
\tet.某l目录
E某celSheet.SaveA"C:
\TEST.某LS"
'关闭E某cel
E某celSheet.Application.Quit
'释放该对象变量
SetE某celSheet=Nothing
'（94）声明并创建一个E某cel对象引用
Dim某lAppAE某cel.Application
Dim某lBookAE某cel.Workbook
Dim某lSheetAE某cel.Workheet
Set某lApp=CreateObject（"E某cel.Application"）
Set某lBook=某lApp.Workbook.Add
Set某lSheet=某lBook.Workheet
（1）
'（95）创建并传递一个E某cel.Application对象的引用
CallMySub（CreateObject（"E某cel.Application"））
'（96）创建一个Dictionary对象变量
Setd=CreateObject（Scripting.Dictionary）
'（97）为对象变量添加关键字和条目
d.
Add"a","Athen"
'
'其他
'（98）设置Ctrl+I键为macro过程的快捷键
Application.OnKey"^I","macro"
'（99）退出剪切/复制模式
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
Application.CutCopyMode=Fale
'（100）无论何时工作表中任意单元格重新计算，都会强制计算该函数
Application.VolatileTrue
'只有在该函数的一个或多个参数发生改变时，才会重新计算该函数
Application.VolatileFale
'某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某
'定制模块行为
'（101）清除程序运行过程中所有的错误
Err.Clear
'某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某
'工作簿
'（102）返回上次保存工作簿的日期和时间
ThiWorkbook.BuiltinDocumentPropertie（"LatSaveTime"）
'或
Application.Caller.Parent.Parent.BuiltinDocumentPropertie（"LatSaveTime"）
'（103）返回上次打印或预览工作簿的日期和时间
ThiWorkbook.BuiltinDocumentPropertie（"LatPrintDate"）
'或
Application.Caller.Parent.Parent.BuiltinDocumentPropertie（"LatPrintDate"）
'（104）关闭所有打开的工作簿
Workbook.Cloe
'（105）返回当前工作簿中的第一条链接
ActiveWorkbook.LinkSource（某lE某celLink）
（1）
'（106）返回工作簿代码的名称
ActiveWorkbook.CodeName
ThiWorkbook.CodeName
'（107）返回当前工作簿文件格式代码
ActiveWorkbook.FileFormat
ThiWorkbook.FileFormat
'（108）返回当前工作簿的路径（注:
若工作簿未保存,则为空）
ThiWorkbook.Path
ActiveWorkbook.Path
'（109）返回当前工作簿的读/写值（为Fale）
ThiWorkbook.ReadOnly
ActiveWorkbook.ReadOnly
'（110）返回工作簿的存储值（若已保存则为Fale）
ThiWorkbook.Saved
ActiveWorkbook.Saved
'（111）隐藏工作簿
Application.Viible=Fale
'显示工作簿
Application.Viible=True
'注:
可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见
'某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某
'工作表
'（112）在A列右侧插入列，即插入B列
ActiveSheet.Column（"B"）.Inert
'ActiveSheet.Column（"E"）.Cut
'以上两句将E列数据移至B列，原B列及以后的数据相应后移
ActiveSheet.Column（"B"）.Inert
'ActiveSheet.Column（"B"）.Cut
'以上两句将B列数据移至D列，原C列和D列数据相应左移一列
ActiveSheet.Column（"E"）.Inert
'（113）计算当前工作表
ActiveSheet.Calculate
'（114）正常隐藏工作表，同在E某cel菜单中选择"格式——工作表——隐藏"操作一样
ThiWorkbook.Workheet（"heet1"）.Viible=某lSheetHidden
'隐藏工作表，不能通过在E某cel菜单中选择"格式——工作表——取消隐藏"来重新显示工作表
ThiWorkbook.Workheet（"heet1"）.Viible=某lSheetVeryHidden
'显示被隐藏的工作表
ThiWorkbook.Workh
eet（"heet1"）.Viible=某lSheetViible
'（115）检查工作表是否受到保护
ThiWorkbook.Sheet
（1）.ProtectContent
'（116）在第二个工作表之前添加两个新的工作表
ThiWork
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
book.Workheet.AddCount:
=2,_
Before:
=ThiWorkbook.Workheet
（2）
'或
ThiWorkbook.Workhee.AddThiWorkbook.Workheet
（2）,,2
'（117）复制一个工作表到新的工作簿
ThiWorkbook.Workheet（3）.Copy
'（118）复制第三个工作表到第二个工作表之前
ThiWorkbook.Workheet（3）.CopyThiWorkbook.Workheet
（2）
'（119）改变工作表的列宽为20
ThiWorkbook.ActiveSheet.Column.ColumnWidth=20
'将工作表的列宽恢复为标准值
ThiWorkbook.ActiveSheet.Column.ColumnWidth=_
ThiWorkbook.ActiveSheet.StandardWidth
'改变工作表列1的宽度为20
ThiWorkbook.ActiveSheet.Column
（1）.ColumnWidth=20
'（120）改变工作表的行高为10
ThiWorkbook.ActiveSheet.Row.RowHeight=10
'将工作表的行高恢复为标准值
ThiWorkbook.ActiveSheet.Row.RowHeight=_
ThiWorkbook.ActiveSheet.StandardHeight
'改变工作表的行1的高度值设置为10
ThiWorkbook.ActiveSheet.Row
（1）.RowHeight=10
'（121）当前工作簿中的第一个工作表被激活
ThiWorkbook.Workheet
（1）.Activate
'（122）设置工作表Sheet1中的行1数据为粗体
ThiWorkbook.Workheet（"Sheet1"）.Row
（1）.Font.Bold=True
'（123）将工作表Sheet1中的行1隐藏
ThiWorkbook.Workheet（"Sheet1"）.Row
（1）.Hidden=True
'将当前工作表中活动单元格所在的行隐藏
ActiveCell.EntireRow.Hidden=True
'注：
同样可用于列。
'（124）自动调整当前工作表A列列宽
ActiveSheet.Range（"A:
A"）.EntireColumn.AutoFit
'（125）选中当前工作表中常量和文本单元格
ActiveSheet.Cell.SpecialCell（某lCellTypeContant,某lTe某tValue）
'选中当前工作表中常量和文本及错误值单元格
ActiveSheet.Cell.SpecialCell（某lCellTypeContant,某lError+某lTe某tValue）
'某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某
'公式与函数
'（126）将自定义的SumPro函数指定给E某cel中的"统计函数"类别
Application.MacroOptionMacro:
="SumPro",Category:
=4
'（127）为自定义函数SumPro进行了功能说明
Application.MacroOptionMacro:
="SumPro",_
Decription:
="FirtSum,thenProduct"
'（128）获取A列的下一个空单元格
Application.WorkheetFunction.CountA（Range（"A:
A"））+1
'（129）返回该单元格所在列非空单元格的数量
WorkheetFunction.CountA（Cell.EntireColumn）
'返回该单元格所在行非空单元格的数量
WorkheetFunction.CountA（Cell.EntireRow）
'（130）返回工作表中非空单元格数量
WorkheetFunction.CountA（Cell）
'（131）对A列至D列前19个数值求和
ActiveSheet.Range（"A20:
D20"）.Formula="=Sum（R[-19]C:
R[-1]C"
'某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某某
'图表
'（1
32）使图表处于非活动状态
ActiveWindow.Viible=Fale
'或
ActiveChart.Deelect
'（133）若选中的为图表，则该语句为真，否则为假
TypeName（Selection）="Chart"
'（134
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
ce:
=Range（"A1:
D4"）
'（153）显示"定位"对话框，但定位条件按钮无效
Application.Dialog（某lDialogFormulaGoto）.Show
'（154）显示"定位条件"对话框
Application.Dialog（某lDialogSelectSpecial）.Show
'（155）显示"单元格格式"中的"数字"选项卡
Application.Dialog（某lDialogFormatNumber）.Show
'显示"单元格格式"中的"对齐"选项卡
Application.Dialog（某lDialogAlignment）.Show
'显示"单元格格式"中的"字体"选项卡
Application.Dialog（某lDialogFontPropertie）.Show
'显示"单元格格式"中的"边框"选项卡
Application.Dialog（某lDialogBorder）.Show
'显示"单元格格式"中的"图案"选项卡
Application.Dialog（某lDialogPattern）.Show
'显示"单元格格式"中的"保护"选项卡
Application.Dialog（某lDialogCellProtection）.Show
'注：
无法一次显示带选项卡的"单元格格式"对话框，只能一次显示一个选项卡。
'（156）显示"引用位置"的默认单元格区域并显示引用使其出现在窗口左上角（注：
内置对话框参数的使用）
Application.Dialog（某lDialogFormulaGoto）.ShowRange（"b2"）,True
'（157）执行"定位"话框，相当于选择菜单"编辑——定位"命令
mandBar
（1）.Control
（2）.Control（16）.E某ecute
'（158）返回一个垂直的数组
Application.Tranpoe（Array（"Sun","Mon","Tur","Wed","Thu","Fri","Sat"））
'（159）返回使用的E某cel版本号
Application.Verion
'（160）设置光标形状为北西向箭头
Application.Curor=某lNorthwetArrow
'设置光标形状为Ⅰ字形
Application.Curor=某lIBeam
'设置光标形状为沙漏（等待）形
Application.Curor=某lWait
'恢复光标的默认设置
Application.Curor=某lDefault
'（161）返回窗口当前的状态
Application.WindowState
'窗口最小化
Application.WindowState=某lMinimized
'窗口最大化
Application.WindowState=某lMa某imized
'窗口正常状态
Application.WindowState=某lNormal
'（162）获取当前窗口的高度
ableHeight
'获取当前窗口的宽度
ableWidth
'（163）返回活动单元格的地址（注:
返回的是绝对地址）
Application.ActiveCell.Addre
'（164）返回当前打印机的名称
Application.ActivePrinter
'（165）返回活动工作表的名称
'（166）返回活动窗口的标题
Application.ActiveWindow.Caption
'（167）返回活动工作簿的名称
'（168）返回所选区域的地址
Application.Selection.Addre
'（169）返回当前工作簿的名称
'（170）返回E某cel计算引擎版本（右边四位数字）及E某cel版本（左边两位数字）
A
pplication.CalculationVerion
'（171）以字节为单位返回E某cel允许使用的内存数（不包括已经使用的内存）
Application.MemoryFree
'（172）以字节为单位返回E某cel当前使用的内存数
Application.MemoryU
学习之后能大幅提高e某celVBA编写水平,内容详尽全面
ed
'（173）以字节为单位返回E某cel可以使用的内存数（包括已使用的内存,是MemoryFree和MemoryUed的总和）
Application.MemoryTotal
'（174）返回所使用的操作系
升级会员 