Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 262
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-25

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-4-30 23:27 | 只看該作者

[分享] 學習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可以獲得區域中第一塊的第一行行號、第一列列號，所得值均以十進位數字表示。

樓主熱帖

James

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: vista
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-9-15
最後登錄: 2010-10-4

2^#

發表於 2010-9-15 16:10 | 只看該作者

回復 1# Hsieh

今天剛進入此論壇, 已登錄為會員o 在一些帖中常看到您精彩及詳細的回覆, 尤其此篇將一些 excel vba 的基本觀念作一整理及說明, 相信很多人會受益良多o
在此有一個私人的問題想請教, 不知您是否能給予幫忙?
我在檔案 a.xlsm 中 a-sheet 已建立一個 vba macro 為 a-macro,
1. 當我在另一個檔案 b.xlsm 中的 b-macro 中要使用到 a.xlsm 中的 a-macro 時要如何開啟, 執行及關閉?
2. 若我已經將 a-macro 由 a.xlsm 中匯出成一個 a.bas 檔案時, 我如何由 b-macro 呼叫開啟, 執行及關閉?
請給予解答, 不甚感激o Thanks!

James

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 262
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-25

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2010-9-15 19:45 | 只看該作者

回復 2# James

Sub bb()
Workbooks.Open "E:\aa.xls" '開啟活頁簿
Application.Run "aa.xls!aaa" '執行巨集
End Sub
Sub kk()
With ActiveWorkbook.VBProject.VBComponents.Import("E:\a.bas") '匯入
Application.Run "aaa" '執行
Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(.Name) '刪除
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

4^#

發表於 2010-9-15 20:47 | 只看該作者

使用vba也有幾個月
但是功力還不夠深
而且看到眾家高手的發文
真是驚嘆連連

很好奇大家是怎麼學的
會記程式碼嗎?
我都是將一些程式碼複製起來
比較複雜的就在從裡面尋找
簡單的就直接打出來
這樣的方式是對的嗎?

字典兩各字還真難理解

TOP

James

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 3
點名: 0
作業系統: vista
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-9-15
最後登錄: 2010-10-4

5^#

發表於 2010-9-16 09:58 | 只看該作者

感謝板主提供解決方案, 讓我對 VBA 在程式間的呼叫有更深的了解o
日昨也看了你的帖 "關於DDE動態連結問題", 試了一下沙大大的問題, 還蠻好玩的, 或許以後可參考使用o

James

TOP

wearnks

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
來自: 花蓮
註冊時間: 2010-6-23
最後登錄: 2010-10-31

6^#

發表於 2010-9-18 10:04 | 只看該作者

請問版主：1.若使用EXCEL DDE+VBA 紀錄期貨資料應該要有哪些條件?
2.若使用 (KGI全球通I3_Beta版)+excel2007的DDE數據每5分鐘自動記錄一筆資料應該如何寫?(我沒有VBA的基礎)不好意思。謝謝。

新手

TOP

pthhsm

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-10-30
最後登錄: 2010-10-30

7^#

發表於 2010-10-30 09:21 | 只看該作者

wearnks的問題也是我想知道的！

TOP

lkcharline

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 17
點名: 0
作業系統: Windows xp
軟體版本: office 2003
閱讀權限: 10
性別: 女
註冊時間: 2010-12-8
最後登錄: 2012-2-16

8^#

發表於 2010-12-8 11:14 | 只看該作者

看了版主的分享, 讓我對於 excel vba 有更深入的了解,我真的需要多加用些實務來加深印象了!!^^

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

9^#

發表於 2010-12-9 22:01 | 只看該作者

對於H大 sub kk()有點問題
我照一次辦
但compiler說remove那行引數不為選擇性(not optional)
停了macro
不知何解?

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

10^#

發表於 2010-12-15 18:21 | 只看該作者

[img]

Uploaded with ImageShack.us[/img]
有點問題,這是3樓H大的程式,加少少修改
有兩個excel file,一名為a.xls,內有一個叫sub a()的程式,執行一個簡單的msgbox訊息,我把它匯出至a.bas,打算由b.xls中的sub c()叫出該a.bas,可是程式壞了. 不知如何是好
不太懂相關技巧,希望指正

80 字節以內
不支持自定義 Discuz! 代碼

TOP