Application.UserName '返回應(yīng)用程序的用戶名
Application.Caller '返回代表調(diào)用函數(shù)的單元格
Application.Caller.Parent.Parent '返回調(diào)用函數(shù)的工作簿名稱
Application.StatusBar=”請(qǐng)等待……” '將文本寫到狀態(tài)欄
Application.StatusBar=”請(qǐng)等待……” & Percent & “% Completed” '更新狀態(tài)欄文本，以變量Percent代表完成的百分比
Application.StatusBar=False '將狀態(tài)欄重新設(shè)置成正常狀態(tài)
Application.Goto Reference:=Range(“A1:D4”) '指定單元格區(qū)域A1至D4，等同于選擇“編輯——定位”，指定單元格區(qū)域?yàn)锳1至D4，不會(huì)出現(xiàn)“定位”對(duì)話框
Application.Dialogs(xlDialogFormulaGoto).Show '顯示“定位”對(duì)話框，但定位條件按鈕無(wú)效
Application.Dialogs(xlDialogSelectSpecial).Show '顯示“定位條件”對(duì)話框
Application.Dialogs(xlDialogFormatNumber).show '顯示“單元格格式”中的“數(shù)字”選項(xiàng)卡
Application.Dialogs(xlDialogAlignment).show '顯示“單元格格式”中的“對(duì)齊”選項(xiàng)卡
Application.Dialogs(xlDialogFontProperties).show '顯示“單元格格式”中的“字體”選項(xiàng)卡
Application.Dialogs(xlDialogBorder).show '顯示“單元格格式”中的“邊框”選項(xiàng)卡
Application.Dialogs(xlDialogPatterns).show '顯示“單元格格式”中的“圖案”選項(xiàng)卡
Application.Dialogs(xlDialogCellProtection).show '顯示“單元格格式”中的“保護(hù)”選項(xiàng)卡
注：無(wú)法一次顯示帶選項(xiàng)卡的“單元格格式”對(duì)話框，只能一次顯示一個(gè)選項(xiàng)卡。
Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True '顯示“引用位置”的默認(rèn)單元格區(qū)域并顯示引用使其出現(xiàn)在窗口左上角(注：內(nèi)置對(duì)話框參數(shù)的使用)
Application.CommandBars(1).Controls(2).Controls(16).Execute '執(zhí)行“定位”話框，相當(dāng)于選擇菜單“編輯——定位”命令
Application.Transpose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,”Sat”)) '返回一個(gè)垂直的數(shù)組
Application.Version '返回使用的Excel版本號(hào)
Application.Cursor = xlNorthwestArrow '設(shè)置光標(biāo)形狀為北西向箭頭
Application.Cursor = xlIBeam '設(shè)置光標(biāo)形狀為Ⅰ字形
Application.Cursor = xlWait '設(shè)置光標(biāo)形狀為沙漏(等待)形
Application.Cursor = xlDefault '恢復(fù)光標(biāo)的默認(rèn)設(shè)置
Application.WindowState '返回窗口當(dāng)前的狀態(tài)
Application.WindowState = xlMinimized '窗口最小化
Application.WindowState = xlMaximized '窗口最大化
Application.WindowState = xlNormal '窗口正常狀態(tài)
Application.UsableHeight '獲取當(dāng)前窗口的高度
Application.UsableWidth '獲取當(dāng)前窗口的寬度
Application.ActiveCell.Address '返回活動(dòng)單元格的地址(注:返回的是絕對(duì)地址)
Application.ActivePrinter '返回當(dāng)前打印機(jī)的名稱
Application.ActiveSheet.Name '返回活動(dòng)工作表的名稱
Application.ActiveWindow.Caption '返回活動(dòng)窗口的標(biāo)題
Application.ActiveWorkbook.Name '返回活動(dòng)工作簿的名稱
Application.Selection.Address '返回所選區(qū)域的地址
Application.ThisWorkbook.Name '返回當(dāng)前工作簿的名稱
Application.CalculationVersion '返回Excel計(jì)算引擎版本(右邊四位數(shù)字)及Excel版本(左邊兩位數(shù)字)
Application.MemoryFree '以字節(jié)為單位返回Excel允許使用的內(nèi)存數(shù)(不包括已經(jīng)使用的內(nèi)存)
Application.MemoryUsed '以字節(jié)為單位返回Excel當(dāng)前使用的內(nèi)存數(shù)
Application.MemoryTotal '以字節(jié)為單位返回Excel可以使用的內(nèi)存數(shù)(包括已使用的內(nèi)存,是MemoryFree和MemoryUsed的總和)
Application.OperatingSystem '返回所使用的操作系統(tǒng)的名稱和版本
Application.OrganizationName '返回Excel產(chǎn)品登記使用的組織機(jī)構(gòu)的名稱
Application.FindFormat '查找的格式種類
Application.ReplaceFormat '替換查找到的內(nèi)容的格式種類
ActiveSheet.Cells.Replace What:=” “, _
Replacement:=” “,SearchFormat:=True,ReplaceFormat:=True '替換查找到的格式
Application.Interactive=False '忽略鍵盤或鼠標(biāo)的輸入
Application.Evaluate("Rate") '若在工作表中定義了常量0.06的名稱為”Rate”,則本語(yǔ)句將返回值0.06
Application.OnUndo “Undo Option”,“Undo Procedure” '選擇UndoOption后，將執(zhí)行Undo Procedure過(guò)程
posted on 2010-09-07 16:34
Ying-er 閱讀(1255)
評(píng)論(0) 編輯 收藏 所屬分類:
VBA