- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
EXCEL 巨集與VBA 介紹
巨集:一連串的執行指令所構成,可以利用Visual Basic 程式指令、也可以利用錄製巨集的方式來錄寫指令。
如何錄製巨集:
如果要執行巨集,則需要更改「EXCEL 選項」\「信任中心」\「信任中心設定」\「巨集設定」
在「檢視」、「巨集」/「錄製巨集」
設定「巨集名稱」、快速鍵(Ctrl+英文鍵),將巨集儲存位置
開始錄製相關動作(錄製是以絕對位址方式來錄製,如果要以相對位址來錄製則要選「以相對位置錄製」)
停止錄製
查看巨集程式碼,並作必要的修正
執行巨集(可以利用「執行巨集」或快速鍵、或利用表單按鈕來執行) 如果要編修表單時,可以按下Ctrl+該物件,進行修改。
範例:下載(錄製巨集)
C6 至 C12 的數值格式設定「進貨 #,##0;出貨 #,##0」
「檢視」、「巨集」、「開始錄製」,並開始執行下列指令選取範圍C6 至 C12,並執行「複製」
選取範圍B6 至 B12,並按下「選擇性貼上」,選擇貼上「值」與運算「加」選取範圍C6 至 C12,並按下「Del」,清除儲存格內容
在儲存格C6 按一下停止錄製巨集
在工作表中,產生一個按鈕,並指定該按鈕執行該巨集,並將其按鈕文字改為異動每次輸入異動資料(正的表示進貨,負的表示出貨),按下按鈕即可執行巨集
VBA 簡介:Visual Basic for Applications,利用 VB 來延申Office 的能力。開啟 EXCEL 顯示開發人員(在「EXCEL 選項」/「常用」中勾選),再撰寫或修改VBA 程式。
VBA 主要的組成要件:物件,其中包括
屬性:對物件狀態的描述,可以定義物件的特性(大小、顏色、狀態等)。 方法:物件的某些特定動作,可以指定動作的細別內容。其主要結構如下:
物件.方法 指定引數 1:=xl 常數 1, 指定引數 2:=xl 常數 2,....
指定引數設定為某些內建常數,每個內建常數前會有關鍵字連接。
EXCEL 物件的常數會以 xl 開始。
VB 的陳述式及函數的常數會以 vb 開始。Office 物件模式的常數會以 mso 開始。事件:物件的觸發反應。
EXCEL 常用的物件Workbook 活頁簿Workbooks 活頁簿集合
Workbooks(filename) 檔名為 filename 的活頁簿ActiveWorkbook 正在作用中的活頁簿
Sheets 活頁簿中所有工作表Sheets(n) 活頁簿中第 n 張工作表Worksheet 工作表
Worksheets 所有工作表(包括圖表) Worksheets(sheet) 指表名為 sheet 工作表ActiveSheet 正在作用中的工作表
Columns(c1:c2) c1 至 c2 欄(其中 c1,c2 為 A~Z 或 AA~XFD 等欄名) Rows(r1:r2) r1 至 r2 列(其中 r1,r2 為 1~1048576 等列名Range(x1:x2) x1 至 x2 間的儲存格(其中 x1,x2 為儲存格位址名稱) cells(i,j) 儲存格(第 i 列、第 j 行)
ActiveCell 目前的儲存格Selection 目前所選取的物件範例:
Workbooks(Book1).Sheets(Sheet1).Range(A1:D5).Font.Bold = True Worksheets(Sheet1).Cells.ClearContents Worksheets(Sheet1).Rows(1).Font.Bold = True
Range(1:1,3:3,8:8)
Worksheets(Sheet1).Cells(6, 1).Value = 10 Worksheets(Sheet1).[A1:B5].ClearContents ActiveCell.Offset(1, 3).Font.Underline = xlDouble
活頁簿常用屬性:
ActiveWorkBook.Name 目前活頁簿的名稱ActiveWorkBook.Save 儲存目前的活頁簿ActiveWorkBook.SaveAs Filename := filename 另儲新檔WorkBooks.Add 新增活頁簿
WorkBooks(i).Close [SaveChange, Filename, RouteWorkbook] 關閉指定的第 i 個活頁簿
SaveChange := True 改變儲存SaveChange := False 不會改變儲存SaveChange 省略時,會出現對話方塊filename := 檔名
WorkBooks.Open filename 開啟一個活頁簿Application.Windows 所有活頁簿視窗WorkBoo
您可能关注的文档
最近下载
- 小学英语语法课件- 现在进行时.ppt VIP
- 送电线路工-高级技师.doc VIP
- GB_T 50448-2015水泥基灌浆材料应用技术规范.docx VIP
- IKEA宜家 PÄRUP 派如普(货号804.937.34)安装指南组装说明书.pdf
- 武进区教师心理健康教育全员培训.ppt VIP
- 供热企业运检人员专业知识习题集.pdf VIP
- 高速公路施工标准化管理指南-安全生产.pdf VIP
- GB 55011-2021 城市道路交通工程项目规范.docx VIP
- 2022注册消防工程师继续教育试题答案人员密集场所 .pdf VIP
- 2023年秋学期人教版初中生物七年级上册教学计划附教学进度表.pdf VIP
文档评论(0)