Excel VBA经常使用代码100句-英雄云拓展知识分享

(1) Option Explicit ‘强迫对模块内所有变量进行声明

(2) Option Base 1 ‘指定数组的第一个下标为1

(3) On Error Resume Next ‘疏忽毛病继续履行VBA代码,避免出现毛病消息

(4) On Error GoTo 100 ‘当毛病产生时跳转到进程中的某个位置

(5) On Error GoTo 0 ‘恢复正常的毛病提示

(6) Application.DisplayAlerts=False ‘在程序履行进程中使出现的正告框不显示

(7) Application.DisplayAlerts=True ‘在程序履行进程中恢复显示正告框

(8) Application.ScreenUpdating=False ‘关闭屏幕刷新

(9) Application.ScreenUpdating = True ‘打开屏幕刷新

(10)  Workbooks.Add() ‘创建一个新的工作簿

(11)  Workbooks(“book1.xls”).Activate ‘激活名为book1的工作簿

(12) ThisWorkbook.Save ‘保存工作簿

(13) ThisWorkbook.close ‘关闭当前工作簿

(14)  ActiveWorkbook.Sheets.Count ‘获得活开工作薄中工作表数

(15)  ActiveWorkbook.name  ‘返回活开工作薄的名称

(16) ThisWorkbook.Name ‘返回当前工作簿名称

(17) ThisWorkbook.FullName ‘返回当前工作簿路径和名

(18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数

(19) Rows.Count ‘获得工作表的行数(注：斟酌性能)

(20)  Sheets(Sheet1).Name= “Sum” ‘将Sheet1命名为Sum

(21)  ThisWorkbook.Sheets.Add Before:=Worksheets(1) ‘添加一个新工作表在第一工作表前

(22)  ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ‘将当前工作表移至工作表的最后

(23)  Worksheets(Array(“sheet1”,”sheet2”)).Select ‘同时选择工作表1和工作表2

(24)  Sheets(“sheet1”).Delete或 Sheets(1).Delete ‘删除工作表1

(25)  ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式

(26)  Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接

(27) ActiveCell.CurrentRegion.Select选择当前活动单元格所包括的范围，同等于快捷键Ctrl+A

(28)  Cells.Select ‘选定当前工作表的所有单元格

(29)  Range(“A1”).ClearContents ‘清除活开工作表上单元格A1中的内容。Selection.ClearContents ‘清除选定区域内容。Range(“A1:D4”).Clear ‘完全清除A1至D4单元格区域的内容，包括格式。

(30)  Cells.Clear ‘清除工作表中所有单元格的内容

(31) ActiveCell.Offset(1,0).Select ‘活动单元格下移一行，同理，可下移一列

(32)  Range(“A1”).Copy Range(“B1”) ‘复制单元格A1，粘贴到单元格B1中

(33) Range(“A1:D8”).Copy Range(“F1”) ‘将单元格区域复制到单元格F1开始的区域中

(34) Range(“A1:D8”).Cut Range(“F1”) ‘剪切单元格区域A1至D8，复制到单元格F1开始的区域中

(35) Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) ‘复制包括A1的单元格区域到工作表2中以A1起始的单元格区域中。

(36) ActiveWindow.RangeSelection.Count ‘活动窗口当选择的单元格数

(37)  Selection.Count ‘当前选中区域的单元格数

(38) Range(“A1”).Interior.ColorIndex ‘获得单元格A1背风景

(39)  cells.count ‘返回当前工作表的单元格数

(40) Range(“B3”).Resize(11, 3)

(41) Union(Range(“A1:A9”),Range(“D1:D9”)) 区域连接

(42) Intersect(Range(“A1:B9”),Range(“A1:D9”))) ‘返回的交叉区域

(43)  Selection.Columns.Count ‘当前选中的单元格区域中的列数

(44) Selection.Rows.Count ‘当前选中的单元格区域中的行数

(45) ActiveSheet.UsedRange.Row  ‘获得单元格区域中使用的第一行的行号

(46)  Application.WorksheetFunction.IsNumber(“A1”) ‘使用工作表函数检查A1单元格中的数据是不是为数字

(47) Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate’激活单元格区域A列中最大值的单元格

(48) MsgBox “Hello!” ‘消息框中显示消息Hello

(49) Ans=MsgBox(“Continue?”,vbYesNo) ‘在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。

(50)  Userform1.Show ‘显示用户窗体

(51) Load Userform1 ‘加载一个用户窗体,但该窗体处于隐藏状态

