轉 VB操作Excel文件屬性和方法(2)

(151) Application.StatusBar=”請等待……” ‘將文本寫到狀態欄
Application.StatusBar=”請等待……” & Percent & “% Completed” ‘更新狀態欄文本，以變量Percent代表完成的百分比
Application.StatusBar=False ‘將狀態欄重新設置成正常狀態
(152) Application.Goto Reference:=Range(“A1:D4”) ‘指定單元格區域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(“D5:D10”).Cells(1,1) ‘返回單元格區域D5:D10中左上角單元格
(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中


(201) Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Add ‘創建Excel工作簿

(202) Application.ActivateMicrosoftApp xlMicrosoftWord '開啟Word應用程序

(203) Application.TemplatesPath ‘獲取工作簿模板的位置

(204) Application.Calculation = xlCalculationManual ‘設置工作簿手動計算

Application.Calculation = xlCalculationAutomatic ‘工作簿自動計算

(205) Worksheets(1).EnableCalculation = False ‘不對第一張工作表自動進行重算

(206) Application.CalculateFull '重新計算所有打開的工作簿中的數據

(207) Application.RecentFiles.Maximum = 5 '將最近使用的文檔列表數設為5

(208) Application.RecentFiles(4).Open '打開最近打開的文檔中的第4個文檔

(209) Application.OnTime DateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo” ‘在2006年6月6日的16:16:16開始運行BaoPo過程

(210) Application.Speech.Speak ("Hello" & Application.UserName) ‘播放聲音，並使用用戶的姓名問候用戶

(211) MsgBox Application.PathSeparator '獲取"\"號

(212) MsgBox Application.International(xlCountrySetting) '返回應用程序當前所在國家的設置信息

(213) Application.AutoCorrect.AddReplacement "葛洲壩", "三峽" '自動將在工作表中進行輸入的"葛洲壩"更正為"三峽"

(214) Beep '讓計算機發出聲音

(215) Err.Number ‘返回錯誤代碼

(216) MsgBox IMEStatus '獲取輸入法狀態

(217) Date = #6/6/2006#

Time = #6:16:16 AM# '將系統時間更改為2006年6月6日上午6時16分16秒

(218) Application.RollZoom = Not Application.RollZoom '切換是否能利用鼠標中間的滑輪放大/縮小工作表

(219) Application.ShowWindowsInTaskba = True ‘顯示任務欄中的窗口,即各工作簿占用各自的窗口

(220) Application.DisplayScrollBars = True ‘顯示窗口上的滾動條

(221) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar '切換是否顯示編輯欄

(222) Application.Dialogs(xlDialogPrint).Show ‘顯示打印內容對話框

(223) Application.MoveAfterReturnDirection = xlToRight '設置按Enter鍵后單元格的移動方向向右

(224) Application.FindFile '顯示打開對話框

(225) ThisWorkbook.FollowHyperlink http://fanjy.blog.excelhome.net ‘打開超鏈接文檔

(226) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly '將當前工作簿設置為只讀

(227) ActiveWorkbook.AddToFavorites '將當前工作簿添加到收藏夾文件夾中

(228) ActiveSheet.CheckSpelling '在當前工作表中執行"拼寫檢查"

(229) ActiveSheet.Protect userinterfaceonly:=True ‘保護當前工作表

(230) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName ‘在當前工作表的左側頁眉處打印出工作簿的完整路徑和文件名

(231) Worksheets("Sheet1").Range("A1:G37").Locked = False

Worksheets("Sheet1").Protect

'解除對工作表Sheet1中A1:G37區域單元格的鎖定

'以便當該工作表受保護時也可對這些單元格進行修改

(232) Worksheets("Sheet1").PrintPreview '顯示工作表sheet1的打印預覽窗口

(233) ActiveSheet.PrintPreview Enablechanges:=False ‘禁用顯示在Excel的“打印預覽”窗口中的“設置”和“頁邊距”按鈕

(234) ActiveSheet.PageSetup.PrintGridlines = True '在打印預覽中顯示網格線

ActiveSheet.PageSetup.PrintHeadings = True '在打印預覽中顯示行列編號

(235) ActiveSheet.ShowDataForm '開啟數據記錄單

(236) Worksheets("Sheet1").Columns("A").Replace _

What:="SIN", Replacement:="COS", _

SearchOrder:=xlByColumns, MatchCase:=True '將工作表sheet1中A列的SIN替換為COS

(237) Rows(2).Delete '刪除當前工作表中的第2行

Columns(2).Delete '刪除當前工作表中的第2列

(238) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell '在當前單元格左側插入一條垂直分頁符

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell '在當前單元格上方插入一條垂直分頁符

(239) ActiveWindow.ScrollRow = 14 '將當前工作表窗口滾動到第14行

ActiveWindow.ScrollColumn = 13 '將當前工作表窗口滾動到第13列

(240) ActiveWindow.Close '關閉當前窗口

(241) ActiveWindow.Panes.Count '獲取當前窗口中的窗格數

(242) Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True '將A2至D2的單元格名稱設定為A1到D1單元格的內容

(243) Application.AddCustomList listarray:=Range("A1:A8") '自定義當前工作表中單元格A1至A8中的內容為自動填充序列

(244) Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen, xlBitmap '將單元格A1至B2的內容復制成屏幕快照

(245) Selection.Hyperlinks.Delete ‘刪除所選區域的所有鏈接

Columns(1).Hyperlinks.Delete ‘刪除第1列中所有的鏈接

Rows(1).Hyperlinks.Delete   ‘刪除第1行中所有的鏈接

Range("A1:Z30").Hyperlinks.Delete ‘刪除指定范圍所有的鏈接

(246) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _

Address:="C:\Windows\System32\Calc.exe", ScreenTip:="按下我，就會開啟Windows計算器", TextToDisplay:="Windows計算器" '在活動單元格中設置開啟Windows計算器鏈接

(247) ActiveCell.Value = Shell("C:\Windows\System32\Calc.exe", vbNormalFocus) '開啟Windows計算器

(248) ActiveSheet.Rows(1).AutoFilter ‘打開自動篩選。若再運行一次，則關閉自動篩選

(249) Selection.Autofilter ‘開啟/關閉所選區域的自動篩選

(250) ActiveSheet.ShowAllData ‘關閉自動篩選

(251) ActiveSheet.AutoFilterMode ‘檢查自動篩選是否開啟，若開啟則該語句返回True

(252) ActiveSheet.Columns("A").ColumnDifferences(Comparison:=ActiveSheet. _

Range("A2")).Delete '在A列中找出與單元格A2內容不同的單元格並刪除

(253) ActiveSheet.Range("A6").ClearNotes '刪除單元格A6中的批注，包括聲音批注和文字批注

(254) ActiveSheet.Range("B8").ClearComments '刪除單元格B8中的批注文字

(255) ActiveSheet.Range("A1:D10").ClearFormats '清除單元格區域A1至D10中的格式

(256) ActiveSheet.Range("B2:D2").BorderAround ColorIndex:=5, _

Weight:=xlMedium, LineStyle:=xlDouble '將單元格B2至D2區域設置為藍色雙線

(257) Range("A1:B2").Item(2, 3)或Range("A1:B2")(2, 3) ‘引用單元格C2的數據

Range("A1:B2")(3)   ‘引用單元格A2

(258) ActiveSheet.Cells(1, 1).Font.Bold = TRUE ‘設置字體加粗

ActiveSheet.Cells(1, 1).Font.Size = 24 ‘設置字體大小為24磅

ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 ‘設置字體顏色為紅色

ActiveSheet.Cells(1, 1).Font.Italic = TRUE ‘設置字體為斜體

ActiveSheet.Cells(1, 1).Font.Name = "Times New Roman" ‘設置字體類型

ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 ‘將單元格的背景色設置為紅色

(259) ActiveSheet.Range("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3 '將當前工作表中單元格區域C2至E6格式自動調整為彩色3格式

(260) Cells.SpecialCells(xlCellTypeLastCell) ‘選中當前工作表中的最后一個單元格

(261) ActiveCell.CurrentArray.Select '選定包含活動單元格的整個數組單元格區域.假定該單元格在數據單元格區域中

(262) ActiveCell.NumberFormatLocal = "0.000; [紅色] 0.000" '將當前單元格數字格式設置為帶3位小數,若為負數則顯示為紅色

(263) IsEmpty (ActiveCell.Value) '判斷活動單元格中是否有值

(264) ActiveCell.Value = LTrim(ActiveCell.Value) '刪除字符串前面的空白字符

(265) Len(ActiveCell.Value) '獲取活動單元格中字符串的個數

(266) ActiveCell.Value = UCase(ActiveCell.Value) '將當前單元格中的字符轉換成大寫

(267) ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) '將活動單元格中的字符串轉換成小寫

(268) ActiveSheet.Range("C1").AddComment '在當前工作表的單元格C1中添加批注

(269) Weekday(Date) '獲取今天的星期,以數值表示,1-7分別對應星期日至星期六

(270) ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1)) '將單元格A1的數值填充到單元格A1至A10區域中

