Application.EnableEvents=True/False'启用/禁用所有事件Application.DisplayAlerts=True/False'显示/关闭警告框提示框Application.Screenllpdating=True/False'显示/关闭屏幕刷新Caption属性Application.StatusBar软件报专用”'在地址栏中显示文本,标题栏用Application.Cursor=xllBeam'设置光标形状为I字形,xlWait为沙漏(等待)形,xINormal为正常Application.WindowState=xlMinimized,开启Word应用程序窗口最小化,xlMaximized最大化,xINormal为正常Application.ActivateMicrosoftAppxlMicrosoftWordApplication.TemplatesPath*获取工作簿
模板
个人简介word模板免费下载关于员工迟到处罚通告模板康奈尔office模板下载康奈尔 笔记本 模板 下载软件方案模板免费下载
的位置Application.CalculateFull'重新计算所有打开的工作簿中的数据Application.RecentFiles.Maximum=21将最近使用的文档列
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
数设为2Application.RecentFiles⑶.Open'打开最近打开的文档中的第3个文档Application.AutoCorrect.AddReplacement"sweek","软件报”'自动将输入的"sweek"更正为”软件报”Application.Dialogs(xlDialogPrint).Show'显示打印文档的对话框Application.OnTimeNow+TimeValue("00:00:45H),"process"'45分钟后执行指定过程Application.OnTimeTimeValue("14:00:00"),"process"'下午2点执行指定过程Application.OnTimeEarliestTime:=TimeValue(H14:00:00"),_Procedure:="process",Schedule:=False'取消指定时间的过程的执行工作簿/工作表篇ActiveWorkbook.Sheets.Count'获取活动工作薄中工作表数ActiveWorkbook丄inkSources(xlExcelLinks)(1)'返回当前工作簿中的第一条链接ThisWorkbook.Worksheets(usheet2J,).Visible=xlSheetHidden邛急藏工作表,与在Excel菜单中执行“格式一工作表一隐藏”操作一样ThisWorkbook.Worksheets(usheet2,,).Vis⑹e=xlSheetVeryHidden1隐藏工作表,不能通过在Excel菜单中执行”格式一工作表一取消隐藏”来重新显示工作表ThisWorkbook.Worksheets(“sheet2J,).Visible=xlSheetVisible'显示被隐藏的工作表ThisWorkbook.Sheets(1).ProtectContents'检查工作表是否受到保护ActiveSheet.Columns("B").CutActiveSheet.Columns(HFn).lnsert*以上两句将B列数据移至F歹叽原C列后的数据左移ActiveSheet.Range(“A:A”).EntireColumn.AutoFit,自动调整当前工作表A列的列宽ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues)'选中当前工作表中常量和文本单元格ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues)'选中当前工作表中常量和文本及错误值单元格ActiveSheet.UsedRange.Rows.Count*当前工作表中已使用的行数ThisWorkbook.Worksheets.AddThisWorkbook.Worksheets(3),,2,在第3张工作表之前添加2个新的工作表ActiveSheet.MoveAfter:=ActiveWorkbook._Sheets(ActiveWorkbook.Sheets.Count)'将当前工作表移至工作表的最后Worksheets(Array(“sheetT,”sheet,')).Select'同时选择工作表sheetl和sheet2ActiveSheet.UsedRange.FormatConditions.Delete*删除当前工作表中应用的条件格式Cells.Hyperlinks.Delete1取消当前工作表中所有单元格的超链接ActiveSheetPageSetup.RightFooter=ActiveWorkbook.FullName*在页脚显示文件的路径ActiveSheet.PrintPreviewEnablechanges:=False'禁用显示在Excel的"打印预览”窗口中的"设置”和"页边距”按钮单元格/单元格区域篇ActiveSheet.UsedRange.Row'获取已使用的单元格区域的第一行的行号Range("A65536”).End(xlUp).Row*返回A列最后一行(即
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
的总条数)cell.HasFormula'工作cell.Range(“A1n).HasFormula'检查单元格或单元格区域中的第一个单元格是否含有公式或表中单元格是否含有公式Target.EntireColumn.Select'选择单元格所在的整个列,Target.EntireRow.Select为选择单元格所在的整行ActiveCell.Row'活动单元格所在的行号,ActiveCell.Column为活动单元格所在的列数ActiveWindow.ScrollRow=2*将当前工作表窗口滚动到第2行ActiveWindow.ScrollColumn=5,将当前工作表窗口滚动到第5歹ijWorksheets("sheet1”).Range("A1:C5").CopyPicturexIScreen,xlBitmap'将指定的单元格区域的内容复制成屏幕快照Selection.Hyperlinks.Delete'删除所选区域的所有链接ActiveSheet.Cells(1,1).Font.Bold=TRUE1Bold属性用于设置字体是否为加粗,Size属性设置字体大小,Colorindex属性设置字体颜色(其值为颜色索引号)‘Italic属性设置字型是否为倾斜,Name属性设置字体名称ActiveSheet.Cells(1,1).1nterior.Colorlndex=3'将单元格的背景色设置为红色IsEmpty(ActiveCell.Value)1判断活动单元格中是否有值ActiveCell.Value=UCase(ActiveCell.Value)'将当前单元格中的字符转换成大写ActiveCell.Value=StrConv(ActiveCell.Value,vbLowerCase)*将活动单元格中的字符串转换成小写ActiveCell.CurrentRegion.Select,选择当前活动单元格所在的连续的非空区域,也可以用Range(ActiveCell,UsedRange.End(xlDown)).SelectActiveCell.Offset(1,0).Select*活动单元格下移一行Range(UB2J,).Offset(ColumnOffset:=1)或Range(uB2,J).Offset(,1)*读取指定单元格右侧单元格中的数据Range(UB2,5).Offset(Rowoffset:=-1)或Range(“B2n).Offset(-1)'读取指定单元格上一行单元格中的数据Range(“A1").CopyRange(“B1")'复制单元格A1中的内容到B1中Range(UA1:D8").CopyRange(“H1”将指定单元格区域复制到从H1开始的区域中,用Cut方法可以实现剪切操作ActiveWindow.RangeSelection.Value="软件报”'将指定字符串输入到所选单元格区域中窗体(控件)篇OptionExplicitUserforml.ShowLoadUserformlUserforml.HideUnioad强制对模块内所有变量进行声明'显示用户窗体'加载一个用户窗体,但该窗体处于隐藏状态'隐藏用户窗体或UnloadMe1卸载用户窗体Me.Height=lnt(0.5*ActiveWindow.Height)1窗体高度为当前活动窗口高度的一半,宽度用ActiveWindow.Width属性UserForml.ComboBoxl.AddltemSheets(nSheet1n).Cells(1,1),将指定单元格中的数据添加到复合框中ListBoxl.List=MyProduct(),将数组MyProduct的值添加到列表框ListBoxI中ListBoxI.RowSource=,5Sheetl!isum,5'将工作表Sheetl中名为的isum区域的值添加到列表框中ListBoxl.Selected(O)*选中列表框中的指定的条目ListBoxI.RemoveitemListBoxI.ListIndex'移除列表框中选中的条目IfMsgBox(“要退出吗?",vbYesNo)ovbYesThenExitSub,返回值不为“是”,则退出Config=vbYesNo+vbQuestion+vbDefaultButton2'使用常量的组合,赋值组Config变量,并设置第二个按钮为缺省按钮MsgBox“Thisisthefirstline.&vbNewLine&“Secondline.”,在消息框中强制换行,也可用vbCrLf代替vbNewLineoMsgBox"平均值为:"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00"),vblnformation,"显示选区平均值"'应用工作表函数返回所选区域的平均值并按指定显示的格式公式与函数Application.WorksheetFunction.lsNumber(UA1,5)'检查指定单元格中的数据是否为数字Range(“A:A,5).Find(Application.WorksheetFunction.Max(Range(“A:A,5))).Activate'激活单元格区域A列中最大值的单元格Application.MacroOptionsMacro:=nGetSum^^,Category:=4'W自定义的GetSum函数指定给Excel中的“统计函数”类别Application.MacroOptionsMacro:=GetSum,_Descriptions"先求和撚后再输出。”'为自定义函数GetSum进行功能说明Application.WorksheetFunction.CountA(Cell.EntireColumn)'返回该单元格所在列非空单元格的数量,所在行使用EntireRow属性Application.WorksheetFunction.CountA(Cells)'返回当前工作表中非空单元格数量图表篇ActiveSheet.Chartobjects.Delete'删除工作表中所有的Chartobject对象ActiveWorkbook.Charts.Delete1删除当前工作簿中所有的图表工作表ActiveSheet.Chartobjects.Count,获取当前工作表中图表的个数Worksheets("Sheet1").ChartObjects(1).Chart._ExportFilename:=uC:\MyChart.gifu,FilterName:=HGIFH,将指定工作表中的图表1导出到C盘上并命名为MyChart.gif以上代码均经过我们的测试,大家可放心地使用并在此基础上加以归纳和提炼。如果你也有VBA使用的心得不妨写下来和大家一起来分享。