ExcelVBA入门代码200例.pdf
《ExcelVBA入门代码200例.pdf》由会员分享,可在线阅读,更多相关《ExcelVBA入门代码200例.pdf(10页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、Excel VBA 入门代码200 例1 Excel VBA 入门代码200 例vba 在 excel 中的使用之vba 语句解释(1)Set objExcel=CreateObject(Excel.Application)objExcel.Workbooks.Add 创建 Excel 工作簿(2)Application.ActivateMicrosoftApp xlMicrosoftWord 开启 Word应用程序(3)Application.TemplatesPath 获取工作簿模板的位置(4)Application.Calculation=xlCalculationManual 设置工作
2、簿手动计算Application.Calculation=xlCalculationAutomatic 工作簿自动计算(5)Worksheets(1).EnableCalculation=False 不对第一张工作表自动进行重算(6)Application.CalculateFull 重新计算所有打开的工作簿中的数据(7)Application.RecentFiles.Maximum=5 将最近使用的文档列表数设为5(8)Application.RecentFiles(4).Open 打开最近打开的文档中的第4 个文档(9)Application.OnTime DateSerial(2006,
3、6,6)+TimeValue(“16:16:16”),“BaoPo”在 2006 年 6 月 6 日的 16:16:16 开始运行 BaoPo过程(10)Application.Speech.Speak(Hello&Application.UserName)播放声音,并使用用户的姓名问候用户(11)MsgBox Application.PathSeparator 获取 号(12)MsgBox Application.International(xlCountrySetting)返回应用程序当前所在国家的设置信息(13)Application.AutoCorrect.AddReplacement
4、 葛洲坝,三峡 自动将在工作表中进行输入的 葛洲坝 更正为 三峡(14)Beep 让计算机发出声音(15)Err.Number 返回错误代码(16)MsgBox IMEStatus 获取输入法状态(17)Date=#6/6/2006#Time=#6:16:16 AM#将系统时间更改为2006年 6 月 6 日上午 6 时 16 分 16 秒(18)Application.RollZoom=Not Application.RollZoom 切换是否能利用鼠标中间的滑轮放大/缩小工作表(19)Application.ShowWindowsInTaskba=True 显示任务栏中的窗口,即各工作簿占
5、用各自的窗口(20)Application.DisplayScrollBars=True 显示窗口上的滚动条(21)Application.DisplayFormulaBar=Not Application.DisplayFormulaBar 切换是否显示编辑栏(22)Application.Dialogs(xlDialogPrint).Show 显示打印内容对话框(23)Application.MoveAfterReturnDirection=xlToRight 设置按 Enter 键后单元格的移动方向向右(24)Application.FindFile 显示打开对话框(25)ThisWor
6、kbook.FollowHyperlink http:/ Mode:=xlReadOnly 将当前工作簿设置为只读(27)ActiveWorkbook.AddToFavorites 将当前工作簿添加到收藏夹文件夹中Excel VBA 入门代码200 例2(28)ActiveSheet.CheckSpelling 在当前工作表中执行 拼写检查 (29)ActiveSheet.Protect userinterfaceonly:=True 保护当前工作表(30)ActiveSheet.PageSetup.LeftHeader=ThisWorkbook.FullName 在当前工作表的左侧页眉处打印
7、出工作簿的完整路径和文件名(31)Worksheets(Sheet1).Range(A1:G37).Locked=False Worksheets(Sheet1).Protect 解除对工作表 Sheet1 中 A1:G37区域单元格的锁定 以便当该工作表受保护时也可对这些单元格进行修改(32)Worksheets(Sheet1).PrintPreview 显示工作表 sheet1 的打印预览窗口(33)ActiveSheet.PrintPreview Enablechanges:=False 禁用显示在 Excel 的“打印预览”窗口中的“设置”和“页边距”按钮(34)ActiveSheet
8、.PageSetup.PrintGridlines=True 在打印预览中显示网格线ActiveSheet.PageSetup.PrintHeadings=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 删除当前工作表中的
9、第2 行Columns(2).Delete 删除当前工作表中的第2 列(38)ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell 在当前单元格左侧插入一条垂直分页符ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell 在当前单元格上方插入一条垂直分页符(39)ActiveWindow.ScrollRow=14 将当前工作表窗口滚动到第14行ActiveWindow.ScrollColumn=13 将当前工作表窗口滚动到第13 列(40)ActiveW
10、indow.Close 关闭当前窗口(41)ActiveWindow.Panes.Count 获取当前窗口中的窗格数(42)Worksheets(sheet1).Range(A1:D2).CreateNames Top:=True 将 A2至 D2的单元格名称设定为A1到 D1单元格的内容(243)Application.AddCustomList listarray:=Range(A1:A8)自定义当前工作表中单元格 A1至 A8中的内容为自动填充序列(44)Worksheets(sheet1).Range(A1:B2).CopyPicture xlScreen,xlBitmap 将单元格
11、A1至 B2的内容复制成屏幕快照(45)Selection.Hyperlinks.Delete 删除所选区域的所有链接Columns(1).Hyper links.Delete 删除第 1 列中所有的链接Rows(1).Hyperlinks.Delete 删除第 1 行中所有的链接Range(A1:Z30).Hyperlinks.Delete 删除指定范围所有的链接(46)ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,_ Address:=C:WindowsSystem32Calc.exe,ScreenTip:=按下我,就会开启Windows计算器,
12、TextToDisplay:=Windows计算器 在活动单元格中设置开启Windows计算器链接(47)ActiveCell.Value=Shell(C:WindowsSystem32Calc.exe,vbNormalFocus)开启 Windows计算器(48)ActiveSheet.Rows(1).AutoFilter 打开自动筛选。若再运行一次,则关闭自动Excel VBA 入门代码200 例3 筛选(49)Selection.Autofilter 开启/关闭所选区域的自动筛选(50)ActiveSheet.ShowAllData 关闭自动筛选(51)ActiveSheet.AutoF
13、ilterMode 检查自动筛选是否开启,若开启则该语句返回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).ClearForm
14、ats 清除单元格区域A1至 D10中的格式(56)ActiveSheet.Range(B2:D2).BorderAround ColorIndex:=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
15、设置字体大小为24磅ActiveSheet.Cells(1,1).Font.ColorIndex=3 设置字体颜色为红色ActiveSheet.Cells(1,1).Font.Italic=TRUE 设置字体为斜体ActiveSheet.Cells(1,1).Font.Name=Times New Roman 设置字体类型ActiveSheet.Cells(1,1).Interior.ColorIndex=3 将单元格的背景色设置为红色(59)ActiveSheet.Range(C2:E6).AutoFormat Format:=xlRangeAutoFormatColor3 将当前工作表中单
16、元格区域C2至 E6格式自动调整为彩色3 格式(60)Cells.SpecialCells(xlCellTypeLastCell)选中当前工作表中的最后一个单元格(61)ActiveCell.CurrentArray.Select 选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中(62)ActiveCell.NumberFormatLocal=0.000;红色 0.000 将当前单元格数字格式设置为带 3 位小数,若为负数则显示为红色(63)IsEmpty(ActiveCell.Value)判断活动单元格中是否有值(64)ActiveCell.Value=LTrim(Ac
17、tiveCell.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 分别对应星期日至星期六(
18、70)ActiveSheet.Range(A1).AutoFill Range(Cells(1,1),Cells(10,1)将单元格 A1的数值填充到单元格A1至 A10区域中(71)DatePart(y,Date)获取今天在全年中的天数(72)ActiveCell.Value=DateAdd(yyyy,2,Date)获取两年后的今天的日期(73)MsgBox WeekdayName(Weekday(Date)获取今天的星期数(74)ActiveCell.Value=Year(Date)在当前单元格中输入今年的年份数Excel VBA 入门代码200 例4 ActiveCell.Value=M
19、onth(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 删除当前
20、工作表中的第一个形状(78)ActiveSheet.Shapes.Count 获取当前工作表中形状的数量(79)ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText 改变当前工作表中第一个艺术字的方向(80)ActiveSheet.Shapes(1).TextEffect.FontItalic=True 将当前工作表中第一个艺术字的字体设置为斜体(81)ActiveSheet.Shapes.AddTextEffect(msoTextEffect21,三峡,_ Arial Black,22#,msoFalse,msoFalse,66#,80).S
21、elect 在当前工作表中创建一个名为 三峡的艺术字并对其进行格式设置和选中(82)ActiveSheet.Shapes.AddLine(BeginX:=10,BeginY:=10,EndX:=250,_ EndY:=100).Select 在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中(83)ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle,_ Left:=70,Top:=40,Width:=130,Height:=72).Select 在当前工作表中画一个左上角在(70,40),宽为 130 高为
22、72 的三角形并选中(84)ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle,_ Left:=70,Top:=40,Width:=130,Height:=72).Select 在当前工作表中画一个以点(70,40)为起点,宽 130 高 72 的矩形并选中(85)ActiveSheet.Shapes.AddShape(Type:=msoShapeOval,_ Left:=70,Top:=40,Width:=130,Height:=72).Select 在当前工作表中画一个左上角在(70,40),宽为 130 高为 72 的椭圆(86)Act
23、iveSheet.Shapes(1).Line.ForeColor.RGB=RGB(0,0,255)将当前工作表中第一个形状的线条颜色变为蓝色(87)ActiveSheet.Shapes(2).Fill.ForeColor.RGB=RGB(255,0,0)将当前工作表中第 2 个形状的前景色设置为红色(88)ActiveSheet.Shapes(1).Rotation=20 将当前工作表中的第1 个形状旋转 20 度(89)Selection.ShapeRange.Flip msoFlipHorizontal 将当前选中的形状水平翻转Selection.ShapeRange.Flip msoF
24、lipVertical 将当前选中的形状垂直翻转(90)Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 将所选取的形状设置为第 1 种立体样式(91)ActiveSheet.Shapes(1).ThreeD.Depth=20 将当前工作表中第一个立体形状的深度设置为 20(92)ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB=RGB(0,0,255)将当前工作表中第 1 个立体形状的进深部分的颜色设为蓝色(93)ActiveSheet.Shapes(1).ThreeD.Rotation
25、X=60 将当前工作表中的第1 个立体形状沿 X轴旋转 60 度ActiveSheet.Shapes(1).ThreeD.RotationY=60 将当前工作表中的第1 个立体形状沿Excel VBA 入门代码200 例5 Y轴旋转 60度(94)Selection.ShapeRange.ThreeD.Visible=msoFalse 将所选择的立体形状转换为平面形状(95)Selection.ShapeRange.ConnectorFormat.BeginDisconnect 在形状中让指定的连接符起点脱离原来所连接的形状(96)ActiveSheet.Shapes(1).PickUp 复制
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ExcelVBA 入门 代码 200
限制150内