Excel VBA语句集(二).docVIP

Excel VBA语句集(二) Excel VBA语句集（二）2009年04月21日 星期二 00:57摘自Meteor’s Blog (150) Application.Caller.Parent.Parent ‘返回调用函数的工作簿名称 (151) Application.StatusBar=”请等待……” ‘将文本写到状态栏 Application.StatusBar=”请等待……” Percent “% Completed” ‘更新状态栏文本，以变量Percent代表完成的百分比 Application.StatusBar=False ‘将状态栏重新设置成正常状态 (152) Application.Goto Reference:=Range(“A1:D4”) ‘指定单元格区域A1至D4，等同于选择“编辑——定位”，指定单元格区域为A1至D4，不会出现“定位”对话框 (153) Application.Dialogs(xlDialogFormulaGoto).Show ‘显示“定位”对话框，但定位条件按钮无效 (154) Application.Dialogs(xlDialogSelectSpecial).Show ‘显示“定位条件”对话框 (155) Application.Dialogs(xlDialogFormatNumber).show ‘显示“单元