(271) DatePart("y", Date) '獲取今天在全年中的天數

(272) ActiveCell.Value = DateAdd("yyyy", 2, Date) '獲取兩年后的今天的日期

(273) MsgBox WeekdayName(Weekday(Date)) '獲取今天的星期數

(274) ActiveCell.Value = Year(Date) '在當前單元格中輸入今年的年份數

ActiveCell.Value = Month(Date) '在當前單元格中輸入今天所在的月份數

ActiveCell.Value = Day(Date) '在當前單元格中輸入今天的日期數

(275) ActiveCell.Value = MonthName(1) '在當前單元格中顯示月份的名稱,本句為顯示"一月"

(276) ActiveCell.Value = Hour(Time) '在當前單元格中顯示現在時間的小時數

ActiveCell.Value = Minute(Time) '在當前單元格中顯示現在時間的分鍾數

ActiveCell.Value = Second(Time) '在當前單元格中顯示現在時間的秒數

(277) ActiveSheet.Shapes(1).Delete '刪除當前工作表中的第一個形狀

(278) ActiveSheet.Shapes.Count '獲取當前工作表中形狀的數量

(279) ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText '改變當前工作表中第一個藝術字的方向

(280) ActiveSheet.Shapes(1).TextEffect.FontItalic = True '將當前工作表中第一個藝術字的字體設置為斜體

