附录B 常用宏操作命令
Excel宏大量简单常用宏
Excel宏大量简单常用宏代码目录链接类别打开全部隐藏工作表点击循环宏点击录制宏时调用“停止录制”工具栏点击高级筛选5列不重复数据至指定表点击双击单元执行宏(工作表代码)点击双击指定区域单元执行宏(工作表代码)点击进入单元执行宏(工作表代码)点击进入指定区域单元执行宏(工作表代码)点击在多个宏中依次循环执行一个（控件按钮代码）点击在两个宏中依次循环执行一个并相应修改按钮名称点击（控件按钮代码）在三个宏中依次循环执行一个并相应修改按钮名称点击（控件按钮代码）根据A1单元文本隐藏/显示按钮（控件按钮代码）点击当前单元返回按钮名称（控件按钮代码）点击当前单元内容返回到按钮名称（控件按钮代码）点击奇偶页分别打印点击打印自动打印多工作表第一页点击打印查找A列文本循环插入分页符点击打印将A列最后数据行以上的所有B列图片大小调整为所在点击对象单元大小返回光标所在行数点击查找和引用在A1返回当前选中单元格数量点击查找和引用返回当前工作簿中工作表数量点击查找和引用返回光标选择区域的行数和列数点击查找和引用工作表中包含数据的最大行数点击查找和引用返回A列数据的最大行数点击查找和引用将所选区域文本插入新建文本框点击对象批量插入地址批注点击批注批量插入统一批注点击批注以A1单元内容批量插入批注点击批注不连续区域插入当前文件名和表名及地址点击单元赋值不连续区域录入当前单元地址点击单元赋值连续区域录入当前单元地址点击单元赋值返回当前单元地址点击单元赋值不连续区域录入当前日期点击单元赋值不连续区域录入当前数字日期点击单元赋值不连续区域录入当前日期和时间点击单元赋值不连续区域录入对勾点击单元赋值不连续区域录入当前文件名点击单元赋值不连续区域添加文本点击单元赋值不连续区域插入文本点击单元赋值从指定位置向下同时录入多单元指定内容点击单元赋值按aa工作表A列的内容排列工作表标签顺序点击工作表工作表工作表工作表工作表文件管理工作表工作表点击单元赋值当前单元录入计算机用户名点击单元赋值解除全部工作表保护点击工作表为指定工作表加指定密码保护表点击密码在有密码的工作表执行代码点击密码执行前需要验证密码的宏(控件按钮代码)点击密码拷贝A1公式和格式到A2点击单元赋值复制单元数值点击单元赋值插入数值条件格式点击格式插入透明批注点击批注单元赋值定位定位定位定位定位定位点击单元赋值当前单元加2点击单元赋值单元赋值定位单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值单元赋值事件事件事件事件其他其他定位打印单元赋值对象事件其他信息事件单元赋值单元赋值点击事件指定允许编辑区域点击编辑解除允许编辑区域限制点击编辑删除指定行点击行列操作删除A列为指定内容的行点击行列操作删除A列非数字单元行点击行列操作有条件删除当前行点击行列操作选择下一行点击定位选择第5行开始所有数据行点击定位选择光标或选区所在行点击定位定位名称点击名称选择到指定列的最后行点击定位将Sheet1的A列的非空值写到Sheet2的A列点击单元赋值将名称1的数据写到名称2点击名称定位格式对象点击数据单元赋值名称名称点击工作表按A列数据批量修改表名称点击工作表按A列数据批量创建新表(控件按钮代码)点击工作表清除剪贴板点击其他批量清除软回车点击其他判断指定文件是否已经打开点击事件当前文件另存到指定目录点击文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理文件管理引用指定位置单元内容为部分文件名另存文件点击文件管理将A 列数据排序到D列点击单元赋值将指定范围的数据排列到D列点击单元赋值定位行列操作点击数据取消数据有效限制点击数据重排窗口点击窗口按当前单元文本选择打开指定文件单元点击定位回车光标向右点击定位回车光标向下点击定位保护工作表时取消选定锁定单元点击工作表文件管理行列操作工作表工作表工作表工作表格式工作表工作表点击工作表工作表行列操作定位点击定位固定区域单元分类变色点击格式格式事件事件数据点击其他显示光标所在单元的批注的代码点击其他单元赋值事件事件事件事件点击单元赋值选择2至4行点击定位在当前选区有条件替换数值为文本点击事件自动筛选全部显示指定列点击筛选自动筛选第2列值为A的行点击筛选取消自动筛选()点击筛选全部显示指定表的自动筛选点击筛选强行合并单元点击格式格式单元赋值事件事件点击行列操作在A列产生不重复随机数点击单元赋值单元赋值单元赋值点击其他返回指定单元的行高和列宽点击信息指定行高和列宽点击格式指定单元的行高和列宽与A1单元相同点击格式填公式点击单元赋值工作表工作表单元赋值自定义函数信息超链接超链接超链接超链接查找和引用点击查找和引用返回表中各非空单元区域地址(行搜索)点击查找和引用查找和引用查找和引用查找和引用查找和引用查找和引用点击查找和引用返回A列非空单元数量点击查找和引用返回圆周率π点击其他定义指定单元内容为页眉/页脚点击打印提示并全部清除当前选择区域点击单元赋值全部清除当前选择区域点击单元赋值清除指定区域数值点击单元赋值对指定工作表执行取消隐藏》打印》隐藏工作表点击打印打开文件时执行指定宏(工作簿代码)点击事件关闭文件时执行指定宏(工作簿代码)点击事件信息事件点击工作表重算指定表点击工作表将第5行移到窗口的最上面点击窗口对第一张工作表的指定区域进行排序点击单元赋值显示指定工作表的打印预览点击打印用单元格A1的内容作为文件名另存当前工作簿点击文件管理[禁用/启用]保存和另存的代码点击文件管理在A和B列返回当前选区的名称和公式点击单元赋值朗读朗读A列,按ESC键中止点击语音朗读固定语句，请按ESC键终止点击语音在M和N列的14行以下选择单元时显示调用日历控件点击对象（工作表代码）添加自定义序列点击其他弹出打印对话框点击打印打印事件事件点击工作表把a列不重复值取到e列点击查找和引用查找和引用工作表点击事件事件其他点击其他按照当前行A列的图片名称插入图片到H列点击图片当前行下插入1行点击工作表取消指定行或列的隐藏点击工作表复制单元格所在行点击其他复制单元格所在列点击其他新建一个工作表点击工作表新建一个工作簿点击工作簿工作表事件工作簿点击工作簿合并A1至C1的内容写到D15单元的批注中点击批注自动重算点击其他手动重算点击其他ＥＨ帖子地址net/dispbbs.asp?boardid=4&id=239820。
B类宏程式功能简介(009)
I3
#10
K6
#21
J10
#32
J3
#11
I7
#22
K10
#33
☆ 在实际的程序中，I、J、K 的下标不用写出来。
注意：
☆ 在自变量之前一定要指定 G65。 ☆ 如果将两类自变量混合使用，系统自己会辨别属于哪类，最后指定的那一类优先。 ☆ 传递的不带小数点的自变量的单位与每个地址的最小输入增量一致，其值与机床的系统结构非常
B 类宏程式功能简介 （9）
因为使用参数设定的指令调用宏程式牵涉的地方太多，受篇幅限制，我们就部详细 讨论了！这里我们介绍最常用的宏调用方式。
1.4.1 简单调用（G65）
功能 G65 被指定时，地址 P 所指定的程式被调用，自变量能传递到用户宏程序中。
格式 G65 Pp Ll <自变量表>；
其中： p
一致。为了程序的兼容性，建议使用带小数点的自变量。 ☆ 最多可以嵌套含有简单调用（G65）和模态调用（G66）的程序 4 级。不包括子程序调用（M98）。
局部变量可以嵌套 0~4 级。主程序的级数是 0。用 G65 和 G66 每调用一次宏，局部变量的级数 增加一次。上一级局部变量的值保存在 NC 中。宏程序执行到 M99 时，控制返回到调用的程序。 这时局部变量的级数减 1，恢复宏调用时存储的局部变量值。
用的字母自动确定:
地址
变量号 地址
变量号 地址
变量号
A
#1
K3
#12
J7
#23
B
#2
I4
#13Hale Waihona Puke K7#24C
#3
J4
#14
I8
#25
宏命令教学
2.4.3宏命令教学宏命令是一种在计算机程序中定义的代码片段，可以在程序中进行重复使用。
宏命令有助于简化代码的编写和管理，提高代码的可读性和可维护性。
以下是一个宏命令的教学示例：1. 定义宏命令：在程序中选择一个合适的位置，定义一个宏命令。
宏命令通常以 "#define" 关键字开始，后面是宏命令的名称和具体的代码片段。
例如：```c#define MAX(a, b) ((a) > (b) ? (a) : (b))```这个宏命令定义了一个比较两个数大小并返回较大值的函数。
可以在程序的任何地方使用宏命令 MAX(a, b) 来获取较大的数。
2. 使用宏命令：在程序中需要比较两个数大小的地方，可以使用宏命令 MAX(a, b)。
例如：```cint x = 5;int y = 7;int max = MAX(x, y);```在这个例子中，宏命令 MAX(a, b) 被用来比较变量 x 和 y 的大小，得到较大的数赋值给变量 max。
3. 注意事项：在使用宏命令时需要注意一些事项：- 宏命令中的参数应该用括号括起来，以避免运算优先级问题。
- 宏命令不是真正的函数，它只是一个文本替换的过程。
因此，在宏命令中使用的参数应该是简单的表达式，避免出现副作用和错误。
- 宏命令中的代码片段不需要使用分号结尾，因为宏命令是单个的语句。
总结：宏命令是一种在程序中定义的代码片段，可以在程序中重复使用。
它是通过文本替换的方式工作，并提高了代码的可读性和可维护性。
使用宏命令需要注意一些规则，并确保它们与实际需求相符合。
EXCEL宏编辑命令
voko007259个常用宏-excelhome(1)2009-08-15 14:10:24目录1、打开全部隐藏工作表2、循环宏3、录制宏时调用“停止录制”工具栏4、高级筛选5列不重复数据至指定表5、双击单元执行宏(工作表代码)6、双击指定区域单元执行宏(工作表代码)7、进入单元执行宏(工作表代码)8、进入指定区域单元执行宏(工作表代码)9、在多个宏中依次循环执行一个（控件按钮代码）10、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）11、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）12、根据A1单元文本隐藏/显示按钮（控件按钮代码）13、当前单元返回按钮名称（控件按钮代码）14、当前单元内容返回到按钮名称（控件按钮代码）15、奇偶页分别打印16、自动打印多工作表第一页17、查找A列文本循环插入分页符18、将A列最后数据行以上的所有B列图片大小调整为所在单元大小19、返回光标所在行数20、在A1返回当前选中单元格数量21、返回当前工作簿中工作表数量22、返回光标选择区域的行数和列数23、工作表中包含数据的最大行数24、返回A列数据的最大行数25、将所选区域文本插入新建文本框26、批量插入地址批注27、批量插入统一批注28、以A1单元内容批量插入批注29、不连续区域插入当前文件名和表名及地址30、不连续区域录入当前单元地址31、连续区域录入当前单元地址32、返回当前单元地址33、不连续区域录入当前日期34、不连续区域录入当前数字日期35、不连续区域录入当前日期和时间36、不连续区域录入对勾37、不连续区域录入当前文件名38、不连续区域添加文本39、不连续区域插入文本40、从指定位置向下同时录入多单元指定内容41、按aa工作表A列的内容排列工作表标签顺序42、以A1单元文本作表名插入工作表43、删除全部未选定工作表44、工作表标签排序45、定义指定工作表标签颜色46、在目录表建立本工作簿中各表链接目录47、建立工作表文本目录48、查另一文件的全部表名49、当前单元录入计算机名50、当前单元录入计算机用户名51、解除全部工作表保护52、为指定工作表加指定密码保护表53、在有密码的工作表执行代码54、执行前需要验证密码的宏(控件按钮代码)55、执行前需要验证密码的宏()56、拷贝A1公式和格式到A257、复制单元数值58、插入数值条件格式59、插入透明批注60、添加文本61、光标定位到指定工作表A列最后数据行下一单元62、定位选定单元格式相同的全部单元格63、按当前单元文本定位64、按固定文本定位65、删除包含固定文本单元的行或列66、定位数据及区域以上的空值67、右侧单元自动加5(工作表代码)68、当前单元加269、A列等于A列减B列70、用于光标选定多区域跳转指定单元(工作表代码)71、将A1单元录入的数据累加到B1单元（工作表代码）72、在指定颜色区域选择单元时添加/取消"√"（工作表代码）73、在指定区域选择单元时添加/取消"√"（工作表代码）74、双击指定单元，循环录入文本（工作表代码）75、双击指定单元，循环录入文本（工作表代码）76、单元区域引用（工作表代码）77、在指定区域选择单元时数值加1（工作表代码）78、混合文本的编号79、指定区域单元双击数据累加（工作表代码）80、选择单元区域触发事件（工作表代码）81、当修改指定单元内容时自动执行宏（工作表代码）82、被指定单元内容限制执行宏83、双击单元隐藏该行（工作表代码）84、高亮显示行（工作表代码）85、高亮显示行和列（工作表代码）86、为指定工作表设置滚动范围（工作簿代码）87、在指定单元记录打印和预览次数（工作簿代码）88、自动数字金额转大写（工作表代码）89、将全部工作表的A1单元作为单击按钮（工作簿代码）90、闹钟——到指定时间执行宏（工作簿代码）91、改变Excel界面标题的宏（工作簿代码）92、在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）93、B列录入数据时在A列返回记录时间（工作表代码）94、当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）95、指定单元显示光标位置内容（工作表代码）96、每编辑一个单元保存文件97、指定允许编辑区域98、解除允许编辑区域限制99、删除指定行100、删除A列为指定内容的行101、删除A列非数字单元行102、有条件删除当前行103、选择下一行104、选择第5行开始所有数据行105、选择光标或选区所在行106、选择光标或选区所在列107、光标定位到名称指定位置108、选择名称定义的数据区109、选择到指定列的最后行110、将Sheet1的A列的非空值写到Sheet2的A列111、将名称1的数据写到名称2112、单元反选113、调整选中对象中的文字114、去除指定范围内的对象115、更新透视表数据项116、将全部工作表名称写到A列117、为当前选定的多单元插入指定名称118、删除全部名称119、以指定区域为表目录补充新表120、按A列数据批量修改表名称121、按A列数据批量创建新表(控件按钮代码)122、清除剪贴板123、批量清除软回车124、判断指定文件是否已经打开125、当前文件另存到指定目录126、另存指定文件名127、以本工作表名称另存文件到当前目录128、将本工作表单独另存文件到Excel当前默认目录129、以活动工作表名称另存文件到Excel当前默认目录130、另存所有工作表为工作簿131、以指定单元内容为新文件名另存文件133、以当前日期和时间为新文件名另存文件134、另存本表为TXT文件135、引用指定位置单元内容为部分文件名另存文件136、将A列数据排序到D列137、将指定范围的数据排列到D列138、光标所在行上移一行139、加数据有效限制140、取消数据有效限制141、重排窗口143、回车光标向右144、回车光标向下146、保存并退出Excel147、隐藏/显示指定列空值行148、深度隐藏指定工作表149、隐藏指定工作表150、隐藏当前工作表151、返回当前工作表名称152、获取上一次所进入工作簿的工作表名称153、按光标选定颜色隐藏本列其他颜色行154、打开工作簿自动隐藏录入表以外的其他表155、除最左边工作表外深度隐藏所有表156、关闭文件时自动隐藏指定工作表(ThisWorkbook) 157、打开文件时提示指定工作表是保护状态(ThisWorkbook) 158、插入10行159、全选固定范围内小于0的单元160、全选选定范围内小于0的单元161、固定区域单元分类变色162、A列半角内容变红163、单元格录入数据时运行宏的代码164、根据B列最后数据快速合并A列单元格的控件代码165、在F1单元显示光标位置批注内容的代码166、显示光标所在单元的批注的代码167、使单元内容保持不变的工作表代码168、有条件执行宏169、有条件执行不同的宏170、提示确定或取消执行宏171、提示开始和结束172、拷贝指定表不相邻多列数据到新位置173、选择2至4行174、在当前选区有条件替换数值为文本175、自动筛选全部显示指定列176、自动筛选第2列值为A的行177、取消自动筛选()178、全部显示指定表的自动筛选179、强行合并单元180、设置单元区域格式181、在所有工作表的A1单元返回顺序号182、根据A1单元内容返回C1数值183、根据A1内容选择执行宏184、删除A列空行185、在A列产生不重复随机数186、将A列数据随机排列到F列187、取消选定区域的公式只保留值(假空转真空)188、处理导入的显示为科学计数法样式的身份证号189、返回指定单元的行高和列宽190、指定行高和列宽191、指定单元的行高和列宽与A1单元相同191、填公式192、建立当前工作表的副本为001表193、在第一个表前插入多工作表194、清除A列再插入序号195、反方向文本(自定义函数)196、指定选择单元区域弹出消息197、将B列数据添加超链接到K列198、删除B列数据的超链接199、分离临时表A列数据的文本和超链接并整理到数据库表200、分离临时表A列数据的文本和超链接并会同其他数据整理到数据库表201、返回A列最后一个非空单元行号202、返回表中第一个非空单元地址(行搜索)203、返回表中各非空单元区域地址(行搜索)204、返回第一个数值行号205、返回第1行最右边非空单元的列号206、返回连续数值单元的数量207、统计指定范围和内容的单元数量208、统计不同颜色的数字的和（自定义函数）209、返回非空单元数量210、返回A列非空单元数量211、返回圆周率π212、定义指定单元内容为页眉/页脚213、提示并全部清除当前选择区域214、全部清除当前选择区域215、清除指定区域数值216、对指定工作表执行取消隐藏》打印》隐藏工作表217、打开文件时执行指定宏(工作簿代码)218、关闭文件时执行指定宏(工作簿代码)219、弹出提示A1单元内容220、延时15秒执行重排窗口宏221、撤消工作表保护并取消密码222、重算指定表223、将第5行移到窗口的最上面224、对第一张工作表的指定区域进行排序225、显示指定工作表的打印预览226、用单元格A1的内容作为文件名另存当前工作簿227、[禁用/启用]保存和另存的代码228、在A和B列返回当前选区的名称和公式229、朗读朗读A列,按ESC键中止230、朗读固定语句，请按ESC键终止231、在M和N列的14行以下选择单元时显示调用日历控件（工作表代码）232、添加自定义序列233、弹出打印对话框234、返回总页码235、合并各工作表内容236、合并指定目录中所有文件中相同格式工作表的数据237、隐藏指定工作表的指定列238、把a列不重复值取到e列239、当前选区的行列数240、单元格录入1位字符就跳转(工作表代码)241、当指定日期（每月10日）打开文件执行宏242、提示并清空单元区域243、返回光标所在行号244、按照当前行A列的图片名称插入图片到H列245、当前行下插入1行246、取消指定行或列的隐藏247、复制单元格所在行248、复制单元格所在列249、新建一个工作表250、新建一个工作簿251、选择多表为工作组252、在当前工作组各表中分别执行指定宏253、复制当前工作簿的报表到临时工作簿254、删除指定文件255、合并A1至C1的内容写到D15单元的批注中256、自动重算257、手动重算1、打开全部隐藏工作表Sub 打开全部隐藏工作表()Dim i As IntegerFor i = 1 To Sheets.CountSheets(i).V isible = TrueNext iEnd Sub2、循环宏Sub 循环()AAA = Range("C2")Dim i As LongDim times As Longtimes = AAA'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) For i = 1 To timesCall 过滤一行If Range("完成标志") = "完成" ThenExit For'如果名为'完成标志'的命名单元的值等于'完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For'如果某列出现"完成"内容则退出循环Next iEnd Sub3、录制宏时调用“停止录制”工具栏Sub 录制宏时调用停止录制工具栏()mandBars("Stop Recording").V isible = TrueEnd Sub4、高级筛选5列不重复数据至指定表Sub 高级筛选5列不重复数据至Sheet2()Sheets("Sheet2").Range("A1:E65536") = "" '清除Sheet2的A:D列Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _"A1"), Unique:=TrueSheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYinEnd Sub5、双击单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByV al Target As Range, Cancel As Boolean) If Range("$A$1") = "关闭" ThenExit SubSelect Case Target.AddressCase "$A$4"Call 宏1Cancel = TrueCase "$B$4"Call 宏2Cancel = TrueCase "$C$4"Call 宏3Cancel = TrueCase "$E$4"Call 宏4Cancel = TrueEnd SelectEnd Sub6、双击指定区域单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByV al Target As Range, Cancel As Boolean) If Range("$A$1") = "关闭" Then Exit SubIf Not Application.Intersect(Target, Range("A4:A9", "C4:C9")) Is Nothing Then Call 打开隐藏表End Sub7、进入单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByV al Target As Range)'以单元格进入代替按钮对象调用宏If Range("$A$1") = "关闭" Then Exit SubSelect Case Target.AddressCase "$A$5" '单元地址(Target.Address),或命名单元名字()Call 宏1Case "$B$5"Call 宏2Case "$C$5"Call 宏3End SelectEnd Sub8、进入指定区域单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByV al Target As Range)If Range("$A$1") = "关闭" Then Exit SubIf Not Application.Intersect(Target, Range("A4:A9","C4:C9")) Is Nothing Then Call 打开隐藏表End Sub9、在多个宏中依次循环执行一个（控件按钮代码）Private Sub CommandButton1_Click()Static RunMacro As IntegerSelect Case RunMacroCase 0宏1RunMacro = 1Case 1宏2RunMacro = 2Case 2宏3RunMacro = 0End SelectEnd Sub10、在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Private Sub CommandButton1_Click()With CommandButton1If .Caption = "保护工作表" ThenCall 保护工作表.Caption = "取消工作表保护"Exit SubEnd IfIf .Caption = "取消工作表保护" ThenCall 取消工作表保护.Caption = "保护工作表"Exit SubEnd IfEnd WithEnd Sub11、在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Option ExplicitPrivate Sub CommandButton1_Click()With CommandButton1If .Caption = "宏1" ThenCall 宏1.Caption = "宏2"Exit SubEnd IfIf .Caption = "宏2" ThenCall 宏2.Caption = "宏3"Exit SubEnd IfIf .Caption = "宏3" ThenCall 宏3.Caption = "宏1"Exit SubEnd IfEnd WithEnd Sub12、根据A1单元文本隐藏/显示按钮（控件按钮代码）Private Sub Worksheet_SelectionChange(ByV al Target As Range) If Range("A1") > 2 ThenCommandButton1.Visible = 1ElseCommandButton1.Visible = 0End IfEnd SubPrivate Sub CommandButton1_Click()重排窗口End Sub13、当前单元返回按钮名称（控件按钮代码）Private Sub CommandButton1_Click()ActiveCell = CommandButton1.CaptionEnd Sub14、当前单元内容返回到按钮名称（控件按钮代码）Private Sub CommandButton1_Click()CommandButton1.Caption = ActiveCellEnd Sub15、奇偶页分别打印Sub 奇偶页分别打印()Dim i%, Ps%Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数MsgBox "现在打印奇数页,按确定开始."For i = 1 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iMsgBox "现在打印偶数页,按确定开始."For i = 2 To Ps Step 2ActiveSheet.PrintOut from:=i, To:=iNext iEnd Sub16、自动打印多工作表第一页Sub 自动打印多工作表第一页()Dim sh As IntegerDim xDim yDim syDim syzx = InputBox("请输入起始工作表名字:")sy = InputBox("请输入结束工作表名字:")y = Sheets(x).Indexsyz = Sheets(sy).IndexFor sh = y To syzSheets(sh).SelectSheets(sh).PrintOut from:=1, To:=1Next shEnd Sub17、查找A列文本循环插入分页符Sub 循环插入分页符()' Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容Dim i As LongDim times As Longtimes = Application.WorksheetFunction.CountIf(Sheet1.Range("a:a"), "分页") 'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) For i = 1 To timesCall 插入分页符Next iEnd SubSub 插入分页符()Cells.Find(What:="分页", After:=ActiveCell, LookIn:=xlV alues, LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _.ActivateActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCellEnd SubSub 取消原分页()Cells.SelectActiveSheet.ResetAllPageBreaksEnd Sub18、将A列最后数据行以上的所有B列图片大小调整为所在单元大小Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小() Dim Pic As Picture, i&i = [A65536].End(xlUp).RowFor Each Pic In Sheet1.PicturesIf Not Application.Intersect(Pic.TopLeftCell, Range("B1:B" & i)) Is Nothing Then Pic.Top = Pic.TopLeftCell.TopPic.Left = Pic.TopLeftCell.LeftPic.Height = Pic.TopLeftCell.HeightPic.Width = Pic.TopLeftCell.WidthEnd IfNextEnd Sub19、返回光标所在行数Sub 返回光标所在行数()x = ActiveCell.RowRange("A1") = xEnd Sub20、在A1返回当前选中单元格数量Sub 在A1返回当前选中单元格数量()[A1] = Selection.CountEnd Sub21、返回当前工作簿中工作表数量Sub 返回当前工作簿中工作表数量()t = Application.Sheets.CountMsgBox tEnd Sub22、返回光标选择区域的行数和列数Sub 返回光标选择区域的行数和列数()x = Selection.Rows.County = Selection.Columns.CountRange("A1") = xRange("A2") = yEnd Sub23、工作表中包含数据的最大行数Sub 包含数据的最大行数()n = Cells.Find("*", , , , 1, 2).RowMsgBox nEnd Sub24、返回A列数据的最大行数Sub 返回A列数据的最大行数()n = Range("a65536").End(xlUp).RowRange("B1") = nEnd Sub25、将所选区域文本插入新建文本框Sub 将所选区域文本插入新建文本框()For Each rag In Selectionn = n & rag.V alue & Chr(10)NextActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, ActiveCell.Left + ActiveCell.Width, ActiveCell.Top + ActiveCell.Height, 250#, 100).SelectSelection.Characters.Text = "问题：" & nWith Selection.Characters(Start:=1, Length:=3).Font.Name = "黑体".FontStyle = "常规".Size = 12End WithEnd Sub26、批量插入地址批注Sub 批量插入地址批注()On Error Resume NextDim r As RangeIf Selection.Cells.Count > 0 ThenFor Each r In Selectionment.Deleter.AddCommentment.V isible = Falsement.Text Text:="本单元格：" & r.Address & " of " & Selection.Address NextEnd IfEnd Sub27、批量插入统一批注Sub 批量插入统一批注()Dim r As Range, msg As Stringmsg = InputBox("请输入欲批量插入的批注", "提示", "随便输点什么吧")If Selection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.V isible = Falsement.Text Text:=msgNextEnd IfEnd Sub28、以A1单元内容批量插入批注Sub 以A1单元内容批量插入批注()Dim r As RangeIf Selection.Cells.Count > 0 ThenFor Each r In Selectionr.AddCommentment.V isible = Falsement.Text Text:=[a1].TextNextEnd IfEnd Sub29、不连续区域插入当前文件名和表名及地址Sub 批量插入当前文件名和表名及地址()For Each mycell In Selectionmycell.FormulaR1C1 = "[" + + "]" + + "!" + mycell.AddressNextEnd Sub30、不连续区域录入当前单元地址Sub 区域录入当前单元地址()For Each mycell In Selectionmycell.FormulaR1C1 = mycell.AddressNextEnd Sub31、连续区域录入当前单元地址Sub 连续区域录入当前单元地址()Selection = "=ADDRESS(ROW(),COLUMN(),4,1)"Selection.CopySelection.PasteSpecial Paste:=xlPasteV alues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=FalseEnd Sub32、返回当前单元地址Sub 返回当前单元地址()d = ActiveCell.Address[A1] = dEnd Sub33、不连续区域录入当前日期Sub 区域录入当前日期()Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d")End Sub34、不连续区域录入当前数字日期Sub 区域录入当前数字日期()Selection.FormulaR1C1 = Format(Now(), "yyyymmdd")End Sub35、不连续区域录入当前日期和时间Sub 区域录入当前日期和时间()Selection.FormulaR1C1 = Format(Now(), "yyyy-m-d h:mm:ss") End Sub36、不连续区域录入对勾Sub 批量录入对勾()Selection.FormulaR1C1 = "√"End Sub37、不连续区域录入当前文件名Sub 批量录入当前文件名()Selection.FormulaR1C1 = End Sub38、不连续区域添加文本Sub 批量添加文本()Dim s As RangeFor Each s In Selections = s & "文本内容"NextEnd Sub39、不连续区域插入文本Sub 批量插入文本()Dim s As RangeFor Each s In Selections = "文本内容" & sNextEnd Sub40、从指定位置向下同时录入多单元指定内容Sub 从指定位置向下同时录入多单元指定内容()Dim arrarr = Array("1", "2", "13", "25", "46", "12", "0", "20")[B2].Resize(8, 1) = Application.WorksheetFunction.Transpose(arr) End Sub41、按aa工作表A列的内容排列工作表标签顺序Sub 按aa工作表A列的内容排列工作表标签顺序() Dim I%, str1$I = 1Sheets("aa").SelectDo While Cells(I, 1).V alue <> ""str1 = Trim(Cells(I, 1).V alue)Sheets(str1).SelectSheets(str1).Move after:=Sheets(I)I = I + 1Sheets("aa").SelectLoopEnd Sub42、以A1单元文本作表名插入工作表Sub 以A1单元文本作表名插入工作表()Dim nm As Stringnm = [a1]Sheets.Add = nmEnd Sub43、删除全部未选定工作表Sub 删除全部未选定工作表()Dim sht As Worksheet, n As Integer, iFlag As BooleanDim ShtName() As Stringn = ActiveWindow.SelectedSheets.CountReDim ShtName(1 To n)n = 1For Each sht In ActiveWindow.SelectedSheetsShtName(n) = n = n + 1NextApplication.DisplayAlerts = FalseFor Each sht In SheetsiFlag = FalseFor i = 1 To n - 1If ShtName(i) = TheniFlag = TrueExit ForEnd IfNextIf Not iFlag Then sht.DeleteNextApplication.DisplayAlerts = TrueEnd Sub44、工作表标签排序Sub 工作表标签排序()Dim i As Long, j As Long, nums As Long, msg As Longmsg = MsgBox("工作表按升序排列请选'是[Y]'. " & vbCrLf & vbCrLf & "工作表按降序排列请选'否[N]'", vbY esNoCancel, "工作表排序")If msg = vbCancel Then Exit Subnums = Sheets.CountIf msg = vbY es Then 'Sort ascendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) < UCase(Sheets(i).Name) ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iElse 'Sort descendingFor i = 1 To numsFor j = i To numsIf UCase(Sheets(j).Name) > UCase(Sheets(i).Name) ThenSheets(j).Move Before:=Sheets(i)End IfNext jNext iEnd IfEnd Sub259个常用宏-excelhome(2)2009-08-15 14:11:4545、定义指定工作表标签颜色Sub 定义指定工作表标签颜色()Sheets("Sheet1").Tab.ColorIndex = 46End Sub46、在目录表建立本工作簿中各表链接目录Sub 在目录表建立本工作簿中各表链接目录()Dim s%, Rng As RangeOn Error Resume NextSheets("目录").ActivateIf Err = 0 ThenSheets("目录").UsedRange.DeleteElseSheets.Add = "目录"End IfFor i = 1 To Sheets.CountIf Sheets(i).Name <> "目录" Thens = s + 1Set Rng = Sheets("目录").Cells(((s - 1) Mod 20) + 1, (s - 1) \ 20 + 1 + 1)Rng = Format(s, " 0") & ". " & Sheets(i).NameActiveSheet.Hyperlinks.Add Rng, "#" & Sheets(i).Name & "!A1", ScreenTip:=Sheets(i).NameEnd IfNextSheets("目录").Range("b:iv").EntireColumn.ColumnWidth = 20End Sub47、建立工作表文本目录Sub 建立工作表文本目录()Sheets.Add before:=Sheets(1)Sheets(1).Name = "目录"For i = 2 To Sheets.CountCells(i - 1, 1) = Sheets(i).Name'Sheets(1).Hyperlinks.Add Cells(i - 1, 1), "#" & Sheets(i).Name & "!A1" '添加超链接NextEnd Sub48、查另一文件的全部表名Sub 查另一文件的全部表名()On Error Resume NextDim i%Dim sh As WorksheetApplication.ScreenUpdating = FalseWorkbooks.Open Filename:=ThisWorkbook.Path & "\2.xls"Windows("1.xls").Activate '当前文件名称Sheets("Sheet1").Select '当前表名称i = 1 '将表名称返回到第1行For Each sh In Workbooks("2.xls").WorksheetsCells(i, 1) = '将表名称返回到第1列i = i + 1 '返回每个表名称向下移动1行Next shWindows("2.xls").Close '关闭对象文件Application.ScreenUpdating = TrueEnd Sub49、当前单元录入计算机名Sub 当前单元录入计算机名()Selection = Environ("COMPUTERNAME")'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub50、当前单元录入计算机用户名Sub 当前单元录入计算机用户名()Selection = Environ("Username")'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub51、解除全部工作表保护Sub 解除全部工作表保护()Dim n As IntegerFor n = 1 To Sheets.CountSheets(n).UnprotectNext nEnd Sub52、为指定工作表加指定密码保护表Sub 为指定工作表加指定密码保护表()Sheet10.Protect Password:="123"End Sub53、在有密码的工作表执行代码Sub 在有密码的工作表执行代码()Sheets("1").Unprotect Password:=123 '假定表名为“1”，密码为“123”打开工作表Range("C:C").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True '隐藏C列空值行Sheets("1").Protect Password:=123 '重新用密码保护工作表End Sub54、执行前需要验证密码的宏(控件按钮代码)Private Sub CommandButton1_Click()If InputBox("请输入密码：") <> "123" Then '密码是123MsgBox "密码错误,按确定退出!", 64, "提示"Exit SubEnd IfCells(1, 1) = 10End Sub55、执行前需要验证密码的宏()Sub 执行前需要验证密码的宏()If InputBox("请输入您的使用权限:", "系统提示") = 123 Then重排窗口'要执行的宏代码或宏名称ElseMsgBox "对不起,您没有使用该宏的权限,按确定键后退出!"End IfEnd Sub56、拷贝A1公式和格式到A2Sub 拷贝A1公式到A2()Workbooks("临时表").Sheets("表1").Range("A1").CopyWorkbooks("临时表").Sheets("表2").Range("A2").PasteSpecialEnd Sub57、复制单元数值Sub 复制数值()s = Workbooks("book1").Sheets("Sheet1").Range("A1:A2")Workbooks("book2").Sheets("Sheet1").Range("A1:A2") = sEnd Sub58、插入数值条件格式Sub 插入数值条件格式()Selection.FormatConditions.DeleteSelection.FormatConditions.Add Type:=xlCellV alue, Operator:=xlGreater, _ Formula1:="70"Selection.FormatConditions(1).Interior.ColorIndex = 45Selection.FormatConditions.Add Type:=xlCellV alue, Operator:=xlLess, _ Formula1:="55"Selection.FormatConditions(2).Interior.ColorIndex = 39Selection.FormatConditions.Add Type:=xlCellV alue, Operator:=xlGreater, _ Formula1:="60"Selection.FormatConditions(3).Interior.ColorIndex = 34End Sub59、插入透明批注Sub 插入透明批注()Selection.AddCommentment.Visible = FalseDim XS As WorksheetFor i = 1 To ments.Countments(i).Text "透明批注"ments(i).Shape.Fill.Visible = msoFalseNextEnd Sub60、添加文本Sub 添加文本()Selection = Selection + "×" '不可在数字后添加文本'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub61、光标定位到指定工作表A列最后数据行下一单元Sub 光标定位到指定工作表A列最后数据行下一单元()a = Sheets("数据库").[a65536].End(xlUp).RowSheets("数据库").SelectRange("A" & a + 1).SelectEnd Sub62、定位选定单元格式相同的全部单元格Sub 定位选定单元格式相同的全部单元格()Dim FirstCell As Range, FoundCell As RangeDim AllCells As RangeWith Application.FindFormat.Clear.NumberFormatLocal = Selection.NumberFormatLocal.HorizontalAlignment = Selection.HorizontalAlignment.V erticalAlignment = Selection.V erticalAlignment.WrapText = Selection.WrapText.Orientation = Selection.Orientation.AddIndent = Selection.AddIndent.IndentLevel = Selection.IndentLevel.ShrinkToFit = Selection.ShrinkToFit.MergeCells = Selection.MergeCells = .Font.FontStyle = Selection.Font.FontStyle.Font.Size = Selection.Font.Size.Font.Strikethrough = Selection.Font.Strikethrough.Font.Subscript = Selection.Font.Subscript.Font.Underline = Selection.Font.Underline.Font.ColorIndex = Selection.Font.ColorIndex.Interior.ColorIndex = Selection.Interior.ColorIndex.Interior.Pattern = Selection.Interior.Pattern.Locked = Selection.Locked.FormulaHidden = Selection.FormulaHiddenEnd WithSet FirstCell = edRange.Find(what:="", searchformat:=True)If FirstCell Is Nothing ThenExit SubEnd IfSet AllCells = FirstCellSet FoundCell = FirstCellDoSet FoundCell = edRange.Find(After:=FoundCell, what:="", searchformat:=True)If FoundCell Is Nothing Then Exit DoSet AllCells = Union(FoundCell, AllCells)If FoundCell.Address = FirstCell.Address Then Exit DoLoopAllCells.SelectEnd Sub63、按当前单元文本定位Sub 按当前单元文本定位()ABC = SelectionDim aa As RangeFor Each a In edRangeIf a Like ABC ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub64、按固定文本定位Sub 文本定位()Dim aa As RangeFor Each a In edRangeIf a Like "*合计*" ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub65、删除包含固定文本单元的行或列Sub 删除包含固定文本单元的行或列()DoCells.Find(what:="哈哈").ActivateSelection.EntireRow.Delete '删除行' Selection.EntireColumn.Delete '删除列Loop Until Cells.Find(what:="哈哈") Is Nothing End Sub66、定位数据及区域以上的空值Sub 定位数据及区域以上的空值()Dim aa As RangeFor Each a In edRangeIf a Like 〈0 ThenIf aa Is Nothing ThenSet aa = a.CellsElseSet aa = Union(aa, a.Cells)End IfEnd IfNextaa.SelectEnd Sub67、右侧单元自动加5(工作表代码)Private Sub Worksheet_Change(ByV al Target As Range)Application.EnableEvents = FalseTarget.Offset(0, 1) = Target + 5Application.EnableEvents = TrueEnd Sub68、当前单元加2Sub 当前单元加2()Selection = Selection + 2'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容End Sub69、A列等于A列减B列Sub A列等于A列减B列()For i = 1 To 23Cells(i, 1) = Cells(i, 1) - Cells(i, 2)NextEnd Sub70、用于光标选定多区域跳转指定单元(工作表代码)Private Sub Worksheet_SelectionChange(ByV al T As Range)a = Array([b6:b7], [e6], [h6])For i = 0 To 2If Not Application.Intersect(T, a(i)) Is Nothing Then[a1].Select: Exit ForEnd IfNextEnd Sub71、将A1单元录入的数据累加到B1单元（工作表代码）Private Sub Worksheet_Change(ByV al Target As Range)Dim t As LongIf Target.Address = "$A$1" Thent = Sheet1.Range("$B$1").V alueSheet1.Range("$B$1").V alue = t + Target.V alueEnd IfEnd Sub72、在指定颜色区域选择单元时添加/取消"√"（工作表代码）Private Sub Worksheet_SelectionChange(ByV al Target As Range)Dim myrg As RangeFor Each myrg In TargetIf myrg.Interior.ColorIndex = 37 Then myrg = IIf(myrg <> "√", "√", "") NextEnd Sub73、在指定区域选择单元时添加/取消"√"（工作表代码）Private Sub Worksheet_SelectionChange(ByV al Target As Range)Dim Rng As RangeIf Target.Count <= 15 ThenIf Not Application.Intersect(Target, Range("D6:D20")) Is Nothing Then For Each Rng In SelectionWith RngIf .V alue = "" Then.V alue = "√"Else.V alue = ""End IfEnd WithNextEnd IfEnd IfEnd Sub74、双击指定单元，循环录入文本（工作表代码）Private Sub Worksheet_BeforeDoubleClick(ByV al T As Range, Cancel As Boolean) If T.Address <> "$A$1" Then Exit SubCancel = TrueT = IIf(T = "好", "中", IIf(T = "中", "差", "好"))End Sub75、双击指定单元，循环录入文本（工作表代码）Dim nums As BytePrivate Sub Worksheet_BeforeDoubleClick(ByV al Target As Range, Cancel As Boolean)If Target.Address = "$A$1" Thennums = nums Mod 3 + 1Target = Mid("上中下", nums, 1)Target.Offset(1, 0).SelectEnd IfEnd Sub76、单元区域引用（工作表代码）Private Sub Worksheet_Activate()Sheet1.Range("A1:B3").V alue = Sheet2.Range("A1:B3").V alueEnd Sub77、在指定区域选择单元时数值加1（工作表代码）Private Sub Worksheet_SelectionChange(ByV al Target As Range)If Not Application.Intersect([a1:e10], Target) Is Nothing ThenTarget = V al(Target) + 1End IfEnd Sub259个常用宏-excelhome(3)2009-08-15 14:12:5878、混合文本的编号Sub 混合文本的编号()Worksheets(1).Range("B2").V alue = "北京" & (--(Mid(Worksheets(1).Range("B2"), 3, 100)) + 1) End Sub79、指定区域单元双击数据累加（工作表代码）。
B类宏程式功能简介(006)
B类宏程式功能简介（6）有了变量及数学运算功能还不够，一个宏程序还需用到我们今天要介绍的“控制流程”功能。
1.3分支和循环语句在一个程序中，控制流程可以用GOTO、IF语句改变。
有三种分支循环语句如下：☆“GOTO”语句（无条件分支）；☆“IF”语句（条件分支）☆“WHILE”语句(循环语句)。
1.3.1无条件分支（GOTO语句）功能：转向程序的第N句。
当指定的顺序号大于1~99999时，出现报警，顺序号可以用表达式。
格式：GOTO n；n是顺序号（1~99999）GOTO[nn]nn可为一个变量或表达式，其值不大于1~99999之间的整数1.3.2条件分支（IF语句）功能：在IF后面指定一个条件表达式，如果条件满足，转向第N句，否则执行下一段。
格式：IF[条件表达式]GOTO n；☆条件表达式：一个条件表达式一定要有一个操作符，这个操作符插在两个表达式之间，并且要用方括号括起来，即[表达式操作符表达式]。
☆操作符见下表:操作符意义EQ=NE≠GT>GE≥LT<LE≤☆在条件表达式中，空值和零的使用结果不同，需特别注意,如下：#1=空（#0）#1=0#1EQ#0成立#1EQ#0不成立#1NE#0不成立#1NE#0成立#1GE#0成立#1GE#0成立#1GT#0不成立#1GT#0不成立☆有“#0”参与的运算需注意结果如下：#i=#0+#0#i=0#i=#0-#0#i=0#i=#0*#0#i=0#i=#0/#j#i=0(#j≠0)#i=#j+#0#i=#j#i=#j-#0#i=#j#i=#j*#0#i=0例：当#1=#0当#1=#0#2=0#2=0IF[#1EQ0]GOTO1IF[#1*1EQ0]GOTO1#2=1#2=1N1G00X100.N1G00X100.此时#2=1此时#2=0编制：毛松柏审核：批准：日期：18/10-06日期：日期：。
vb表格宏命令
竭诚为您提供优质文档/双击可除vb表格宏命令篇一：利用宏命令锁定excel公式利用宏命令锁定excel公式为了防止excel里面做好的公式误被他人修改，通常大家会通过设置“保护工作表”的方式来锁定，但锁定后别人点击就会弹出对话框，很麻烦。
本文介绍一个通过宏命令来锁定公式的方式，别人根本无法点击锁定后的公式单元格，这样就显得很高大上：）一、录制宏打开excel20xx，在视图里面找到宏图标（20xx版本在工具菜单里寻找），如果没有找到，请打开文件菜单，底部进“选项”，点最下“信任中心”，进入“信任中心设置”，点击“宏设置”，启用宏，然后回到excel就能找到宏图标了。
点击“录制宏”选择保存在个人宏工作簿，确定然后点击右下角的二、编辑Vb宏命令按alt+F11，进入Vb工程界面蓝色方块，停止录制选择模块1，双击进入编辑模式将代码栏中的所有内容全部删除然后把以下代码复制进去（分割线中间）------------分割线--------------------sub保护公式()activesheet.unprotect("12345678")解除对工作表的保护cells.select选中整个表格selection.locked=False解除锁定selection.specialcells(xlcelltypeFormulas,23).selec t选中包含公式的单元格selection.locked=true添加锁定selection.Formulahidden=true添加隐藏activesheet.protect("12345678")保护工作表，并设置密码activesheet.enableselection=xlunlockedcells让锁定单元格不能选中endsub---------------分割线-----------------然后，结果如下图，请核对点击文件菜单，选择“关闭并返回excel”三、执行宏点击“查看宏”点击“执行”，就可以执行了（提示：无内容的空文档执行时会出错，别担心，打开一个有公式的文档，就可以顺利执行了）四、建立快捷方式点击“自定义快速访问工具栏”从下来菜单中选择宏，这时可以看到保护公式的宏，点“添加”在最顶上就可以看到宏了，以后打开文档后直接点击该按钮，就会自动执行保护公式的宏了。
常用宏操作命令
当条件：用于限制表、窗体或报表中的记录的有效SQL WHERE子句（不含单词WHERE）或表达式（表达式：算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合，计算结果为单个值。表达式可执行计算、操作字符或测试数据。）。
此操作与使用“查找和替换”对话框中的“查找下一个”按钮的效果相同。
FindRecord
查找符合由FindRecord参数指定的条件（条件：所指定的限制查询或筛选的结果集中包含哪些记录的条件。）的第一个数据实例。
查找内容：指定要在记录中查找的数据。
匹配：指定数据在字段（字段：表中的一个元素，包含信息的特定项，如姓氏。“标题”字段可能包含“先生”或“小姐”。数据库（如Microsoft SQL Server）将字段称为列。）中的位置。可以指定搜索位于字段任何部分的数据（“字段任何部分”）、填充整个字段的数据（“整个字段”）或位于字段开头的数据（“字段开头”）。默认值为“整个字段”。
重复表达式：计算结果为“True”(–1)或“False”(0)的表达式（表达式：算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合，计算结果为单个值。表达式可执行计算、操作字符或测试数据。）。如果表达式的计算结果为“False”，宏将停止运行。宏每次运行时都会计算该表达式。
SetLocalVar
区分大小写：指定搜索是否区分大小写（区分大小写：能够区分大写和小写字母。区分大小写搜索只查找与大小写字母精确匹配的文本。）。
搜索：指定搜索方式：向上、向下、全部。默认值为“全部”。
格式化搜索：指定搜索是否包括带格式的数据。
OpenQuery
在数据表视图（数据表视图：以行列格式显示来自表、窗体、查询、视图或存储过程中的数据的视图。在数据表视图中，可以编辑字段、添加和删除数据，以及搜索数据。）、设计视图（设计视图：显示数据库对象（包括表、查询、窗体、报表和宏）的设计的视图。在设计视图中，可以创建新的数据库对象以及修改现有对象的设计。）或打印预览（打印预览：打印文档时显示文档的一种视图。）中打开选择查询（选择查询：就表中存储的数据提出问题，然后在不更改数据的情况下以数据表的形式返回一个结果集。）或交叉表查询（交叉表查询：这种查询用于对记录计算总计、平均值、计数或其他类型总计，然后按照两类信息对结果进行分组：一组信息分布在数据表的左侧，另一组分布在数据表的顶端。）。此操作运行操作查询（动作查询：用来复制或更改数据的查询。动作查询包括追加查询、删除查询、生成表查询和更新查询。在导航窗格中，它们是以其名称旁边紧跟感叹号(!)来标识的。）。
B宏程序语句
宏程序语句和NC 语句下面的程序段为宏程序语句：•包含算术或逻辑运算(=)的程序段。
•包含控制语句(例如，GOTO，DO，END)的程序段。
•包含宏程序调用指令(例如，用G65，G66，G67 或其它G 代码，M 代码调用宏程序)的程序段。
除了宏程序语句以外的任何程序段都为NC 语句。
说明•即使置于单程序段运行方式，机床也不停止。
但是，当参数N0.6000#5SBM 设定为1 时，在单程序段方式中，机床停止。
•与NC 语句的不同•在刀具半径补偿方式中宏程序语句段不做为不移动程序段处理(见Ⅱ-15.7 节)。
如果NPS（参数N0.3450#4）为1，满足以下条件时程序段中的NC 语句可认为与宏程序语句性质相同。
•与宏程序语句有相同性质的NC 语句•含有子程序调用指令（例如，用M98 或其它M 代码或用T 代码调用子程序）但没有除O，N 或L 地址之外的其它地址指令的NC 语句其性质与宏程序相同。
•不包含除O，N，P 或L 以外的指令地址的程序段其性质与宏程序语句相同。
15.5.2 IF 之后指定条件表达式。
条件转移(IF 语句)IF[<条件表达式>] GOTO n如果指定的条件表达式满足时，转移到标有顺序号n 的程序段。
如果指定的条件表达式不满足，执行下个程序段。
如果变量#1 的值大于10，转移到顺序号N2 的程序段。
IF[#1GT10]GOTO2；如果条件满足程序如果条件不满足N2 G00 G91 X10.0;IF[<条件表达式>]THEN如果条件表达式满足，执行预先决定的宏程序语句。
只执行一个宏程序语句。
如果#1 和#2 的值相同，0 赋给#3。
IF〔#1 EQ #2〕THEN #3=0；说明·条件表达式条件表达式必须包括算符。
算符插在两个变量中间或变量和常数中间，并且用括号(〔，〕)封闭。
表达式可以替代变量。
运算符由 2 个字母组成，用于两个值的比较，以决定它们是相等还是一个值小于或大于另一个值。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
类型
命令
功能描述
参数说明
操
作
记
录
FindRecord
查找符合指定条件的第一条记录或下一条记录
查找内容：输入要查找的数据
匹配：选择“字段的任何部分”、“整个字段”或“字段开头”
区分大小写：选择“是”或“否”
搜索：选择“全部”、“向上”或“向下”
格式化搜索：选择“是”或“否”
只搜索当前字段：选择“是”或“否”
活动窗口最大化
无参数
Minimize
活动窗口最小化
无参数
Restore
窗口还原
无参数
Quit
退出Access
选项：选择退出“是”、“否”提示
信
息
告
知
Beep
通过扬声器发出嘟嘟声
无参数
Ec示消息的消息框。
消息：消息框中的文本
发嘟嘟声：选择“是”或“否”
类型：选择消息框的类型
对象名称：选择要关闭的对象名称
保存：选择“选择”、“是”和“否”
ShowAllRecords
关闭活动表、查询的结果集合和窗口中所有已应用过的筛选，并且显示表或结果集合，或窗口的基本表或查询中的所有记录
无参数
操
作
数
据
库
对
象
OpenTable
在“数据表”视图、“设计”视图或“打印预览”中打开表。
表名称：打开表的名称
无参数
SetValue
为窗体、窗体数据表或报表上的字段、控件或属性设置值
项目：要设置的字段、控件或属性名
表达式：用于设置这个项目值的表达式
StopAllMacros
终止所有正在运行的宏
无参数
Close
关闭指定的Access对象。如果没有指定窗口或对象，则关闭活动窗口或当前对象
对象类型：选择要关闭的对象类型
报表名称：打开报表的名称
视图：选择打开“报表”或“设计”视图等
筛选名称：限制报表中记录的筛选
Where条件：输入一个SQL WHERE语句或表达式，以从报表的基本表或查询中选定记录。
窗口模式：打开报表的窗口模式
Requery
在激活的对象上实施指定控件的重新查询
控件名称：要更新的控件名称
Maximize
查找第一个：选择“是”或“否”
FindNext
使用FindNext操作可以查找下一个符合前一个FindRecord操作或“查找和替换”对话框（通过单击“编辑”菜单中的“查找”可以打开“查找和替换”对话框）中指定条件的记录。使用FindNext操作可以反复搜索记录。
无参数
GoToControl
将焦点移动到激活的数据表或窗体上指定的字段或控件上
控件名称：输入将要获得焦点的字段或控件名称
GoToRecord
在表、窗体或查询结果中的指定记录设置为当前记录
对象类型：选择对象类型
对象名称：当前记录的对象名称
记录：要作为当前记录的记录。可在“记录”框中单击“向前移动”、“向后移动”、“首记录”、“尾记录”、“定位”或“新记录”。默认值为“向后移动”。
RunMacro
运行一个宏
宏名：所要运行的宏的名称
重复次数：运行宏的最大次数
重复表达式：输入当值为假时停止宏的运行的表达式
RunSQL
执行指定的SQL语句以完成操作查询或数据定义查询
SQL语句：要运行的操作查询或数据定义输入SQL语句
使用事务处理：选择“是”或“否”
StopMacro
停止当前正在运行的宏
标题：消息框标题栏中显示的文本
SetWarnings
关闭或打开所有的系统消息
打开警告：选择“否”或“是”
视图：打开表的视图
数据模式：表的数据输入方式
OpenQuery
打开选择查询或交叉表查询，或者执行操作查询。查询可在“数据表”视图、“设计”视图或“打印预览”中打开。
查询名称：打开查询的名称
视图：打开查询的视图
数据模式：查询的数据输入方式
OpenForm
在“窗体”视图、“设计”视图、“打印预览”或“数据表”视图中打开窗体。
偏移量：整型数或整型表达式
执
行
命
令
CancelEvent
终止一个事件
无参数
RunApp
执行指定的外部应用程序
命令行：用来启动应用程序的路径和命令行
RunCode
运行Visaul Basic的函数过程
函数名称：要执行的“Function”过程名
RunCommand
运行一个Access菜单命令
命令：输入或选择要执行的命令
窗体名称：打开窗体的名称
视图：选择打开“窗体”或“设计”视图等
筛选名称：限制窗体中记录的筛选
Where条件：输入一个SQL WHERE语句或表达式，以从窗体的数据基本表或查询
数据模式：窗体的数据输入方式
窗体模式：打开窗体的窗口模式
OpenReport
在“设计”视图或“打印预览”中打开报表，或立即打印该报表。