excel-ch23 巨集.pptVIP

  • 2
  • 0
  • 约2.65千字
  • 约 31页
  • 2016-12-19 发布于贵州
  • 举报
第23章 巨集 23-1 何謂巨集 Excel 2000在資料輸入方面已提供相當多快速的方式,如自動化完成、填滿控點、分式及強大的函數,還有什麼可以自動化呢?如果我們想重複執行某項工作,您可以利用巨集來自動完成。 巨集是一連串命令和指令組合而成的單一指令,以完成工作執行的自動化。 常見用途有: (1)加速慣用的編輯動作與格式設定 (2)組合多項指令,例如插入具有指定大小、框線、列數和欄數的表格 (3)使對話方塊中的選項更易於存取 (4)使一連串複雜的工作自動執行 有兩種建立巨集的途徑:[巨集錄製] 工具和 [Visual Basic 編輯器]? 如需迅速存取巨集,您可以將巨集的途徑指定至工具列或快速鍵項。如此一來,執行巨集就像按一下工具列按鈕或功能表指令,或按快速鍵一樣簡單。 何謂巨集-續 Step1:開啟ch23.xls,看到人事資料清單工作表及篩選條件。 何謂巨集-續 Step2:執行[資料/篩選/進階篩選]。 何謂巨集-續 Step3:開啟[進階篩選]交談窗像第16章一樣,點選[將篩選結果複製到其他地方],並填入資料範圍,準則範圍,及複製到等資料,按[確定]鈕。 何謂巨集-續 Step4:將游標放在H6儲存格,也就是篩選結果的清單上,我們想對結果資料做一些快速格式,以區分跟原始資料清單之不周,執行[格式/自動格式設定]。 何謂巨集-續 Step5:在[自動格式設定]交談窗中選擇[清單]的格式,並按[確定]鈕。 何謂巨集-續 Step6:結果經過特別標示在篩選條件之下,是不是較清楚了! 何謂巨集-續 Step7:如果將篩選條件的地區由[中部]改為[北部],就必須再執行Step2~Step5等5個步驟。 Step8:就會得到如下結果 何謂巨集-續 Step7:如果將篩選條件的地區由[中部]改為[北部],就必須再執行Step2~Step5等5個步驟。 Step8:就會得到如下結果 23-2 錄製與使用巨集 [巨集錄製] 工具可協助使用者開始建立巨集。現在就讓我們來實際操作一下。 Step1:執行[工具/巨集/錄製新巨集] 錄製與使用巨集-續 Step2:出現[錄製巨集]交談窗,將巨集名稱設定為[顯示篩選資料],並將快速改為「ctrl+b」,將巨集存在「現有的活頁薄」中,按[確定]鈕。 錄製與使用巨集-續 Step3:在螢幕上出現了一個[錄製巨集停止]的按鈕,可隨時停止或結束巨集的錄製,因為篩選結果的資料每次都不一定有多有少,所以我們需先清除此範圍的格式,將游標指在H6儲存格上。 錄製與使用巨集-續 Step4:執行[格式/自動格式設定],並選取「無效果」,按[確定]鈕。 錄製與使用巨集-續 Step5:執行[資料/篩選/進階篩選]中,做下列的設定。 錄製與使用巨集-續 Step6:篩選結果清單出現在,將游標放在H6儲存格上,再執行[格式/自動格式設定],選擇「清單1」 錄製與使用巨集-續 Step7:完成後,按[停止錄製]鈕,即可。 錄製與使用巨集-續 Step8:讓我們再將北部改回,「中部」。 Step9:執行[工具/巨集],或按「Alt+F8」,選擇[顯示篩選資料],或按快速鍵[ctrl+b]來執行巨集。 Step10:又看到新的執行結果 錄製與使用巨集-續 Step11:再將篩選條件改成「北部」,再執行一次「顯示篩選條件」巨集。 Step12:又看到新的執行結果。 錄製與使用巨集-續 Step13:我們在清單上加入一筆,如列21「道明四」的資料,再執行一次[顯示篩選資料]的巨集,咦,這筆新增的資料應該是符合條件,出現在結果清單上,怎麼沒有呢? 錄製與使用巨集-續 Step14:原來[進階篩選]交談窗中的資料範圍,一直固定在A1~F20。 錄製與使用巨集-續 Step15:因為還沒學到用LBA來修改錄製的巨集,所以我們只好再重錄一次了,這次我們命名為「顯示篩選資料2」,快速鍵改為「Ctrl+r」。 錄製與使用巨集-續 Step16:在[進階篩選]交談窗中,將資料範圍拉長為A1~F30,如此一來,在此範圍的新增的資料都會被篩選到。 錄製與使用巨集-續 Step17:再到22加入一筆「酸菜」的資料,並將H3「北部」改為「中部」 錄製與使用巨集-續 Step18:按「ctrl+r」,出現新的正確結果了。 錄製與使用巨集-續 Step19:看看我們錄了多少巨集,或是看別人的活頁薄中有那些巨集?執行[工具/巨集] 。 Step20:開啟[巨集]交談窗,除了按別的快速鍵來執行巨集外,可以透過這邊選巨集名稱後來執行,可以刪除多餘或錯誤的巨集,還可以透過[選項]來重新定義快速鍵,按[編輯]鈕,則可以看內部的VBA程式。 錄製與使用巨集-續 Step21:原來其實剛剛可以不必重錄的,只要在「Range(“A1:F20”)」改成

文档评论(0)

1亿VIP精品文档

相关文档