(281) ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "三峽",   _

"Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select '在當前工作表中創建一個名為"三峽"的藝術字並對其進行格式設置和選中

(282) ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _

EndY:=100).Select '在當前工作表中以(10,10)為起點(250,100)為終點畫一條直線並選中

(283) ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _

Left:=70, Top:=40, Width:=130, Height:=72).Select '在當前工作表中畫一個左上角在(70,40),寬為130高為72的三角形並選中

(284) ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _

Left:=70, Top:=40, Width:=130, Height:=72).Select '在當前工作表中畫一個以點(70,40)為起點,寬130高72的矩形並選中

(285) ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _

Left:=70, Top:=40, Width:=130, Height:=72).Select '在當前工作表中畫一個左上角在(70,40),寬為130高為72的橢圓

(286) ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) '將當前工作表中第一個形狀的線條顏色變為藍色

(287) ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) '將當前工作表中第2個形狀的前景色設置為紅色

(288) ActiveSheet.Shapes(1).Rotation = 20 '將當前工作表中的第1個形狀旋轉20度

(289) Selection.ShapeRange.Flip msoFlipHorizontal '將當前選中的形狀水平翻轉

Selection.ShapeRange.Flip msoFlipVertical '將當前選中的形狀垂直翻轉

(290) Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 '將所選取的形狀設置為第1種立體樣式

(291) ActiveSheet.Shapes(1).ThreeD.Depth = 20 '將當前工作表中第一個立體形狀的深度設置為20

(292) ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) '將當前工作表中第1個立體形狀的進深部分的顏色設為藍色

(293) ActiveSheet.Shapes(1).ThreeD.RotationX = 60 '將當前工作表中的第1個立體形狀沿X軸旋轉60度

ActiveSheet.Shapes(1).ThreeD.RotationY = 60 '將當前工作表中的第1個立體形狀沿Y軸旋轉60度

(294) Selection.ShapeRange.ThreeD.Visible = msoFalse '將所選擇的立體形狀轉換為平面形狀

(295) Selection.ShapeRange.ConnectorFormat.BeginDisconnect '在形狀中讓指定的連接符起點脫離原來所連接的形狀

(296) ActiveSheet.Shapes(1).PickUp '復制當前工作表中形狀1的格式

(297) ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" '在工作簿中新建一個文本框並輸入內容

(298) ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" '在當前工作表中建立一個水平文本框並輸入內容

(299) ActiveSheet.Shapes.AddPicture "d:\sx.jpg", True, True, 60, 20, 400, 300 '在當前工作表中插入一張d盤中名為sx的圖片

(300) ActiveChart.ApplyCustomType xl3DArea '將當前圖表類型改為三維面積圖