(52)  Userform1.Hide ‘隐藏用户窗体

(53) Unload Userform1 或 Unload Me ‘卸载用户窗体

(54) UserForm1.Show 0‘将窗体设置为无模式状态

(55)  Application.EnableEvents=False ‘禁用所有事件

(56) Application.EnableEvents = True ‘启用所有事件

(57) Set d = CreateObject(Scripting.Dictionary) ‘创建一个 Dictionary 对象变量

(58)  d.Add “a”, “Athens” ‘为对象变量添加关键字和条

(59)  Application.OnKey “^I”,”macro” ‘设置Ctrl+I键为macro进程的快捷键

(60)  Application.CutCopyMode=False ‘退出剪切/复制模式

(61)  Application.Volatile True ‘不管什么时候工作表中任意单元格重新计算，都会强迫计算该函数

(62) Application.Volatile False ‘只有在该函数的一个或多个参数产生改变时，才会重新计算该函数

(63)  Err.Clear ‘清除程序运行进程中所有的毛病

(64) Workbooks.Close ‘关闭所有打开的工作簿

(65) ActiveWorkbook.Path ‘返回当前工作簿的路径(注:若工作簿未保存,则为空)

(66) ActiveWorkbook.Saved ‘返回工作簿的存储值(若已保存则为False)

(67) Application.Visible = False ‘隐藏工作簿

(68) Application.Visible = True ‘显示工作簿

(69)  ActiveSheet.Columns(“B”).Insert ‘在A列右边插入列，即插入B列

(70) ActiveSheet.Columns(“E”).Cut

(71) ActiveSheet.Columns(“B”).Insert  70,71两句将E列数据移至B列，原B列及以后的数据相应后移

(72) ActiveSheet.Calculate ‘计算当前工作表

(73) ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetHidden ‘正常隐藏工作表，同在Excel菜单当选择“格式——工作表——隐藏”操作一样

(74) ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVeryHidden ‘隐藏工作表，不能经过在Excel菜单当选择“格式——工作表——取消隐藏”来重新显示工作

(75) ThisWorkbook.Worksheets(“sheet1”).Visible=xlSheetVisible ‘显示被隐藏的工作表

(76)  ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是不是遭到保护

(77)  ThisWorkbook.Worksheets.Add Count:=2, Before:=ThisWorkbook.Worksheets(2) 或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2  ‘在第2个工作表之前添加两个新的工作表

(78) ThisWorkbook.Worksheets(3).Copy ‘复制一个工作表到新的工作簿

(79)  ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) ‘复制第3个工作表到第2个工作表之前

(80) ThisWorkbook.Worksheets(1).Activate ‘当前工作簿中的第一个工作表被激活

(81)  ThisWorkbook.Worksheets(“Sheet1”).Rows(1).Hidden = True ‘将工作表Sheet1中的1隐藏

(82) ActiveCell.EntireRow.Hidden = True ‘将当前工作表中活动单元格所在的行隐藏

(83)   ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自动调剂当前工作表A列列宽

(84) ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ‘选中当前工作表中常量和文本单元格

(85) ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘选中当前工作表中常量和文本及毛病值单元格

(86)  Application.WorksheetFunction.CountA(Range(“A:A”))+1 ‘获得A列的下一个空单元格

(87) Set FirstCell=Range(RefEdit1.Text).Range(“A1”) ‘设置某单元格区域左上角单元格

(88)  Application.OnTime Now + TimeValue(“00:00:15”), “myProcedure” ‘等待15秒后运行myProcedure进程

(89) Application对象

(90)  Application.UserName ‘返回利用程序的用户名

(91)  Application.Caller.Parent.Parent ‘返回调用函数的工作簿名称

(92)  Application.StatusBar=”请等待……” ‘将文本写到状态栏

(93)  Application.StatusBar=False ‘将状态栏重新设置成正常状态

(94)  Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) ‘返回一个垂直的数组

(95)  Application.ActiveCell.Address ‘返回活动单元格的地址(注:返回的是绝对地址)

(96)  Application.ActiveSheet.Name ‘返回活开工作表的名称

(97)  Application.ActiveWindow.Caption ‘返回活动窗口的标题

(98) Application.ActiveWorkbook.Name ‘返回活开工作簿的名称

(99)  Application.Selection.Address ‘返回所选区域的地址

(100) Application.ThisWorkbook.Name ‘返回当前工作簿的名称

(101)  Range(A1:A10).Value=Application.WorksheetFunction.Transpose(MyArray) ‘将一含有10个元素的水平数组转置成垂直数组，并写入工作表单元格区域(A1至A10)。

