EXCEL VBA语句集(二)

《EXCEL VBA语句集(二)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ExcelVBA语句集ExcelVBA语句集（二）(150)Application.Caller.Parent.Parent‘返回调用函数的工作簿名称 (151)Application.StatusBar=”请等待……”‘将文本写到状态栏Application.StatusBar=”请等待……”&Percent&“%Completed”‘更新状态栏文本，以变量Percent代表完成的百分比Application.StatusBar=False‘将状态栏重新设置成正常状态 (152)Application.GotoReference:=Range(“A1:D4

2、”)‘指定单元格区域A1至D4，等同于选择“编辑——定位”，指定单元格区域为A1至D4，不会出现“定位”对话框 (153)Application.Dialogs(xlDialogFormulaGoto).Show‘显示“定位”对话框，但定位条件按钮无效(154)Application.Dialogs(xlDialogSelectSpecial).Show‘显示“定位条件”对话框 (155)Application.Dialogs(xlDialogFormatNumber).show‘显示“单元格格式”中的“数字”选项卡Application.Dialogs(x

3、lDialogAlignment).show‘显示“单元格格式”中的“对齐”选项卡Application.Dialogs(xlDialogFontProperties).show‘显示“单元格格式”中的“字体”选项卡Application.Dialogs(xlDialogBorder).show‘显示“单元格格式”中的“边框”选项卡Application.Dialogs(xlDialogPatterns).show‘显示“单元格格式”中的“图案”选项卡Application.Dialogs(xlDialogCellProtection).show‘显示“单元

4、格格式”中的“保护”选项卡注：无法一次显示带选项卡的“单元格格式”对话框，只能一次显示一个选项卡。 (156)Application.Dialogs(xlDialogFormulaGoto).showRange("b2"),True‘显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的使用) (157)Application.CommandBars(1).Controls(2).Controls(16).Execute‘执行“定位”话框，相当于选择菜单“编辑——定位”命令 (158)Application.Transpose(

5、Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”))‘返回一个垂直的数组 (159)Application.Version‘返回使用的Excel版本号 (160)Application.Cursor=xlNorthwestArrow‘设置光标形状为北西向箭头Application.Cursor=xlIBeam‘设置光标形状为Ⅰ字形Application.Cursor=xlWait‘设置光标形状为沙漏(等待)形Application.Cursor=xlDefault‘恢复光标的默认设置 (161)Applicati

6、on.WindowState‘返回窗口当前的状态Application.WindowState=xlMinimized‘窗口最小化Application.WindowState=xlMaximized‘窗口最大化Application.WindowState=xlNormal‘窗口正常状态 (162)Application.UsableHeight‘获取当前窗口的高度Application.UsableWidth‘获取当前窗口的宽度(163)Application.ActiveCell.Address‘返回活动单元格的地址(注:返回的是绝对地址) (164)

7、Application.ActivePrinter‘返回当前打印机的名称 (165)Application.ActiveSheet.Name‘返回活动工作表的名称 (166)Application.ActiveWindow.Caption‘返回活动窗口的标题 (167)Application.ActiveWorkbook.Name‘返回活动工作簿的名称 (168)Application.Selection.Address‘返回所选区域的地址 (169)Application.ThisWorkbook.Name‘返回当前工作簿的名称 (170)Applicat

8、ion.CalculationVersion‘返回E