返回列表 上一主題 發帖

[分享] 學習Excel VBA的一些基本概念

[分享] 學習Excel VBA的一些基本概念

本帖最後由 Hsieh 於 2010-10-30 09:22 編輯

為了學習Excel中的巨集,我們需要先瞭解以下一些基本概念。
  1、工作簿:Workbooks、Workbook、ActiveWorkbook、ThisWorkbook
  Workbooks集合包含Excel中所有當前打開的Excel工作簿,亦即所有打開的Excel文件;Workbook對應Workbooks中的成員,即其中的Excel檔;ActiveWorkbook代表當前處於活動狀態的工作簿,即當前顯示的Excel檔;ThisWorkbook代表其中有Visual Basic代碼正在運行的工作簿。
  在具體使用中可用Workbooks(index)來引用Workbook物件,其中index為工作簿名稱或編號;如Workbooks(1)、Workbooks("年度報表.xls")。而編號按照創建或打開工作簿的順序來確定,第一個打開的工作簿編號為1,第二個打開的工作簿為2……。
  2、工作表:Worksheets、Worksheet、ActiveSheet
  Worksheets集合包含工作簿中所有的工作表,即一個Excel檔中的所有資料表頁;而Worksheet則代表其中的一個工作表;ActiveSheet代表當前處於的活動狀態工作表,即當前顯示的一個工作表。
  可用Worksheets(index)來引用Worksheet物件,其中index為工作表名稱或索引號;如Worksheets(1)、Worksheets("第一季度資料")。工作表索引號表明該工作表在工作表標籤中的位置:第一個(最左邊的)工作表的索引號為1,最後一個(最右邊的)為Worksheets.Count。需要注意的是:在使用過程中Excel會自動重排工作表索引號,保持按照其在工作表標籤中的從左至右排列,工作表的索引號遞增。因此,由於可能進行的工作表添加或刪除,工作表索引號不一定始終保持不變。  3、圖表:Chart 、Charts、ChartObject、ChartObjects、ActiveChart
  Chart代表工作簿中的圖表。該圖表既可為嵌入式圖表(包含在ChartObject中),也可為一個分開的(單獨的)圖表工作表。
  Charts代表指定工作簿或活動工作簿中所有圖表工作表的集合,但不包括嵌入式在工作表或對話方塊編輯表中的圖表。使用Charts(index) 可引用單個Chart圖表,其中index是該圖表工作表的索引號或名稱;如Charts(1)、Charts("銷售圖表")。圖表工作表的索引號表示圖表工作表在工作簿的工作表標籤欄上的位置。Charts(1)是工作簿中第一個(最左邊的)圖表工作表;Charts(Charts.Count)為最後一個(最右邊的)圖表工作表。
  ChartObject代表工作表中的嵌入式圖表,其作用是作為Chart對象的容器。利用ChartObject可以控制工作表上嵌入式圖表的外觀和尺寸。
  ChartObjects代表指定的圖表工作表、對話方塊編輯表或工作表上所有嵌入式圖表的集合。可由ChartObjects(index)引用單個ChartObject,其中index為嵌入式圖表的編號或名稱。如Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分別對應"Sheet1"工作表中的第一個嵌入式圖表、以及名為"Chart1"的嵌入式圖表。
  ActiveChart可以引用活動狀態下的圖表,不論該圖表是圖表工作表,或嵌入式圖表。而對於圖表工作表為活動工作表時,還可以通過ActiveSheet屬性引用之。
  4、單格:Cells、ActiveCell、Range、Areas
  Cells(row,column)代表單個單格,其中row為行號,column為列號。如可以用Cells(1,1)、Cells(10,4)來引用"A1"、"D10" 單格。ActiveCell代表活動工作表的活動單格,或指定工作表的活動單格。
  Range代表工作表中的某一單格、某一行、某一列、某一選定區域(該選定區域可包含一個或若干連續單格區域)或者某一三維區域。
  可用Range(arg)來引用單格或單格區域,其中arg可為單格號、單格號範圍、單格區域名稱。如Range("A5")、Range("A1:H8")、Range("Criteria")。雖然可用Range("A1")返回單格A1,但用Cells更方便,因為此時可用變數指定行和列。
 可將Range與Cells結合起來使用,如Range(Cells(1,1),Cells(10,10))代表單格區域"A1:J10";而expression.Cells(row,column)返回單格區域中的一部分,其中expression是返回Range的運算式,row和column為相對於該區域的左上角偏移量。如由Range("C5:C10").Cells(1,1)引用單格C5。
  Areas為選定區域內的連續單格塊的集合,其成員是Range對象。而其中的每個Range物件代表選定區域內與其他部分相分離的一個連續單格塊。某些操作不能在選定區域內的多個單格塊上同時執行;必須在選定區域內的單格塊數Areas.Count上迴圈,對每個單獨的單格塊分別執行該操作。此時,可用Areas(index)從集合中返回單個Range物件,其中index為單格塊編號;如Areas(1)。
  5、 行與列:Rows、Columns、Row、Column
  Rows、Columns分別代表活動工作表、單格區域範圍Range、指定工作表中的所有行數、列數。對於一個多選單格區域範圍Range的Rows、Columns,只返回該範圍中第一個區域的行數、列數。例如,如果Range物件有兩個區域(areas)A1:B2和C3:D4,Rows.Count返回2而不是4。
  可通過Rows(行號)、Columns(列號)來引用相應的行與列;如Rows(3)、Columns(4)分別對應第三行、D列。
利用Rows、Column可以獲得區域中第一塊的第一行行號、第一列列號,所得值均以十進位數字表示。

回復 2# James
  1. Sub bb()
  2. Workbooks.Open "E:\aa.xls" '開啟活頁簿
  3. Application.Run "aa.xls!aaa" '執行巨集
  4. End Sub
  5. Sub kk()
  6. With ActiveWorkbook.VBProject.VBComponents.Import("E:\a.bas") '匯入
  7. Application.Run "aaa" '執行
  8. Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(.Name) '刪除
  9. End With
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(.Name) '刪除

這是同一行的程式碼
學海無涯_不恥下問

TOP

回復 15# FAlonso
試試看
  1. Sub c()
  2. With ActiveWorkbook.VBProject.VBComponents.Import("D:\Tony\Excel VBA\a.bas")
  3. Application.Run "a"
  4. Application.VBE.ActiveVBProject.VBComponents.Remove _
  5. Application.VBE.ActiveVBProject.VBComponents(.Name)
  6. End With
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題