精彩实用的VBA代码语句181（210）

大家好，今日带给大家的是VBA语句欣赏，共30则。这些语句在平时写代码，做程序时会经常的利用到，大家可以利用，也可以对照下面的语句，看看自己哪里还有不足，加深对VBA的理解。

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

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

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

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

185 Application.Dialogs(xlDialogCellProtection).show ‘显示“单元格格式”中的“保护”选项卡

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

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

188 Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) 返回一个垂直的数组

189 Application.Version ‘返回使用的Excel版本号

190 Application.Cursor = xlNorthwestArrow 设置光标形状为北西向箭头

191 Application.Cursor = xlIBeam 设置光标形状为Ⅰ字形

192 Application.Cursor = xlWait 设置光标形状为沙漏(等待)形

193 Application.Cursor = xlDefault 恢复光标的默认设置

194 Application.WindowState 返回窗口当前的状态

195 Application.WindowState = xlMinimized 窗口最小化

196 Application.WindowState = xlMaximized 窗口最大化

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

198 Application.UsableHeight 获取当前窗口的高度

199 Application.UsableWidth 获取当前窗口的宽度

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

201 Application.ActivePrinter 返回当前打印机的名称

202 Application.ActiveSheet.Name 返回活动工作表的名称

203 Application.ActiveWindow.Caption 返回活动窗口的标题

204 Application.ActiveWorkbook.Name 返回活动工作簿的名称

205 Application.Selection.Address 返回所选区域的地址

206 Application.ThisWorkbook.Name 返回当前工作簿的名称

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

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

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

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