【正文】 dows 發(fā)展而來(lái)的。它與傳統(tǒng)的宏語(yǔ)言 有所 ，傳統(tǒng) 的宏語(yǔ)言不具備 高級(jí)語(yǔ)言的特點(diǎn) ，沒(méi)有面向?qū)ο蟮某绦蛟O(shè)計(jì)概念 及 方法。而 VBA 擁有 面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，提供了相當(dāng)完整的程序設(shè)計(jì)語(yǔ)言。 VBA 容易 學(xué)習(xí)掌握，可以使用宏記錄器記錄用戶的各種操作并將其轉(zhuǎn)換為 VBA 程序代碼。這樣用戶可以容易地將日常工作轉(zhuǎn)換為VBA 程序代碼，使工作自動(dòng)化。因此，對(duì)于在工作中需要經(jīng)常使用 Office 套裝軟件的用戶，學(xué)用 VBA 有助于使工作自動(dòng)化，提高工作效率。另外，由于 VBA 可以直接應(yīng)用 Office 套裝軟件的各項(xiàng)強(qiáng)大功能，所以對(duì) 程序設(shè)計(jì)人員的程序設(shè)計(jì)和開發(fā) 來(lái)說(shuō) 更加方便快捷。 所謂 “宏 ”， 是將一系列的命令和指令組合在一起，形成一個(gè)命令 ， 來(lái) 實(shí)現(xiàn)任務(wù)執(zhí)行的自動(dòng)化。它可以替代人工進(jìn)行 各種 費(fèi)時(shí)而重復(fù)的操作，是一個(gè) 非常 靈活的自定義命令。 在 Excel 中運(yùn)用宏可有兩種途徑，一種是錄制宏，另一種是采用 Excel 自帶的Visual Basic 編輯器來(lái)編輯宏。前一種使用較多，操作簡(jiǎn)練，也易于理解。宏的用途是使常用任務(wù)自動(dòng)化。開發(fā)人員可以使用代碼編寫功能更強(qiáng)大的 VBA （ VBA 是Microsoft Visual Basic 的宏語(yǔ)言版本，用于編寫基于 Microsoft Windows 的應(yīng)用程序，內(nèi)置于多個(gè) Microsoft 程序中 ）。 宏，這些宏 也 可以在計(jì)算機(jī)上運(yùn)行多條命令。 Microsoft Visual Basic Editor（ VBE） ， VB 編輯器 ,是我們?cè)O(shè)計(jì)、調(diào)試 VBA 代碼的編輯器，它是捆綁在 Application（如 WORD， EXCEL， OUTLOOK）應(yīng)用程序中的一個(gè) 程序 。 大多數(shù)的 Office程序都包含 VisualBasic編輯器，它是用來(lái)創(chuàng)建、修改和管理 Office宏 的一種環(huán)境。宏中包含的 代碼 通常 是 以 關(guān)鍵字 Sub 開頭并以關(guān)鍵字 EndSub 結(jié)尾。山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 18 （此代碼也就是所謂的 “子 例程 ”。） “模塊 ”是由一個(gè)或多個(gè)宏或子例程組成的， “工程 ”則是由一個(gè)或多個(gè)模塊組成。 VisualBasic 編輯器用于 管理工程 及其關(guān)聯(lián)的模塊。要訪問(wèn) VisualBasic 編輯器，請(qǐng)?jiān)?“工具 ”菜單中指向 “宏 ”，然后單擊 “VisualBasic 編輯器 ”。 宏的制作 VBA 宏的制作過(guò)程： 工作表 ，在工作表中輸入資料 。本次設(shè)計(jì)有六個(gè)研究量，所以新建六個(gè)工作表，即 下沉曲線表、傾斜表、曲率表、下沉速度表、水平移動(dòng)表 、水平變形表 圖 51 ，選擇 “工具 ”選項(xiàng)卡，在 “宏 ”區(qū)域中點(diǎn)擊 “宏 ”——“錄制宏 ”菜單項(xiàng)，即可打開 “錄制新宏 ”對(duì)話框，然后把所有的數(shù)據(jù)選中并進(jìn)行操作， 插入圖表，按提示 完成宏錄制過(guò)程后，點(diǎn)擊停止錄制 ，如圖 52 所示 。 圖 52 Visual Basic 編輯器查看代碼，并把有問(wèn)題的代碼進(jìn)行處理，直到能夠運(yùn)行山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 19 并實(shí)現(xiàn)操作的程序命令化。 點(diǎn)擊圖 53 中的宏命令，通過(guò)點(diǎn)擊編輯可以查看代碼。 圖 53 “運(yùn)行宏 ”按鈕，再選擇要執(zhí)行的宏名，工作表就會(huì)執(zhí)行繪圖操作。 如 圖 54所示： 圖 54 山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 20 6 地表移動(dòng)動(dòng)態(tài)規(guī)律分析研究 下沉曲線圖繪制分析及程序編碼 下沉曲線圖5000500100015002021250030000 2 4 6 8 10 12 14 16 18 20點(diǎn)號(hào)下沉量 圖 61 先新建一個(gè)宏，宏代碼如下： Sub 下沉曲線 1() 39。 下沉曲線 1 Macro Range(A1:X20).Select = xlXYScatterSmooth Source:=Sheets( 下 沉 曲 線 ).Range(A1:X20), PlotBy:= _ xlColumns Where:=xlLocationAsObject, Name:=下沉曲線 山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 21 With ActiveChart .HasTitle = True . = 下沉曲線圖 .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary). = 點(diǎn)號(hào) .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary). = 下沉量 End With (xlValue).Select With (xlValue) .MinimumScaleIsAuto = True .MaximumScaleIsAuto = True .MinorUnitIsAuto = True .MajorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = True .ScaleType = xlLinear .DisplayUnit = xlNone End With (10). With .ColorIndex = 7 .Weight = xlThin .LineStyle = xlContinuous End With 山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 22 With Selection .MarkerBackgroundColorIndex = xlAutomatic .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With (11). With .ColorIndex = 4 .Weight = xlThin .LineStyle = xlContinuous End With With Selection .MarkerBackgroundColorIndex = xlAutomatic .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With (12). With .ColorIndex = 1 .Weight = xlThin .LineStyle = xlContinuous 山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 23 End With With Selection .MarkerBackgroundColorIndex = xlAutomatic .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With (13). With .ColorIndex = 5 .Weight = xlThin .LineStyle = xlContinuous End With With Selection .MarkerBackgroundColorIndex = xlNone .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With (14). With .ColorIndex = 3 .Weight = xlThin 山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 24 .LineStyle = xlContinuous End With With Selection .MarkerBackgroundColorIndex = xlNone .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With (15). With .ColorIndex = 9 .Weight = xlThin .LineStyle = xlContinuous End With With Selection .MarkerBackgroundColorIndex = xlAutomatic .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With (16). With .ColorIndex = 5 山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 25 .Weight = xlThin .LineStyle = xlContinuous End With With Selection .MarkerBackgroundColorIndex = xlNone .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With (3). With .ColorIndex = 11 .Weight = xlThin .LineStyle = xlContinuous End With With Selection .MarkerBackgroundColorIndex = xlAutomatic .MarkerForegroundColorIndex = xlAutomatic .MarkerStyle = xlAutomatic .Smooth = True .MarkerSize = 5 .Shadow = False End With End Sub 傾斜曲線圖繪制分析及程序編碼 山西大同大學(xué)煤炭工程學(xué)院 2021屆本科生畢業(yè)設(shè)計(jì) 26 傾斜圖10010203040500 2 4 6 8 10 12 14 16 18 20段號(hào)傾斜