(102) Cells(rows.count,1).End(xlUp).Row+1 ‘返回A列最后一行的下一行

(103)  rng.Range(“A1”) ‘返回区域左上角的单元格

(104)  ActiveSheet.Range(“A:B”).Sort Key1:=Columns(“B”), Key2:=Columns(“A”), Header:=xlYes ‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列

(105)  cell.Range(“A1”).HasFormula ‘检查单元格或单元格区域中的第一个单元格是不是含有公式或cell.HasFormula ‘工作表中单元格是不是含有公式

(106)  Cell.EntireColumn ‘单元格所在的整列

(107) Cell.EntireRow ‘单元格所在的整行

(108) rng.Address ‘返回rng区域的地址

(109)  Range(“D5:D10”).Cells(1,1) ‘返回单元格区域D5:D10中左上角单元格

(110)  ActiveCell.Row ‘活动单元格所在的行数

(111) ActiveCell.Column ‘活动单元格所在的列数

(112)  Set MyRange=Range(“A1:A5”) ‘创建一个名为MyRange的对象变量

(113)  Application.Calculation = xlCalculationManual ‘设置工作簿手动计算

(114) Application.Calculation = xlCalculationAutomatic ‘工作簿自动计算

(115)  Worksheets(1).EnableCalculation = False ‘不对第一张工作表自动进行重算

(116) ActiveSheet.Shapes.AddPicture “d:\sx.jpg”, True, True, 60, 20, 400, 300 ‘在当前工作表中插入一张d盘中名为sx.jpg的图片

选择英雄云的云表单=选择更智能的Excel

在现代企业管理中，数据的高效管理和处理至关重要。随着信息技术的不断发展，英雄云的云表单已经成为了提高数据录入、管理和分析效率的不可或缺的工具。让我们来深入探讨英雄云-云表单的几大优势。

基础字段：多样性满足业务需求

英雄云的云表单中包括了各种基础字段，如单行文本、多行文本、数字输入框、单选框、复选框、下拉框、下拉复选框、日期时间、分割线等。这些字段的多样性使用户可以根据具体的业务需求，轻松进行文本、数据和时间信息的录入或修改。例如，您可以使用单行文本字段录入员工姓名、产品型号等，或者使用下拉框进行多选，根据不同情况选择更加方便的字段类型。

高级字段：提升工作效率

英雄云的云表单还提供了高级字段，如地址、图片、附件、手写签名、手机、子表、关联数据、关联查询以及流水号。这些高级字段在基础字段的基础上升级，可帮助用户完成一些琐碎的工作。例如，使用地址字段可以避免逐字打字，而流水号字段可以自动生成规律性的编号，非常适用于合同编号生成等场景。

部门成员字段：精确管理与通讯录的关联

英雄云的部门成员字段允许企业对各个部门的成员进行精确管理。用户可以通过部门成员字段获取通讯录中的部门成员信息，应用于记录报销人、报销部门等场景。这些成员字段还细分为成员单选和成员多选，可根据具体需求在通讯录中选择一个或多个成员。

聚合表：数据处理更智能

英雄云的聚合表功能用于对已存在的表单数据进行聚合计算，从而得到一张聚合表，后续其他表单可调用聚合表进行数据联动、关联查询和关联数据等操作完成数据处理。这一功能可应用于多种场景，如进销存管理、财务管理和门店零售管理等，帮助企业完成数据处理，提高工作效率。

表单权限设置：灵活管理数据访问

英雄云的表单权限设置允许用户根据企业的具体需求管理表单的访问和操作权限。用户可以根据系统权限或自定义权限对不同成员或团队进行权限设置，以确保数据的安全和合规性。这一功能使企业能够根据变化的业务需求和团队结构，实时调整权限设置。

自定义打印模板：文档输出更便捷

英雄云的云表单支持自定义打印模板，可将表单数据转换为可打印的Word文档。用户可以根据自己的需求进行排版和编辑，将产品规格说明书等文档轻松生成。这一功能提供了一种标准化的文档输出方式，简化了信息整理的过程。

综合来看，选择英雄云的云表单意味着选择更智能、更灵活、更高效的数据管理工具。无论是提高工作效率，精确管理数据，还是实现数据处理，英雄云的云表单都能满足您的多样化需求，助力您的业务发展。

如果您正在寻找一款强大的云表单工具，不妨考虑英雄云，它将为您带来更多的便捷和智能，助您事半功倍。

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。