vba在excel中的使用之vba语句解释

vba在excel中的使用之vba语句解释(1)SetobjExcel=CreateObject(Excel.Application)objExcel.Workbooks.Add‘创建Excel工作簿(2)Application.ActivateMicrosoftAppxlMicrosoftWord'开启Word应用程序(3)Application.TemplatesPath‘获取工作簿模板的位置(4)Application.Calculation=xlCalculationManual‘设置工作簿手动计算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.OnTimeDateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo”‘在2006年6月6日的16:16:16开始运行BaoPo过程(10)Application.Speech.Speak(Hello&Application.UserName)‘播放声音，并使用用户的姓名问候用户(11)MsgBoxApplication.PathSeparator'获取/号(12)MsgBoxApplication.International(xlCountrySetting)'返回应用程序当前所在国家的设置信息(13)Application.AutoCorrect.AddReplacement葛洲坝,三峡'自动将在工作表中进行输入的葛洲坝更正为三峡(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)ActiveSheet.PageSetup.LeftHeader=ThisWorkbook.FullName‘在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名(31)Worksheets(Sheet1).Range(A1:G37).Locked=FalseWorksheets(Sheet1).Protect'解除对工作表Sheet1中A1:G37区域单元格的锁定'以便当该工作表受保护时也可对这些单元格进行修改(32)Worksheets(Sheet1).PrintPreview'显示工作表sheet1的打印预览窗口(33)ActiveSheet.PrintPreviewEnablechanges:=False‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮(34)ActiveSheet.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'删除当前工作表中的第2行Columns(2).Delete'删除当前工作表中的第2列(38)ActiveWindow.SelectedSheets.VPageBreaks.Addbefore:=ActiveCell'在当前单元格左侧插入一条垂直分页符ActiveWindow.SelectedSheets.HPageBreaks.Addbefore:=ActiveCell'在当前单元格上方插入一条垂直分页符(39)ActiveWindow.ScrollRow=14'将当前工作表窗口滚动到第14行ActiveWindow.ScrollColumn=13'将当前工作表窗口滚动到第13列(40)ActiveWindow.Close'关闭当前窗口(41)ActiveWindow.Panes.Count'获取当前窗口中的窗格数(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)Selection.Hyperlinks.Delete‘删除所选区域的所有链接Columns(1).Hyperlinks.Delete‘删除第1列中所有的链接Rows(1).Hyperlinks.Delete‘删除第1行中所有的链接Range(A1:Z30).Hyperlinks.Delete‘删除指定范围所有的链接(46)ActiveCell.Hyperlinks.AddAnchor:=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)ActiveCell.CurrentArray.Select'选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中(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分别对应星期日至星期六(7