精彩實用的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的總和)