Board logo

標題: [分享] VBA語句集200句 (2-2) [打印本頁]
作者: la1975    時間: 2014-1-22 14:09     標題: VBA語句集200句 (2-2)

對象
Application對象
(148) Application.UserName 『返回應用程序的用戶名
(149) Application.Caller 『返回代表調用函數的單元格
(150) Application.Caller.Parent.Parent 『返回調用函數的工作簿名稱
(151) Application.StatusBar=」請等待……」 『將文本寫到狀態欄
  Application.StatusBar=」請等待……」 & Percent & 「% Completed」 『更新狀態欄文本，以變量Percent代表完成的百分比
  Application.StatusBar=False 『將狀態欄重新設置成正常狀態
(152) Application.Goto Reference:=Range(「A14」) 『指定單元格區域A1至D4，等同於選擇「編輯——定位」，指定單元格區域為A1至D4，不會出現「定位」對話框
(153) Application.Dialogs(xlDialogFormulaGoto).Show 『顯示「定位」對話框，但定位條件按鈕無效
(154) Application.Dialogs(xlDialogSelectSpecial).Show 『顯示「定位條件」對話框
(155) Application.Dialogs(xlDialogFormatNumber).show 『顯示「單元格格式」中的「數字」選項卡
  Application.Dialogs(xlDialogAlignment).show 『顯示「單元格格式」中的「對齊」選項卡
Application.Dialogs(xlDialogFontProperties).show 『顯示「單元格格式」中的「字體」選項卡
Application.Dialogs(xlDialogBorder).show 『顯示「單元格格式」中的「邊框」選項卡
Application.Dialogs(xlDialogPatterns).show 『顯示「單元格格式」中的「圖案」選項卡
Application.Dialogs(xlDialogCellProtection).show 『顯示「單元格格式」中的「保護」選項卡
註：無法一次顯示帶選項卡的「單元格格式」對話框，只能一次顯示一個選項卡。
(156) Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True 『顯示「引用位置」的默認單元格區域並顯示引用使其出現在窗口左上角(註：內置對話框參數的使用)
(157) Application.CommandBars(1).Controls(2).Controls(16).Execute 『執行「定位」話框，相當於選擇菜單「編輯——定位」命令
(158) Application.Transpose(Array(「Sun」,」Mon」,」Tur」,」Wed」,」Thu」,」Fri」,」Sat」)) 『返回一個垂直的數組
(159) Application.Version 『返回使用的Excel版本號
(160) Application.Cursor = xlNorthwestArrow 『設置光標形狀為北西向箭頭
Application.Cursor = xlIBeam 『設置光標形狀為Ⅰ字形
Application.Cursor = xlWait 『設置光標形狀為沙漏(等待)形
Application.Cursor = xlDefault 『恢復光標的默認設置
(161) Application.WindowState 『返回窗口當前的狀態
   Application.WindowState = xlMinimized 『窗口最小化
Application.WindowState = xlMaximized 『窗口最大化
Application.WindowState = xlNormal 『窗口正常狀態
(162) Application.UsableHeight 『獲取當前窗口的高度
Application.UsableWidth 『獲取當前窗口的寬度
(163) Application.ActiveCell.Address 『返回活動單元格的地址(注:返回的是絕對地址)
(164) Application.ActivePrinter 『返回當前打印機的名稱
(165) Application.ActiveSheet.Name 『返回活動工作表的名稱
(166) Application.ActiveWindow.Caption 『返回活動窗口的標題
(167) Application.ActiveWorkbook.Name 『返回活動工作簿的名稱
(168) Application.Selection.Address 『返回所選區域的地址
(169) Application.ThisWorkbook.Name 『返回當前工作簿的名稱
(170) Application.CalculationVersion 『返回Excel計算引擎版本(右邊四位數字)及Excel版本(左邊兩位數字)
(171) Application.MemoryFree 『以字節為單位返回Excel允許使用的內存數(不包括已經使用的內存)
(172) Application.MemoryUsed 『以字節為單位返回Excel當前使用的內存數
(173) Application.MemoryTotal 『以字節為單位返回Excel可以使用的內存數(包括已使用的內存,是MemoryFree和MemoryUsed的總和)
(174) Application.OperatingSystem 『返回所使用的操作系統的名稱和版本
(175) Application.OrganizationName 『返回Excel產品登記使用的組織機構的名稱
(176) Application.FindFormat 『查找的格式種類
   Application.ReplaceFormat 『替換查找到的內容的格式種類
