VBA语句集400句.doc

文档介绍：VBA 语句集 400 句 VBA 编程之 Application 对象 ' 返回应用程序的用户名 ' 返回代表调用函数的单元格 ' 返回调用函数的工作簿名称 = ”请等待……”' 将文本写到状态栏 = ”请等待……”& Percent &“% Completed ”' 更新状态栏文本,以变量 Percent 代表完成的百分比 =False ' 将状态栏重新设置成正常状态 Reference:=Range( “ A1:D4 ”)' 指定单元格区域 A1至 D4, 等同于选择“编辑——定位”, 指定单元格区域为 A1 至 D4 ,不会出现“定位”对话框 (xlDialogFormulaGoto).Show ' 显示“定位”对话框,但定位条件按钮无效 (xlDialogSelectSpecial).Show ' 显示“定位条件”对话框 (xlDialogFormatNumber).show ' 显示“单元格格式”中的“数字”选项卡 (xlDialogAlignment).show ' 显示“单元格格式”中的“对齐”选项卡 (xlDialogFontProperties).show ' 显示“单元格格式”中的“字体”选项卡 (xlDialogBorder).show ' 显示“单元格格式”中的“边框”选项卡 (xlDialogPatterns).show ' 显示“单元格格式”中的“图案”选项卡 (xlDialogCellProtection).show ' 显示“单元格格式”中的“保护”选项卡注: 无法一次显示带选项卡的“单元格格式”对话框, 只能一次显示一个选项卡。 (xlDialogFormulaGoto).show Range("b2"), True ' 显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角( 注:内置对话框参数的使用) mandBars(1).Controls(2).Controls(16).Execute ' 执行“定位”话框,相当于选择菜单“编辑——定位”命令 (Array( “ Sun ”,” Mon ”,” Tur ”,” Wed ”, ” Thu ”,” Fri ”,” Sat ”))' 返回一个垂直的数组 ' 返回使用的 Excel 版本号 = xlNorthwestArrow ' 设置光标形状为北西向箭头 = xlI