ECEL宏与VBA介绍分析和总结.docxVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 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

文档评论(0)

hao187 + 关注
官方认证
文档贡献者

该用户很懒,什么也没介绍

认证主体武汉豪锦宏商务信息咨询服务有限公司
IP属地上海
统一社会信用代码/组织机构代码
91420100MA4F3KHG8Q

1亿VIP精品文档

相关文档