ActiveSheet.Cells.Replace What:=」 「, _
Replacement:=」 「,SearchFormat:=True,ReplaceFormat:=True 『替換查找到的格式
(177) Application.Interactive=False 『忽略鍵盤或鼠標的輸入
(178) Application.Evaluate("Rate") 『若在工作表中定義了常量0.06的名稱為」Rate」,則本語句將返回值0.06
(179) Application.OnUndo 「Undo Option」,「Undo Procedure」 『選擇UndoOption後，將執行Undo Procedure過程
*******************************************************
Range對象
(180) Range(A1:A10).value="/Application.WorksheetFunction.Transpose(MyArray)" 『將一個含有10個元素的數組轉置成垂直方向的工作表單元格區域(A1至A10)
註：因為當把一維數組的內容傳遞給某個單元格區域時，該單元格區域中的單元格必須是水平方向的，即含有多列的一行。若必須使用垂直方向的單元格區域，則必須先將數組進行轉置，成為垂直的。
(181) Range(「A65536」).End(xlUp).Row+1 『返回A列最後一行的下一行
(182) rng.Range(「A1」) 『返回區域左上角的單元格
(183) cell.Parent.Parent.Worksheets 『訪問當前單元格所在的工作簿
(184) Selection.Font.Bold=Not Selection.Font.Bold 『切換所選單元格是否加粗
(185) ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _
Header:=xlYes 『兩個關鍵字排序，相鄰兩列，B列為主關鍵字，A列為次關鍵字，升序排列
(186) cell.Range(「A1」).NumberFormat 『顯示單元格或單元格區域中的第一個單元格的數字格式
(187) cell.Range(「A1」).HasFormula 『檢查單元格或單元格區域中的第一個單元格是否含有公式
或cell.HasFormula 『工作表中單元格是否含有公式
(188) Cell.EntireColumn 『單元格所在的整列
   Cell.EntireRow 『單元格所在的整行
(189) rng.Name.Name 『顯示rng區域的名稱
(190) rng.Address 『返回rng區域的地址
(191) cell.Range(「A1」).Formula 『返回包含在rng區域中左上角單元格中的公式。
註：若在一個由多個單元格組成的範圍內使用Formula屬性，會得到錯誤；若單元格中沒有公式，會得到一個字符串，在公式欄中顯示該單元格的值。
(192) Range(「D510」).Cells(1,1) 『返回單元格區域D510中左上角單元格
(193) ActiveCell.Row 『活動單元格所在的行數
   ActiveCell.Column 『活動單元格所在的列數
(194) Range("A1:B1").HorizontalAlignment = xlLeft 『當前工作表中的單元格區域數據設置為左對齊
(195) ActiveSheet.Range(「A2:A10」).NumberFormat=」#,##0」 『設置單元格區域A2至A10中數值格式
(196) rng.Replace 「 「,」0」  『用0替換單元格區域中的空單元格
*******************************************************
Collection與object
(197) Dim colMySheets As New Collection
Public colMySheets As New Collection  『聲明新的集合變量
(198) Set MyRange=Range(「A1:A5」) 『創建一個名為MyRange的對象變量
(199) <object>.Add Cell.Value CStr(Cell.Value) 『向集合中添加惟一的條目(即將重複的條目忽略)
*******************************************************
Windows API
(200) Declare Function GetWindowsDirectoryA Lib 「kernel32」 _
(ByVal lpBuffer As String,ByVal nSize As Long) As Long 『API函數聲明。返回安裝Windows所在的目錄名稱，調用該函數後，安裝Windows的目錄名稱將在第一個參數lpBuffer中，該目錄名稱的字符串長度包含在第二個參數nSize中
作者: la1975    時間: 2014-1-22 14:19

本帖最後由 la1975 於 2014-1-22 14:22 編輯

回復 1# la1975


(152) Application.Goto Reference:=Range(「A1:D4」) 『指定單元格區域A1至D4，等同於選擇「編輯——定位」，指定單元格區域為A1至D4，不會出現「定位」對話框


(192) Range(「D5:D10」).Cells(1,1) 『返回單元格區域D5:D10中左上角單元格



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)