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過程
posted on 2010-09-07 16:34
Ying-er 閱讀(1248)
評論(0) 編輯 收藏 所屬分類:
VBA