六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

VBA编程之Application对象(Excel版)

Admin | 2010-6-27 11:34:05 | ReadNums | 7481 | 标签 六合开奖结果现场直播 | 打印本页
     

  以下内容是VBA编程之Application对象属性代码,适用于Excel。希望对您有所帮助。

  Application.UserName ‘返回应用程序的用户名
  Application.Caller ‘返回代表调用函数的单元格
  Application.Caller.Parent.Parent ‘返回调用函数的工作簿名称
  Application.StatusBar=”请等待……” ‘将文本写到状态栏
  Application.StatusBar=”请等待……” & Percent & “% Completed” ‘更新状态栏文本,以变量Percent代表完成的百分比
  Application.StatusBar=False ‘将状态栏重新设置成正常状态
  Application.Goto Reference:=Range(“A1:D4”) ‘指定单元格区域A1至D4,等同于选择“编辑——定位”,指定单元格区域为A1至D4,不会出现“定位”对话框
  Application.Dialogs(xlDialogFormulaGoto).Show ‘显示“定位”对话框,但定位条件按钮无效
  Application.Dialogs(xlDialogSelectSpecial).Show ‘显示“定位条件”对话框
   Application.Dialogs(xlDialogFormatNumber).show ‘显示“单元格格式”中的“数字”选项卡
  Application.Dialogs(xlDialogAlignment).show ‘显示“单元格格式”中的“对齐”选项卡
  Application.Dialogs(xlDialogFontProperties).show ‘显示“单元格格式”中的“字体”选项卡
  Application.Dialogs(xlDialogBorder).show ‘显示“单元格格式”中的“边框”选项卡
  Application.Dialogs(xlDialogPatterns).show ‘显示“单元格格式”中的“图案”选项卡
  Application.Dialogs(xlDialogCellProtection).show ‘显示“单元格格式”中的“保护”选项卡
  注:无法一次显示带选项卡的“单元格格式”对话框,只能一次显示一个选项卡。
  Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True ‘显示“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注:内置对话框参数的使用)
  Application.CommandBars(1).Controls(2).Controls(16).Execute ‘执行“定位”话框,相当于选择菜单“编辑——定位”命令
  Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) ‘返回一个垂直的数组
  Application.Version ‘返回使用的Excel版本号
  Application.Cursor = xlNorthwestArrow ‘设置光标形状为北西向箭头
  Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形
  Application.Cursor = xlWait ‘设置光标形状为沙漏(等待)形
  Application.Cursor = xlDefault ‘恢复光标的默认设置
  Application.WindowState ‘返回窗口当前的状态
  Application.WindowState = xlMinimized ‘窗口最小化
  Application.WindowState = xlMaximized ‘窗口最大化
  Application.WindowState = xlNormal ‘窗口正常状态
  Application.UsableHeight ‘获取当前窗口的高度
  Application.UsableWidth ‘获取当前窗口的宽度
  Application.ActiveCell.Address ‘返回活动单元格的地址(注:返回的是绝对地址)
  Application.ActivePrinter ‘返回当前打印机的名称
  Application.ActiveSheet.Name ‘返回活动工作表的名称
  Application.ActiveWindow.Caption ‘返回活动窗口的标题
  Application.ActiveWorkbook.Name ‘返回活动工作簿的名称
  Application.Selection.Address ‘返回所选区域的地址
  Application.ThisWorkbook.Name ‘返回当前工作簿的名称
  Application.CalculationVersion ‘返回Excel计算引擎版本(右边四位数字)及Excel版本(左边两位数字)
  Application.MemoryFree ‘以字节为单位返回Excel允许使用的内存数(不包括已经使用的内存)
  Application.MemoryUsed ‘以字节为单位返回Excel当前使用的内存数
  Application.MemoryTotal ‘以字节为单位返回Excel可以使用的内存数(包括已使用的内存,是MemoryFree和MemoryUsed的总和)
  Application.OperatingSystem ‘返回所使用的操作系统的名称和版本
  Application.OrganizationName ‘返回Excel产品登记使用的组织机构的名称
  Application.FindFormat ‘查找的格式种类
  Application.ReplaceFormat ‘替换查找到的内容的格式种类
  ActiveSheet.Cells.Replace What:=” “, _
  Replacement:=” “,SearchFormat:=True,ReplaceFormat:=True ‘替换查找到的格式
  Application.Interactive=False ‘忽略键盘或鼠标的输入
  Application.Evaluate("Rate") ‘若在工作表中定义了常量0.06的名称为”Rate”,则本语句将返回值0.06
  Application.OnUndo “Undo Option”,“Undo Procedure” ‘选择UndoOption后,将执行Undo Procedure过程


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日