Excel交流网
  • 设为首页|收藏本站|手机版
  • Excel-教程-技巧-培训视频

  • 网站首页
  • Excel教程
  • 关于我们
  • 新闻动态
  • Excel资源
  • 招贤纳士

Excel教程

Excel操作
Excel函数
Excel图表
Excel VBA
Excel 行业应用

联系方式

Excel中国 联系方式
电  话:400-855-3990
邮  编:528400
Email:support@zstm.com
网  址:www.excel-cn.com

当前位置:网站首页 > Excel教程 > Excel VBA
Excel VBA

EXCEL VBA常用代码解析7

作者:rongqian


Application对象 

(148) Application.UserName ‘返回应用程序的用户名 

(149) Application.Caller ‘返回代表调用函数的单元格 

(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 ‘显示“单元格格式”中的“数字”选项卡 

Application.Dialogs(xlDialogAlignment).show ‘显示“单元格格式”中的“对齐”选项卡 

Application.Dialogs(xlDialogFontProperties).show ‘显示“单元格格式”中的“字体”选项卡 

Application.Dialogs(xlDialogBorder).show ‘显示“单元格格式”中的“边框”选项卡 

Application.Dialogs(xlDialogPatterns).show ‘显示“单元格格式”中的“图案”选项卡 

Application.Dialogs(xlDialogCellProtection).show ‘显示“单元格格式”中的“保护”选项卡 注:无法一次显示带选项卡的“单元格格式”对话框,只能一次显示一个选项卡。 

(156) Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True ‘显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注:内置对话框参数的使用) 

(157) Application.CommandBars(1).Controls(2).Controls(16).Execute ‘执行“定位”话框,相当于选择菜单“编辑——定位”命令 

(158) Application.Transpose(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) Application.WindowState ‘返回窗口当前的状态    

Application.WindowState = xlMinimized ‘窗口最小化 

Application.WindowState = xlMaximized ‘窗口最大化 

Application.WindowState = xlNormal ‘窗口正常状态 

(162) Application.UsableHeight ‘获取当前窗口的高度 

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

(164) Application.ActivePrinter ‘返回当前打印机的名称 

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

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

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

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

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

(170) Application.CalculationVersion ‘返回Excel计算引擎版本(右边四位数字)及Excel版本(左边两位数字) 

(171) Application.MemoryFree ‘以字节为单位返回Excel允许使用的内存数(不包括已经使用的内存) 

(172) Application.MemoryUsed ‘以字节为单位返回Excel当前使用的内存数 

(173) Application.MemoryTotal ‘以字节为单位返回Excel可以使用的内存数(包括已使用的内存,是MemoryFree和MemoryUsed的总和) 

(174) Application.OperatingSystem ‘返回所使用的操作系统的名称和版本 

(175) Application.OrganizationName ‘返回Excel产品登记使用的组织机构的名称 

(176) Application.FindFormat ‘查找的格式种类 

   Application.ReplaceFormat ‘替换查找到的内容的格式种类 ActiveSheet.Cells.Replace What:=” “, _ 

Replacement:=” “,SearchFormat:=True,ReplaceFormat:=True ‘替换查找到的格式 

(177) Application.Interactive=False ‘忽略键盘或鼠标的输入 

(178) Application.Evaluate("Rate") ‘若在工作表中定义了常量0.06的名称为”Rate”,则本语句将返回值0.06 

(179) Application.OnUndo “Undo Option”,“Undo Procedure” ‘选择UndoOption后,将执行Undo Procedure过程


点击次数:  更新时间:2017-01-23 16:27:08  【打印此页】  【关闭】
上一条:EXCEL VBA常用代码解析8  下一条:EXCEL VBA常用代码解析6
本站动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图|网站管理

中山市天鸣科技发展有限公司 版权所有 1999-2020 粤ICP备10043721号

广东省中山市西苑广场富贵阁 528400

QQ:4008553990 电话:0760-88315075

Excel交流网主要交流Excel教程、Excel技巧、Excel培训、Excel函数公式、Excel图表以及Excel VBA,为网友提供一个最全的Excel交流网站

Excel教程|Excel技巧|Excel培训|Excel函数公式|Excel图表|VBA

Powered by MetInfo 5.3.12 ©2008-2022  www.metinfo.cn