Excel VBA入门代码200例.docx
- 文档编号:5003846
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:14
- 大小:23.29KB
Excel VBA入门代码200例.docx
《Excel VBA入门代码200例.docx》由会员分享,可在线阅读,更多相关《Excel VBA入门代码200例.docx(14页珍藏版)》请在冰豆网上搜索。
ExcelVBA入门代码200例
ExcelVBA入门代码200例
vba在excel中的使用之vba语句解释
(1)SetobjExcel=CreateObject("Excel.Application")
‘创建Excel工作簿
(2)Application.ActivateMicrosoftAppxlMicrosoftWord'开启Word应用程序
(3)Application.TemplatesPath‘获取工作簿模板的位置
(4)Application.Calculation=xlCalculationManual‘设置工作簿手动计算
Application.Calculation=xlCalculationAutomatic‘工作簿自动计算
(5)Worksheets
(1).EnableCalculation=False‘不对第一张工作表自动进行重算
(6)Application.CalculateFull'重新计算所有打开的工作簿中的数据
(7)=5'将最近使用的文档列表数设为5
(8)Application.RecentFiles(4).Open'打开最近打开的文档中的第4个文档
(9)Application.OnTimeDateSerial(2006,6,6)+TimeValue(“16:
16:
16”),“BaoPo”‘在2006年6月6日的16:
16:
16开始运行BaoPo过程
(10)("Hello"&Application.UserName)‘播放声音,并使用用户的姓名问候用户
(11)MsgBoxApplication.PathSeparator'获取"\"号
(12)MsgBoxApplication.International(xlCountrySetting)'返回应用程序当前所在国家的设置信息
(13)"葛洲坝","三峡"'自动将在工作表中进行输入的"葛洲坝"更正为"三峡"
(14)Beep'让计算机发出声音
(15)Err.Number‘返回错误代码
(16)MsgBoxIMEStatus'获取输入法状态
(17)Date=#6/6/2006#
Time=#6:
16:
16AM#'将系统时间更改为2006年6月6日上午6时16分16秒
(18)Application.RollZoom=NotApplication.RollZoom'切换是否能利用鼠标中间的滑轮放大/缩小工作表
(19)Application.ShowWindowsInTaskba=True‘显示任务栏中的窗口,即各工作簿占用各自的窗口
(20)Application.DisplayScrollBars=True‘显示窗口上的滚动条
(21)Application.DisplayFormulaBar=NotApplication.DisplayFormulaBar'切换是否显示编辑栏
(22)Application.Dialogs(xlDialogPrint).Show‘显示打印内容对话框
(23)Application.MoveAfterReturnDirection=xlToRight'设置按Enter键后单元格的移动方向向右
(24)Application.FindFile'显示打开对话框
(25)ThisWorkbook.FollowHyperlink‘打开超链接文档
(26)ActiveWorkbook.ChangeFileAccessMode:
=xlReadOnly'将当前工作簿设置为只读
(27)ActiveWorkbook.AddToFavorites'将当前工作簿添加到收藏夹文件夹中
(28)ActiveSheet.CheckSpelling'在当前工作表中执行"拼写检查"
(29)ActiveSheet.Protectuserinterfaceonly:
=True‘保护当前工作表
(30)=ThisWorkbook.FullName‘在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名
(31)Worksheets("Sheet1").Range("A1:
G37").Locked=False
Worksheets("Sheet1").Protect
'解除对工作表Sheet1中A1:
G37区域单元格的锁定
'以便当该工作表受保护时也可对这些单元格进行修改
(32)Worksheets("Sheet1").PrintPreview'显示工作表sheet1的打印预览窗口
(33)ActiveSheet.PrintPreviewEnablechanges:
=False‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮
(34)=True'在打印预览中显示网格线
=True'在打印预览中显示行列编号
(35)ActiveSheet.ShowDataForm'开启数据记录单
(36)Worksheets("Sheet1").Columns("A").Replace_
What:
="SIN",Replacement:
="COS",_
SearchOrder:
=xlByColumns,MatchCase:
=True'将工作表sheet1中A列的SIN替换为COS
(37)Rows
(2).Delete'删除当前工作表中的第2行
Columns
(2).Delete'删除当前工作表中的第2列
(38)before:
=ActiveCell'在当前单元格左侧插入一条垂直分页符
before:
=ActiveCell'在当前单元格上方插入一条垂直分页符
(39)ActiveWindow.ScrollRow=14'将当前工作表窗口滚动到第14行
ActiveWindow.ScrollColumn=13'将当前工作表窗口滚动到第13列
(40)ActiveWindow.Close'关闭当前窗口
(41)'获取当前窗口中的窗格数
(42)Worksheets("sheet1").Range("A1:
D2").CreateNamesTop:
=True'将A2至D2的单元格名称设定为A1到D1单元格的内容
(243)Application.AddCustomListlistarray:
=Range("A1:
A8")'自定义当前工作表中单元格A1至A8中的内容为自动填充序列
(44)Worksheets("sheet1").Range("A1:
B2").CopyPicturexlScreen,xlBitmap'将单元格A1至B2的内容复制成屏幕快照
(45)‘删除所选区域的所有链接
Columns
(1).Hyperlinks.Delete‘删除第1列中所有的链接
Rows
(1).Hyperlinks.Delete‘删除第1行中所有的链接
Range("A1:
Z30").Hyperlinks.Delete‘删除指定范围所有的链接
(46)Anchor:
=ActiveCell,_
Address:
="C:
\Windows\System32\Calc.exe",ScreenTip:
="按下我,就会开启Windows计算器",TextToDisplay:
="Windows计算器"'在活动单元格中设置开启Windows计算器链接
(47)ActiveCell.Value=Shell("C:
\Windows\System32\Calc.exe",vbNormalFocus)'开启Windows计算器
(48)ActiveSheet.Rows
(1).AutoFilter‘打开自动筛选。
若再运行一次,则关闭自动筛选
(49)Selection.Autofilter‘开启/关闭所选区域的自动筛选
(50)ActiveSheet.ShowAllData‘关闭自动筛选
(51)ActiveSheet.AutoFilterMode‘检查自动筛选是否开启,若开启则该语句返回True
(52)ActiveSheet.Columns("A").ColumnDifferences(Comparison:
=ActiveSheet._
Range("A2")).Delete'在A列中找出与单元格A2内容不同的单元格并删除
(53)ActiveSheet.Range("A6").ClearNotes'删除单元格A6中的批注,包括声音批注和文字批注
(54)ActiveSheet.Range("B8").ClearComments'删除单元格B8中的批注文字
(55)ActiveSheet.Range("A1:
D10").ClearFormats'清除单元格区域A1至D10中的格式
(56)ActiveSheet.Range("B2:
D2").BorderAroundColorIndex:
=5,_
Weight:
=xlMedium,LineStyle:
=xlDouble'将单元格B2至D2区域设置为蓝色双线
(57)Range("A1:
B2").Item(2,3)或Range("A1:
B2")(2,3)‘引用单元格C2的数据
Range("A1:
B2")(3)‘引用单元格A2
(58)ActiveSheet.Cells(1,1).Font.Bold=TRUE‘设置字体加粗
ActiveSheet.Cells(1,1).Font.Size=24‘设置字体大小为24磅
ActiveSheet.Cells(1,1).Font.ColorIndex=3‘设置字体颜色为红色
ActiveSheet.Cells(1,1).Font.Italic=TRUE‘设置字体为斜体
ActiveSheet.Cells(1,1).Font.Name="TimesNewRoman"‘设置字体类型
ActiveSheet.Cells(1,1).Interior.ColorIndex=3‘将单元格的背景色设置为红色
(59)ActiveSheet.Range("C2:
E6").AutoFormatFormat:
=xlRangeAutoFormatColor3'将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式
(60)Cells.SpecialCells(xlCellTypeLastCell)‘选中当前工作表中的最后一个单元格
(61)'选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中
(62)ActiveCell.NumberFormatLocal="0.000;[红色]0.000"'将当前单元格数字格式设置为带3位小数,若为负数则显示为红色
(63)IsEmpty(ActiveCell.Value)'判断活动单元格中是否有值
(64)ActiveCell.Value=LTrim(ActiveCell.Value)'删除字符串前面的空白字符
(65)Len(ActiveCell.Value)'获取活动单元格中字符串的个数
(66)ActiveCell.Value=UCase(ActiveCell.Value)'将当前单元格中的字符转换成大写
(67)ActiveCell.Value=StrConv(ActiveCell.Value,vbLowerCase)'将活动单元格中的字符串转换成小写
(68)ActiveSheet.Range("C1").AddComment'在当前工作表的单元格C1中添加批注
(69)Weekday(Date)'获取今天的星期,以数值表示,1-7分别对应星期日至星期六
(70)ActiveSheet.Range("A1").AutoFillRange(Cells(1,1),Cells(10,1))'将单元格A1的数值填充到单元格A1至A10区域中
(71)DatePart("y",Date)'获取今天在全年中的天数
(72)ActiveCell.Value=DateAdd("yyyy",2,Date)'获取两年后的今天的日期
(73)MsgBoxWeekdayName(Weekday(Date))'获取今天的星期数
(74)ActiveCell.Value=Year(Date)'在当前单元格中输入今年的年份数
ActiveCell.Value=Month(Date)'在当前单元格中输入今天所在的月份数
ActiveCell.Value=Day(Date)'在当前单元格中输入今天的日期数
(75)ActiveCell.Value=MonthName
(1)'在当前单元格中显示月份的名称,本句为显示"一月"
(76)ActiveCell.Value=Hour(Time)'在当前单元格中显示现在时间的小时数
ActiveCell.Value=Minute(Time)'在当前单元格中显示现在时间的分钟数
ActiveCell.Value=Second(Time)'在当前单元格中显示现在时间的秒数
(77)ActiveSheet.Shapes
(1).Delete'删除当前工作表中的第一个形状
(78)'获取当前工作表中形状的数量
(79)ActiveSheet.Shapes
(1).TextEffect.ToggleVerticalText'改变当前工作表中第一个艺术字的方向
(80)ActiveSheet.Shapes
(1).TextEffect.FontItalic=True'将当前工作表中第一个艺术字的字体设置为斜体
(81),"三峡",_
"ArialBlack",22#,msoFalse,msoFalse,66#,80).Select'在当前工作表中创建一个名为"三峡"的艺术字并对其进行格式设置和选中
(82),BeginY:
=10,EndX:
=250,_
EndY:
=100).Select'在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中
(83),_
Left:
=70,Top:
=40,Width:
=130,Height:
=72).Select'在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中
(84),_
Left:
=70,Top:
=40,Width:
=130,Height:
=72).Select'在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中
(85),_
Left:
=70,Top:
=40,Width:
=130,Height:
=72).Select'在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆
(86)ActiveSheet.Shapes
(1).=RGB(0,0,255)'将当前工作表中第一个形状的线条颜色变为蓝色
(87)ActiveSheet.Shapes
(2).=RGB(255,0,0)'将当前工作表中第2个形状的前景色设置为红色
(88)ActiveSheet.Shapes
(1).Rotation=20'将当前工作表中的第1个形状旋转20度
(89)msoFlipHorizontal'将当前选中的形状水平翻转
msoFlipVertical'将当前选中的形状垂直翻转
(90)msoThreeD1'将所选取的形状设置为第1种立体样式
(91)ActiveSheet.Shapes
(1).ThreeD.Depth=20'将当前工作表中第一个立体形状的深度设置为20
(92)ActiveSheet.Shapes
(1).=RGB(0,0,255)'将当前工作表中第1个立体形状的进深部分的颜色设为蓝色
(93)ActiveSheet.Shapes
(1).ThreeD.RotationX=60'将当前工作表中的第1个立体形状沿X轴旋转60度
ActiveSheet.Shapes
(1).ThreeD.RotationY=60'将当前工作表中的第1个立体形状沿Y轴旋转60度
(94)=msoFalse'将所选择的立体形状转换为平面形状
(95)'在形状中让指定的连接符起点脱离原来所连接的形状
(96)ActiveSheet.Shapes
(1).PickUp'复制当前工作表中形状1的格式
(97),260,160,180,30).=""'在工作簿中新建一个文本框并输入内容
(98),20,80,100,200).=""'在当前工作表中建立一个水平文本框并输入内容
(99)"d:
\sx.jpg",True,True,60,20,400,300'在当前工作表中插入一张d盘中名为sx的图片
(100)ActiveChart.ApplyCustomTypexl3DArea'将当前图表类型改为三维面积图
*********************************************************************************
excel-vba应用示例之语句
(101)Err.Clear‘清除程序运行过程中所有的错误
工作簿
(102)ThisWorkbook.BuiltinDocumentProperties(“LastSaveTime”)
或SaveTime”)‘返回上次保存工作簿的日期和时间
(103)ThisWorkbook.BuiltinDocumentProperties("LastPrintDate")
或PrintDate”)‘返回上次打印或预览工作簿的日期和时间
(104)Workbooks.Close‘关闭所有打开的工作簿
(105)ActiveWorkbook.LinkSources(xlExcelLinks)
(1)‘返回当前工作簿中的第一条链接
(106)ActiveWorkbook.CodeName
ThisWorkbook.CodeName‘返回工作簿代码的名称
(107)ActiveWorkbook.FileFormat
ThisWorkbook.FileFormat‘返回当前工作簿文件格式代码
(108)ThisWorkbook.Path
ActiveWorkbook.Path‘返回当前工作簿的路径(注:
若工作簿未保存,则为空)
(109)ThisWorkbook.ReadOnly
ActiveWorkbook.ReadOnly‘返回当前工作簿的读/写值(为False)
(110)ThisWorkbook.Saved
ActiveWorkbook.Saved‘返回工作簿的存储值(若已保存则为False)
(111)Application.Visible=False‘隐藏工作簿
Application.Visible=True‘显示工作簿
注:
可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见
*******************************************************
工作表
(112)ActiveSheet.Columns("B").Insert‘在A列右侧插入列,即插入B列
ActiveSheet.Columns("E").Cut
ActiveSheet.Columns("B").Insert‘以上两句将E列数据移至B列,原B列及以后的数据相应后移
ActiveSheet.Columns("B").Cut
ActiveSheet.Columns("E").Insert‘以上两句将B列数据移至D列,原C列和D列数据相应左移一列
(113)ActiveSheet.Calculate‘计算当前工作表
(114)ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetHidden‘正常隐藏工作表,同在Excel菜单中选择“格式——工作表——隐藏”操作一样
ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVeryHidden‘隐藏工作表,不能通过在Excel菜单中选择“格式——工作表——取消隐藏”来重新显示工作表
ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVisible‘显示被隐藏的工作表
(115)ThisWorkbook.Sheets
(1).ProtectContents‘检查工作表是否受到保护
(116)Count:
=2,_
Before:
=ThisWorkbook.Worksheets
(2)
或ThisWorkbook.Worksheets
(2),,2‘在第二个工作表之前添加两个新的工作表
(117)ThisWorkbook.Worksheets(3).Copy‘复制一个工作表到新的工作簿
(118)ThisWorkbook.Worksheets(3).CopyThisWorkbook.Worksheets
(2)‘复制第三个工作表到第二个工作表之前
(119)=20‘改变工作表的列宽为20
=_
‘将工作表的列宽恢复为标准值
=20‘改变工作表列1的宽度为20
(120)=10‘改变工作表的行高为10
=_
‘将工作表的行高恢复为标准值
=10‘改变工作表的行1的高度值设置为10
(121)ThisWorkbook.Worksheets
(1).Activate‘当前工作簿中的第一个工作表被激活
(122)ThisWorkbook.Worksheets("Sheet1").Rows
(1).Font.Bold=True‘设置工作表Sheet1中的行1数据为粗体
(123)ThisWorkbook.Worksheets("Sheet1").Rows
(1).Hidden=True‘将工作表Sheet1中的行1隐藏
=True‘将当前工作表中活动单元格所在的行隐藏
注:
同样可用于列。
(124)ActiveSheet.Range(“A:
A”).EntireColumn.AutoFit‘自动调整当前工作表A列列宽
(125),xlTextValues)‘选中当前工作表中常量和文本单元格
xlErrors+xlTextValues)‘选中当前工作表中常量和文本及错误值单元格
*******************************************************
公式与函数
(126)Application.MacroOptionsMacro:
=”SumPro”,Category:
=4‘将自定义的SumPro函数指定给Excel中的“
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel VBA入门代码200例 VBA 入门 代码 200
![提示](https://static.bdocx.com/images/bang_tan.gif)